リストボックス内の数値で全て未選択時の計算の仕方 (ID:89998)

名前

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

本文 こんな感じになるのかと。。。。 選択数が0 の場合は リストすべての値を加算後、ラベルに表示 選択数が0 以外の場合は 選択されているリストの値を加算後、ラベルに表示 Private Sub Command1_Click() Dim i, a As Long If List1.SelCount = 0 Then For i = 0 To List1.ListCount - 1 a = a + Val(List1.List(i)) Next i Label1.Caption = a Else For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then a = a + Val(List1.List(i)) End If Next i Label1.Caption = a End If End Sub [要点] リストボックス.SelCount で 選択されている リストの個数を取得できます。 リストボックス.Selected(i) で 個々のリストの選択状態(True:真/False:偽)を取得できます。