如何使一个或多个Excel输入依赖多个ActiveX复选框

时间:2018-10-05 15:09:53

标签: excel vba excel-vba

我正在努力使我们的承销商更有效地进行评级工作。当前,他们必须手动选择所有表格以进行报价。根据工作簿中其他位置的不同输入,需要使用许多这些表格。例如,每个州都有所需的州特定格式。

因此,根据输入的状态,我希望通过ActiveX复选框选择正确的表单。我可以通过对每个框进行编码来做到这一点,但是我想知道是否可以整体做到这一点。我尝试了多种包装方式进行以下操作,但始终会出错。

Private Sub ChangeBoxes()

    Dim RiskState As Range
    Dim cb As CheckBox
    Dim cbRng As Range
    Dim StateTrig As Range

    Set RiskState = Sheets("Account Review").Range("G16")
    Set cbRng = Sheets("ECC Forms Table").Range("C14:C18")
    Set RateTrig = Sheets("ECC Forms Table").Range("I14:I18")

    If RiskState.Value = RateTrig.Value Then
        For Each cb In cbRng.CheckBoxes
            cb.Value = True
        Next cb
    End If

End Sub

0 个答案:

没有答案