|
やりたいことですが、シート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 Sub
' ◆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
|
|