Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39724 / 76738

←次へ　｜　前へ→


	【42123】Re:列の選択をシート上のリストボックス...

ponpon - 06/9/1(金) 23:08 -


	引用なし

	パスワード

▼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）に"１","２","３","４"としているのを、
ユーザーフォーム上でやりたいということですか？
私なら、もうひとつのコンボボックスから"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

0 hits

▼

【42122】列の選択をシート上のリストボックスからユーザーフォーム上に変更する GPA 06/9/1(金) 21:12