Excel VBA質問箱 IV

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

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


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

23508 / 76807

←次へ　｜　前へ→


	【58665】ユーザーフォームのリストボックス

ON - 08/11/4(火) 10:49 -


	引用なし

	パスワード

よろしくお願い致します

アクセスのリストボックスとの比較で申し訳ないですが

Ｑ１
アクセスであれば
リストボックスの値タイプを、値リスト　とし
値リストに、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
としているのですが
リストボックスのプロパティでアクセスのように設定することは出来るのでしょうか

Ｑ２
上記のリストボックスで
Private Sub ListBox1_Click()
　　MsgBox Me.ListBox1.Value
End Sub
としているのですが
フォームを実行し、
リストから１つ選択するとmsgboxが表示されるのですが
次に選択すると
１回目の選択が反転したまま、２回目の選択リストが反転され
メッセージが出てから、一回目のリストの反転が戻ります

２回目のリストの選択と同時に、１回目選択のリストの反転を
クリアーしたいのですがどうすればいいのでしょうか

よろしくお願い致します

1 hits

▼

【58665】ユーザーフォームのリストボックス ON 08/11/4(火) 10:49

≪