.
, | ||
80 000 | ||
120 000 | ||
200 000 | ||
1200 000 |
. .
/ | |||
, . , 2 | 211-23-34 | ||
, -. , 5 | 222-45-67 | ||
, . , 1 | 333-45-78 | ||
, . , 4 | 444-56-90 |
, . 9.1.
. 9.1.
UserForm1 , . 9.2.
. 9.2.
. - , , UserForm1:
Sub CommandButton1_Click()
k = 2
Do While Worksheets("").Cells(k, 1) <> ""
UserForm1.ComboBox1.AddItem Worksheets("").Cells(k, 1)
k = k + 1
Loop
k = 2
Do While Worksheets("").Cells(k, 1) <> ""
UserForm1.ComboBox2.AddItem Worksheets("").Cells(k, 1)
k = k + 1
Loop
UserForm1.Show
End Sub
, , k = 2. , , .
, UserForm1. ClearContents, Range:
Sub CommandButton2_Click()
Worksheets("").Range("b8:b10").ClearContents
Worksheets(" ").Range("a13:d13").ClearContents
Worksheets(" ").Range("b17").ClearContents
End Sub
, (Worksheets("").) .
UserForm1 -, . .
, . , :
|
|