Excel VBA質問箱 IV

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

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


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

23507 / 76807

←次へ　｜　前へ→


	【58666】Re:ユーザーフォームのリストボックス

kanabun - 08/11/4(火) 11:08 -


	引用なし

	パスワード

▼ON さん：
こんにちは。

>Ｑ１
>アクセスであれば
>リストボックスの値タイプを、値リスト　とし
>値リストに、1,2,3　と入力して、
>フォームを開くと、リストとして　1、2、3　が表示されます

プロパティボックスには Listプロパティがないので、
デザイン時にあらかじめ「1,2,3」のようにセットしておくことは
できないようです。

まぁ、コードで、

Private Sub UserForm_Initialize()
　　ListBox1.List = Split("Item 1,Item 2,Item 3,Item 4", ",")
End Sub

くらいでお茶を濁すのかな？

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

こちらは、AfterUpdateイベントプロシージャに記述したらどうでしょうか？

Private Sub ListBox1_AfterUpdate()
　　MsgBox ListBox1.Value

End Sub

1 hits

▼

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