论坛新手,请原谅我的格式不正确......
我正在尝试编写一段简单的代码,根据我在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项后自动更新所选范围。
非常感谢任何帮助!