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