|
▼事始 さん:
>今年初めての質問で恐縮ですが・・・
>お忙しいところ申し訳けございません。
>
>リストボックスボックスに4列表示しています。
>リストビックスの一列をチェック(選択)した時点で
>その4列をシートのD4、E4、F4、G4のそれぞれを表示させたいのですが
>その方法を教えていただけませんでしょうか。
>
>Private Sub listBox1_Change()
> With ActiveSheet
> .Cells(4, 8).Value = ListBox1.Value
> .Cells(4, 9).Value = ListBox1.Value'←リストボックス2列目
> .Cells(4, 10).Value = ListBox1.Value'←リストボックス3列目
> .Cells(4, 11).Value = ListBox1.Value'←リストボックス4列目
> End With 'を表示させる方法?
>End Sub
一応こんな方法で出来ましたが、他にも方法があるのかも?
Private Sub listBox1_Change()
Dim i As Integer
For i = 0 To 3
With ActiveSheet
.Cells(4, 8).Offset(, i).Value = ListBox1.List(ListBox1.ListIndex, i)
End With
Next
End Sub
詳しくなくてすいません。
|
|