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

Question 58.6 Excel VBA Borad (掲示板)より Previous Next
いつも活用させて頂いています。ありがとうございます。

Question 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 とても助かりました。

 

Excel VBA Macro