[[20240717143555]]　『VBA ListViewの初期表示につい』（純丸）　ページの最後に飛ぶ

『VBA ListViewの初期表示につい』（純丸）

 ユーザーフォームに ListView と LIstBox を配置して Userform.Showを実行する。

 Private Sub UserForm_Initialize()

    With Me.ListView1
        .View = lvwSmallIcon

        .ListItems.Add.Text = "東京"
        .ListItems.Add.Text = "神奈川"
        .ListItems.Add.Text = "千葉"

      '  .SelectedItem = Nothing ←これを試しけど動きは同じだった

    End With

    With Me.ListBox1
        .AddItem "東京"
        .AddItem "神奈川"
        .AddItem "千葉"
    End With

 End Sub

 この時、ListViewの方は先頭の東京が選択状態になり、ListBoxの方は何も選択状態になりません。
 ListViewの方もListBoxのように未選択の状態にしたいのですが、可能ですか？
 よろしくお願いします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 Dim itm As Object
 For Each itm In Me.ListView1.ListItems
    itm.Selected = False
 Next itm

 を追加してはいかがでしょうか。
（通りすがり助六） 2024/07/17(水) 15:06:23

 ご提示いただいたコードを参考・応用して、
 .ListItems(1).Selected = False を追加することで未選択状態に出来ました。

 通りすがり助六さん、ありがとうございました。
（純丸） 2024/07/17(水) 15:34:11

コメント返信：