如何激活ActiveX ComboBox Change事件?

时间:2017-06-21 06:21:33

标签: excel vba excel-vba combobox

论坛新手,请原谅我的格式不正确......

我正在尝试编写一段简单的代码,根据我在ComboBox中选择的项目,将静态值填充到一个范围内。到目前为止,我已尝试使用ComboBox_Change,ComboBox_Click,ComboBox_AfterUpdate和ComboBox_LostFocus,但在选择其中一个ComboBox项目时,这些选项都不会更新我的工作表。

以下代码是我目前所拥有的......

Private Sub Workbook_open()
  Sheet8.ComboBox1.Clear
    With Sheet8.ComboBox1
      .AddItem "OK"
      .AddItem "TX"
  End With
End Sub 

Private Sub ComboBox_Change()
  Select Case Sheet8.ComboBox1.Value
    Case "TX"
        Sheet8.Range("H4:H364").Value = 0.046
        Sheet8.Range("I4:I364").Value = 0.075
    Case "OK"
        Sheet8.Range("H4:H52").Value = 0.04
        Sheet8.Range("H53:H364").Value = 0.07
        Sheet8.Range("I4:I364").Value = 0.07
  End Select
End Sub

在功能上,代码在宏窗口中手动单击“运行”后工作。但是,我的目标是在选择其中一个ComboBox项后自动更新所选范围。

非常感谢任何帮助!

0 个答案:

没有答案