|
▼GPA さん:
>コンボボックスの値を、シートA列からE列に入力するようにしています。
>シート上のリストボックスのリンク先をCells(6,7)として列選択を
>しています。この列選択をフォーム上に作成するには、どのように
>すると良いのでしょうか、アドバイスお願いします。
>
>
>Private Sub CommandButton1_Click()
> Cells(65536, Cells(6, 7).Value).End(xlUp).Offset(1) = ComboBox1.Value
>End Sub
いまいち仕様が良くわかっていませんが、
今シート上のCells(6,7)に"1","2","3","4"としているのを、
ユーザーフォーム上でやりたいということですか?
私なら、もうひとつのコンボボックスから"A","B","C","D","E"を選択させますね。
テキストボックスに欠かせてもいいし、リストボックスでもいいと思います。
また、フレームを用意して、オプションボタンを五つ、ラベルを五つ用意しても
いいと思いますが、私は、コンボボックスのほうが好きです。
こんな感じでしょうか?
コンボボックスにした場合:
Private Sub CommandButton1_Click()
Sheets("Sheet1").Cells(65536, Me.ComboBox2.Value).End(xlUp).Offset(1) = ComboBox1.Value
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array("あ", "い", "う", "え", "お", "か", "き", "く")
’これは、勝手にやってます。
Me.ComboBox2.List = Array("A", "B", "C", "D", "E")
End Sub
|
|