|
今年初めての質問で恐縮ですが・・・
お忙しいところ申し訳けございません。
リストボックスボックスに4列表示しています。
リストビックスの一列をチェック(選択)した時点で
その4列をシートのD4、E4、F4、G4のそれぞれを表示させたいのですが
その方法を教えていただけませんでしょうか。
Private Sub userform_initialize()
Dim myVal As Variant
myVal = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Resize(, 4).Value
With UserForm1
.ListBox1.ColumnCount = 4
.ListBox1.ColumnWidths = "40;30;60;40"
.ListBox1.List = myVal
End With
End Sub
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
|
|