|
ユーザーフォーム上に配置した二つのリストボックスに両方に
指定のメンバを設定する
ということなら・・・。
新規ブックにて(あくまでも新規ブックですよ!!)。
ユーザーフォームを一つ作成してください(UserForm1)
二つのリストボックスを配置してください
ListBox1 ListBox2
ではコードです。
標準モジュールに
'===================================================
Sub main()
With ActiveSheet
.Range("a1:a5").Formula = "=char(row()+64)"
.Range("b1:b10").Formula = "=char(row()+96)"
MsgBox "A列は、ListBox1のメンバ、B列は、ListBox2のメンバ"
End With
UserForm1.Show
End Sub
UserForm1のモジュールには
'=============================================================
Option Explicit
Private Sub UserForm_Initialize()
With ListBox1
.RowSource = Range("a1", Cells(Rows.Count, "a").End(xlUp)).Address
.ListIndex = 0
End With
With ListBox2
.RowSource = Range("b1", Cells(Rows.Count, "b").End(xlUp)).Address
.ListIndex = 0
End With
End Sub
として、mainを実行してみてください。
いかがですか?
ListBox1 ListBox2の両方にメンバが
登録されていませんか?
これでよいなら、後はご自分が抱えている問題のブックに上記のコードを
参考に修正を加えてみてください。
|
|