|
よろしくお願い致します
アクセスのリストボックスとの比較で申し訳ないですが
Q1
アクセスであれば
リストボックスの値タイプを、値リスト とし
値リストに、1,2,3 と入力して、
フォームを開くと、リストとして 1、2、3 が表示されます
エクセルでは、
Private Sub UserForm_Initialize()
Me.ListBox1.MultiSelect = fmMultiSelectSingle
Me.ListBox1.AddItem "文字列1"
Me.ListBox1.AddItem "文字列2"
Me.ListBox1.AddItem "文字列3"
End Sub
としているのですが
リストボックスのプロパティでアクセスのように設定することは出来るのでしょうか
Q2
上記のリストボックスで
Private Sub ListBox1_Click()
MsgBox Me.ListBox1.Value
End Sub
としているのですが
フォームを実行し、
リストから1つ選択するとmsgboxが表示されるのですが
次に選択すると
1回目の選択が反転したまま、2回目の選択リストが反転され
メッセージが出てから、一回目のリストの反転が戻ります
2回目のリストの選択と同時に、1回目選択のリストの反転を
クリアーしたいのですがどうすればいいのでしょうか
よろしくお願い致します
|
|