Excel VBA質問箱 IV

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

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


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

28685 / 76734

←次へ　｜　前へ→


	【53341】リストボックスからデータを指定セルに転送

事始 - 08/1/4(金) 12:13 -


	引用なし

	パスワード

今年初めての質問で恐縮ですが・・・
お忙しいところ申し訳けございません。

リストボックスボックスに４列表示しています。
リストビックスの一列をチェック(選択)した時点で
その４列をシートの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'←リストボックス２列目
　　.Cells(4, 10).Value = ListBox1.Value'←リストボックス３列目
　　.Cells(4, 11).Value = ListBox1.Value'←リストボックス４列目
　End With　　　　　　　　　　　　　　　　　'を表示させる方法？
End Sub

3 hits

▼

【53341】リストボックスからデータを指定セルに転送 事始 08/1/4(金) 12:13

≪