Question

我正在使用userform，允许最终用户首先按各个业务单位进行过滤，然后选择他们想要查看的“标记”（0,1,2）。列出各个业务部门的combobox工作正常，这是我遇到问题的“标志”。

用户需要能够选择多个标志进行分析。我有点认为使用Checkboxes是可行的方法，但是我似乎无法按照我的预期来执行代码。如果选择了一个checkbox，它可以正常工作，但如果选择了多个checkbox，它只会按所选的第一个Private Sub CommandButton1_Click() Application.ScreenUpdating = False ActiveWorkbook.Sheets("Masterlist").Activate Range("I1").Select ActiveSheet.Range("I1").AutoFilter Field:=9, Criteria1:=ComboBox1 With ActiveSheet If CheckBox1.Value = True Then ActiveSheet.Range("BL1").AutoFilter Field:=64, Criteria1:="0" ElseIf CheckBox2.Value = True Then ActiveSheet.Range("BL1").AutoFilter Field:=64, Criteria1:="1" ElseIf CheckBox3.Value = True Then ActiveSheet.Range("BL1").AutoFilter Field:=64, Criteria1:="2" End If End With Application.ScreenUpdating = True End Sub的值进行过滤。

def create_account(type, holder)
    Object.const_get(type.to_s.camelize + "Account").new(holder, @account_number)
end

有更好的选择吗？或者我已经修改过的代码可以工作吗？

使用Excel VBA用户表单中的复选框筛选选项

0 个答案: