Excel VBA質問箱 IV

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

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


39718 / 76732 ←次へ | 前へ→

【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)に"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

0 hits

【42122】列の選択をシート上のリストボックスからユーザーフォーム上に変更する GPA 06/9/1(金) 21:12 質問
【42123】Re:列の選択をシート上のリストボックス... ponpon 06/9/1(金) 23:08 発言
【42125】Re:列の選択をシート上のリストボックス... GPA 06/9/2(土) 11:37 お礼
【42160】Re:列の選択をシート上のリストボックス... ponpon 06/9/3(日) 9:47 発言
【42124】Re:列の選択をシート上のリストボックスか... ichinose 06/9/1(金) 23:19 発言
【42126】Re:列の選択をシート上のリストボックスか... GPA 06/9/2(土) 11:53 質問
【42142】Re:列の選択をシート上のリストボックスか... ichinose 06/9/2(土) 19:25 発言
【42145】Re:列の選択をシート上のリストボックスか... GPA 06/9/2(土) 20:27 お礼

39718 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free