Excel VBA質問箱 IV

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

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


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

59064 / 76738

←次へ　｜　前へ→


	【22388】一つのｼｰﾄの各列に専用のリストボックスを作りたいのですが

WB - 05/2/17(木) 17:29 -


	引用なし

	パスワード

やりたいことですが、ｼｰﾄ1にリストを作り、ｼｰﾄ2のA列のセルをクリックするとユーザーホームのリストボックスが表示され選択した内容がｼｰﾄ2のアクティブなセルに表示されるように、というところまでは本を見ながらなったのですが、A列しかできません。B列、C列も同じようにしたい（B・C列はリストボックスの内容は個々にちがうもので）のですがどのようにすればよいのか教えてください。
OS　　Windows　XP　SP2　　エクセル2003を使っています。
VBAの記入は下記のようにしてあります。よろしくお願いします。
' ◆Worksheetのコード◆
'-----------------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Column = 1 Then　　　　　　　　　
　　　　行 = Target.Row　　　　　　　　　　　　
　　　　UserForm1.Show　　　　　　　　　　　　　
　　End If
End Suｂ
' ◆UserForm1のコード◆
'-----------------------------------------------------------------------------------------
Private Sub ListBox1_Click()　　　　　　　　　　
　　If 行 <> 1 Then　　　　　　　　　　　　　　
　　　　Cells(行, 1) = ListBox1.Value　　　　　
　　End If
　　UserForm1.Hide　　　　　　　　　　　　　　　
End Sub
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Deactivate()　　　　　　　
　　Unload Me　　　　　　　　　　　　　　　　　
End Sub
'=========================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Public 行 As Variant　　　　　　　　　　　　　　
'-------------------------------------------------------------------------
Sub auto_open()
　　Load UserForm1　　　　　　　　　　　　　　　
End Sub

0 hits

▼

【22388】一つのｼｰﾄの各列に専用のリストボックスを作りたいのですが WB 05/2/17(木) 17:29

≪