Excel Выберите все элементы в Listbox Vba

Question

Я в тупике Я пробовал следующее и для жизни меня, я не могу понять это ... Вам нужно использовать кнопку comand в списке на форме excel vba.

Iniatilizing форму на нагрузке ..... он загрузит штраф

Sub UserForm_Initialize() 
UserForm1.LbNumbers.RowSource = "Sheet2!A1:A3"End Sub 

Элементы отображения в ListBox тонкой

У меня есть кнопки управления под окном списка, чтобы выбрать весь код

Sub CbSelectall_Click() 
    For i = 0 To LbNumbers.ListCount - 1 
     LbNumbers.Selected(i) = True 
    Next i 
End Sub 

Если я нажму на кнопку, она переместится к последней строке, но она не будет выбирать все числа в списке. Может ли кто-нибудь сказать мне, как я могу исправить это, чтобы выбрать все числа в списке. Спасибо

Answer 1

 
Private Sub lbTraderId_Change() 
    If ResetListBox(lbTraderId) Then 
     Exit Sub 
    ElseIf lbTraderId.Selected(0) Then 
     For i = 1 To lbTraderId.ListCount - 1 
      If lbTraderId.Selected(i) = False Then 
       lbTraderId.Selected(i) = True 
      End If 
     Next i 
    ElseIf lbTraderId.Selected(0) = False Then 
     For i = 1 To lbTraderId.ListCount - 1 
      If lbTraderId.Selected(i) = True Then 
       lbTraderId.Selected(i) = False 
      End If 
     Next i 
    End If 
End Sub 

Private Function ResetListBox(lbx As MSForms.ListBox) As Boolean 
    Dim x As Long 
    Static bExit As Boolean 
    If Not bExit Then 
     x = lbx.ListIndex 
      If x >= 0 And Not lbx Is Me.lbTraderId Then 
       bExit = True 
       lbx.Selected(x) = Not lbx.Selected(x) 
       bExit = False 
       ResetListBox = True 
      End If 
    End If 
End Function