リストボックスのチェックボックスにチェックするには？ (ID:87747)

名前

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

本文 文字列で引きたかったら、たとえばDictionaryを併用して、 こんなかんじ Option Explicit Private dic As New Scripting.Dictionary Private Sub Command1_Click() List1.Selected(dic("ううう")) = True End Sub Private Sub Form_Load() Dim arraybuf As Variant, i As Long arraybuf = Array("あああ", "いいい", "ううう", "えええ", "おおお") For i = 0 To UBound(arraybuf) List1.AddItem arraybuf(i) dic(arraybuf(i)) = List1.NewIndex Next End Sub