想增加一个全选功能

aosiner123

想在所属事业部 和 所属VCT  B列点击 点击出来数据的时候  可以增加一个全选 功能

quqiyuan

工作表控件想了个办法，在末尾加两个选项，大概可以解决

NL30°

增加了全选和反选功能

xsy我可以很好

Private Sub CommandButton1_Click()'全选
J = CommandButton1.Tag
For I = 0 To Me.ListBox1.ListCount - 1
If J = 0 Then
Me.ListBox1.Selected(I) = True: CommandButton1.Caption = "全否": CommandButton1.Tag = 1
End If
If J = 1 Then
  Me.ListBox1.Selected(I) = False: CommandButton1.Caption = "全选": CommandButton1.Tag = 0
End If
Next
End Sub

Private Sub CommandButton2_Click()'反选
CommandButton2.Tag = CommandButton2.Tag + 1
J = CommandButton2.Tag Mod 2
For I = 0 To Me.ListBox1.ListCount - 1
If J = 0 Then
If Me.ListBox1.Selected(I) = False Then Me.ListBox1.Selected(I) = True Else Me.ListBox1.Selected(I) = False
End If
If J = 1 Then
If Me.ListBox1.Selected(I) = True Then Me.ListBox1.Selected(I) = False Else Me.ListBox1.Selected(I) = True
End If
Next
End Sub