Userform ComboBox启用文本框

时间:2014-01-17 16:00:41

标签: vba excel-vba excel-2007 excel

我有一个带有组合框和多个文本框的用户表单。我使用了用于组合框的BeforeUpdate事件来确定在给定时间启用了字段中的哪些框。我遇到的问题是,每当我更改组合框时,在我点击其中一个框之前,框没有启用或禁用。在进行组合框选择后,是否可以刷新所有方框?我已经包含了我正在使用的代码示例;根据6种不同的组合框选项,有27个文本框被启用或禁用。谢谢!

Private Sub AdminCombo_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If AdminCombo = "Composite" Then
        AdminCompCurr.Enabled = True
        AdminCompRenNum.Enabled = True
        AdminCompRenPer.Enabled = True
        AdminEEOnlyCurr.Enabled = False
        AdminEEOnlyRenNum.Enabled = False
        AdminEEOnlyRenPer.Enabled = False
    End If
End Sub

1 个答案:

答案 0 :(得分:1)

所以我们在这里有答案供将来使用。

更改行:

Private Sub AdminCombo_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

Private Sub AdminCombo_Change(ByVal Cancel As MSForms.ReturnBoolean)

这会在更改组合框后使用事件来更新所需的文本框。