リストビューの複数選択について (ID:91354)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなことですか。 '複数選択(取りあえず全部選択) For i = 1 To ListView1.ListItems.Count ListView1.ListItems(i).Selected = True Next '選択行の書き出し For i = 1 To ListView1.ListItems.Count If ListView1.ListItems(i).Selected = True Then Debug.Print ListView1.ListItems(i).Text End If Next