|
▼GPA さん:
こんばんは。
>コンボボックスの値を、シートA列からE列に入力するようにしています。
>シート上のリストボックスのリンク先をCells(6,7)として列選択を
>しています。この列選択をフォーム上に作成するには、どのように
>すると良いのでしょうか、アドバイスお願いします。
>
>
>Private Sub CommandButton1_Click()
> Cells(65536, Cells(6, 7).Value).End(xlUp).Offset(1) = ComboBox1.Value
>End Sub
↑このコードを変更なしで使うなら・・・・、
Userform1にリストボックス(Listbox1)を配置してください。
このフォームのモジュールに
'=========================================================
Private Sub UserForm_Initialize()
With ListBox1
.ControlSource = "sheet1!g6"
' これは、事前にプロパティ設定もできます
' リストボックスで選択した列番号を入力したいセルをシート名から指定する
.List = Array(1, 2, 3, 4, 5)
.ListIndex = 0
End With
End Sub
これで指定シートのセルG6にリストボックスで選択した列番号が
入ります。
試してみてください。
|
|