VBA使用Excel中的复选框进行过滤？

Question

I'm new to VBA in Excel and trying to build a menu that will allow users to enter filter criteria using checkboxes. In this case, filter by states. Everything works fine when there is only one state selected, but multiple states clears the filter. The code I'm using to build the filter criteria string is below. I've tried adding additional quotes ("AL", "AK") but that clears the filter when only a single state is selected. Any suggestions would be greatly appreciated.

If Sheets("Menu").ckAL.Value = True Then
    strCriteria = strCriteria & ", AL"

End If

If Sheets("Menu").ckAK.Value = True Then
    strCriteria = strCriteria & ", AK"

End If

strCriteria = Mid(strCriteria, 2)

ActiveSheet.Range("$A$4:$AR$16998").AutoFilter Field:=3, Criteria1:=Array(strCriteria), Operator:=xlFilterValues

Thanks.

Bruce

Answer 1

I tested this, and it worked for me. Since the Criteria1 is expecting an array of strings, the strCriteria needs to be split into an array which is then passed into the filter criteria.

If Sheets("Menu").ckAL.Value = True Then
    strCriteria = strCriteria & ", AL"

End If

If Sheets("Menu").ckAK.Value = True Then
    strCriteria = strCriteria & ", AK"

End If

strCriteria = Mid(strCriteria, 2)

ActiveSheet.Range("$A$4:$AR$16998").AutoFilter Field:=3, Criteria1:=Split(strCriteria,", "), Operator:=xlFilterValues