|
ご教授おねがいします。
見よう見まねでリストボックスを作りました
結果4列ちゃんと表示される物が出来上がったのですが
そこから先がわかりません
(1) リストボックスに単価表のセルの値を表示させる ○
(2) 表示されたセル行を選択するとそのセルがアクティブになる ×
この(2)がわからないんです
UserForm_Initializeに何と記述すればアドレスが認識されるのでしょうか(-_-;)
そしてListBox1_Change()に何と記述すれば↑と連動できるのでしょうか(-_-;)
よろしくお願いいたします。
Private Sub UserForm_Initialize()
Dim MyArray(600, 4)
Dim i As Integer
With ListBox1
.ColumnCount = 89
.ColumnWidths = "30;30;30;80"
.BoundColumn = 1
End With
With Worksheets("単価表")
For i = 0 To 600
MyArray(i, 0) = Cells(i + 2, "a").Value
MyArray(i, 1) = Cells(i + 2, "b").Value
MyArray(i, 2) = Cells(i + 2, "c").Value
MyArray(i, 3) = Cells(i + 2, "ck").Value
Next i
ListBox1.List() = MyArray
End With
End Sub
**************************
Private Sub ListBox1_Change()
End Sub
**************************
|
|