VBAのListViewでチェックされた項目の数を返す方法

Question

ListViewでチェックされた項目のカウント数が必要です。

Debug.Print ListView1.ListItems.Item(ListView1.ListItems.Count).Checked //outputs "false" 
Debug.Print ListView1.ListItems(ListView1.ListItems.Count).Checked //outputs "false" 
Debug.Print ListView1.ListItems.Count //outputs 13, because the LV contains 13 items 

は、リストビューをループすることなく、リストビューにchecked項目の数を返す可能性があります：これまでのところ、私は、これが近づいてみました。

Answer 1

OPはループのないアプローチを望んでいますが、ここでは完全性のためです。きちんとしたノールーピーのアプローチで答えに投票するのは楽しいです！

反復ListItems収集とSelectedプロパティがTrueあるアイテムを数える：

Option Explicit 

Private Sub UserForm_Initialize() 
    With Me.ListView1 
     .ListItems.Add 1, "Hughie", "Hughie" 
     .ListItems.Add 2, "Dewey", "Dewey" 
     .ListItems.Add 3, "Louis", "Louis" 
     .View = lvwList 
     .MultiSelect = True 
    End With 
End Sub 

Private Sub CommandButton1_Click() 
    MsgBox GetSelectedCount(Me.ListView1) 
End Sub 

Function GetSelectedCount(lvw As ListView) As Long 
    Dim lngSelectedCounter As Long 
    Dim lngCounter As Long 

    For lngCounter = 1 To lvw.ListItems.Count 
     If lvw.ListItems(lngCounter).Selected Then 
      lngSelectedCounter = lngSelectedCounter + 1 
     End If 
    Next lngCounter 

    GetSelectedCount = lngSelectedCounter 
End Function