1. , , (. 11.1).
. 11.1 Excel
, .
.
, . 11.2. UserForm1 ComboBox1 , , Label1. . TextBox1 , Label2 .
11.2
, 1,
Sub CommandButton1_Click()
I=4
Do Until Worksheets(1).Cells(I,1)=
I=I+1
Loop
J=I-1
UserForm1.ComboBox1.RowSource = "1!b4:b & J
: |
1. , , (. 11.1). . 11.1 Excel , . . , . 11.2. UserForm1 ComboBox1 , , Label1. . TextBox1 , Label2 . 11.2 , 1, Sub CommandButton1_Click() I=4 Do Until Worksheets(1).Cells(I,1)= I=I+1 Loop J=I-1 UserForm1.ComboBox1.RowSource = "1!b4:b & J
: 2015-10-01; !; : 354 | : : , . |