excel VBA筛选代码,我想改一下,该如何改???

发布网友发布时间：2022-05-11 09:35

共1个回答

热心网友时间：2023-10-10 09:42

在你的基础上稍改了一下，没有测试。

Private Sub CommandButton1_Click()
On Error Resume Next
Dim ShNm As String
If CheckBox1=TRUE Then ShNm="8月份"
If CheckBox2=TRUE Then ShNm="9月份"
If CheckBox3=TRUE Then ShNm="10月份"
X = Sheets(ShNm).Range("A1000").End(xlUp).Row
Sheets(ShNm)..Range("A1:K" & X).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"B3:L4"), CopyToRange:=Range("B14:L14"), Unique:=False
End Sub

Private Sub CheckBox1_Click()
If CheckBox1=TRUE Then CheckBox2=FALSE: CheckBox3=FALSE
End Sub

Private Sub CheckBox2_Click()
If CheckBox2=TRUE Then CheckBox1=FALSE: CheckBox3=FALSE
End Sub

Private Sub CheckBox3_Click()
If CheckBox3=TRUE Then CheckBox1=FALSE: CheckBox2=FALSE
End Sub

如有问题，请随时HI我。