すぐに役立つエクセルVBAマクロ集 - FAQ リストボックスで直前に選択された項目を再び選択可能にする

　　すぐに役立つエクセルVBAマクロ集すぐマク

Excel VBA Macro
FAQ

500連発・組み方講座フォロー

Big Color Pallet

[広告]

Excel VBA Macro

Excel DownLoad

Excel VBA Macro　・　リストボックス・コントロール　・　FAQ

リストボックスで直前に選択された項目を再び選択可能にするには？

Question 58.6

Excel VBA Borad （掲示板）より

いつも活用させて頂いています。ありがとうございます。

Ｑuestion 30.1　リストボックス・コントロールを、使用させていただいております。
ここで、たとえばセル5行目で「りんご」を選択し、6行目でも「りんご」を選択したい場合、うまくいきません。

リストボックスの選択で反転されている項目を選ぶことはできないでしょうか？
よろしくお願いします。

Answer　　

2003.2.1　long

Worksheetのコードに2行追加（下記4～5行目）して、次のようにすれば可能になります。お試しください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '選択範囲が変更されたときに実行
    If Target.Column = 1 Then 'A列なら
        行 = Target.Row '行番号を取得する
        UserForm1.ListBox1.RowSource = ""
        UserForm1.ListBox1.RowSource = "リスト!A2:A5"
        UserForm1.Show 'ユーザーフォームを表示する
    End If
End Sub

ありがとうございました

連絡が遅くなって申し訳ありませんでした。
2行追加すると、うまくリストボックスが表示されました。フォームのプロパティを一度、初期化すればいいのですね。
ありがとうございましたm(__)m　とても助かりました。