excel里复选框全选⼀全取消,如何实现?

2025-02-23 04:22:52
推荐回答(2个)
回答1:

全选:在行与列的左上角空白处点一下,全选上了。
取消:任意点别处一下,就不再是全选了。

回答2:

Private Sub CombutAllSeltion_Click()'全选
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = True
Next
End Sub

Private Sub ComButNotAllSeltion_Click()'全不选
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = False
Next
End Sub