ник: akkorn
я тоже
вот как ОНО у меня:
на форме список L1
кнопка K1
список - тип источника строк - список значений
список - источник строк - 1a;1b;1c;1d;2a;2b;2c;2d;3a;3b;3c;3d
список - число столбцов - 4
Private Sub K1_Click()
Dim a1 As String
a1 = Nz(L1.Column(5, 0))
If Len(a1) > 0 Then MsgBox a1
End Sub
|
усе работат..
