| |
ユーザーフォーム上に配置した二つのリストボックスに両方に
指定のメンバを設定する
ということなら・・・。
新規ブックにて（あくまでも新規ブックですよ！！）。
ユーザーフォームを一つ作成してください（UserForm1）
二つのリストボックスを配置してください
ListBox1 ListBox2
ではコードです。
標準モジュールに
'===================================================
Sub main()
With ActiveSheet
.Range("a1:a5").Formula = "=char(row()+64)"
.Range("b1:b10").Formula = "=char(row()+96)"
MsgBox "Ａ列は、ListBox1のメンバ、Ｂ列は、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の両方にメンバが
登録されていませんか？
これでよいなら、後はご自分が抱えている問題のブックに上記のコードを
参考に修正を加えてみてください。
|
|
ichinose
- 08/1/22(火) 23:19 -
