|
▼早乙女 さん:
おはようございます。
>ご教授おねがいします。
>
>見よう見まねでリストボックスを作りました
>結果4列ちゃんと表示される物が出来上がったのですが
>そこから先がわかりません
>
>(1) リストボックスに単価表のセルの値を表示させる ○
>(2) 表示されたセル行を選択するとそのセルがアクティブになる ×
>この(2)がわからないんです
>UserForm_Initializeに何と記述すればアドレスが認識されるのでしょうか(-_-;)
>そしてListBox1_Change()に何と記述すれば↑と連動できるのでしょうか(-_-;)
>よろしくお願いいたします。
>
>
>Private Sub UserForm_Initialize()
Dim MyArray(600, 3)
'でいいですよね?
>Dim i As Integer
>
>
> With ListBox1
> .ColumnCount = 89
> .ColumnWidths = "30;30;30;80"
> .BoundColumn = 1
>
> End With
>
>
> With Worksheets("単価表")
.activate
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()
With Worksheets("単価表")
' .Activate
.Rows(ListBox1.ListIndex + 2).Activate
End With
'リストボックスのLisindexで取得できます
>End Sub
>**************************
|
|