t_Activate ()
Columns ("A: P"). Select
Selection.ColumnWidth = 8.71
If ActiveSheet.AutoFilterMode = False Then
Range ("A3: P3"). Select
Selection.AutoFilter
End If
Range ("A1"). Select
i = 3
Do
i = i + 1
Loop While Cells (i, 1). Value <> ""
Kol_Prstr = 4
Label1.Caption = Chr (13) & "У базі" & i - Kol_Prstr & "замовлення (-ів)" SubSub Worksheet_Change (ByVal Target As Range)
i = 3
Do
i = i + 1
Loop While Cells (i, 1). Value <> ""
В
Kol_Prstr = 4
Label1.Caption = Chr (13) & "У базі" & i - Kol_Prstr & "замовлення (-ів)" Sub
// Workbook (Main.xls). Worksheets (ВихФорма)
Private Sub CommandButton1_Click ()
ActiveSheet.PrintOut Preview: = TrueSubSub CommandButton2_Click ()
Workbooks ("Main.xls"). Worksheets ("1"). Activate
Main.ShowSub
// Workbook (Main.xls)
Private Sub Workbook_Open ()
'Application.Workbooks.Open "I: БДТурфірм Firms.xls"
MenuBars (xlWorksheet). Menus.Add Caption: = "& Робота з замовленнями і путівками", Before: = 11
MenuBars (xlWorksheet). Menus ("& Робота з замовленнями і путівками"). MenuItems.Add _
Caption: = "& Перейти у головне меню", Before: = 2, OnAction: = "MainS"
MenuBars (xlWorksheet). Menus ("& Робота з замовленнями і путівками"). MenuItems.Add _
Caption: = "& Нове замовлення", Before: = 3, OnAction: = "NewZa"
MenuBars (xlWorksheet). Menus ("& Робота з замовленнями і путівками"). MenuItems.Add _
Caption: = "& Редагування замовлення", Before: = 4, OnAction: = "EditZa"
MenuBars (xlWorksheet). Menus ("& Робота з замовленнями і путівками"). MenuItems.Add _
Caption: = "& Видалення замовлення", Before: = 5, OnAction: = "DelZa"
MenuBars (xlWorksheet). Menus ("& Робота з замовленнями і путівками"). MenuItems.Add _
Caption: = "& Пошук путівки за певними критеріями", Before: = 6, OnAction: = "ShowPut"
Worksheets ("1"). Activate
Main.ShowSub
// Workbook (Main.xls) Форма Find
Compare TextSub CheckBox1_Change ()
If CheckBox1.Value = True Then
ComboBox1.Enabled = True
For Each Sheet In Workbooks ("Firms.xls"). Worksheets
If Sheet.Name <> "1" Then
ComboBox1.AddItem Sheet.Name
End If
Next Sheet
Else
ComboBox1.Enabled = False
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
CheckBox2.Value = False
ComboBox2.Enabled = False
CheckBox3.Value = False
ComboBox3.Enabled = False
ComboBox2.Clear
Exit Sub
End IfSubSub CheckBox2_Change ()
If CheckBox2.Value = True Then
ComboBox2.Enabled = True
CheckBox3.Value = True
ComboBox3.Enabled = True
End If
...
