我在工作表(Excel 2007)上有一个ActiveX组合框,并根据范围(“X”)中的输入填充组合框。每次Range(“X”)中的输入发生变化时,我都会清除组合框,然后用相关值填充它。下面的代码运行时没有抛出错误,但组合框中没有显示任何项目!我究竟做错了什么?谢谢你的帮助!
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("X")) Is Nothing Then
RiskCombo.Clear
RiskCombo.Enabled = True
RiskCombo.AddItem 1 ' these values depends on value in Range("X")
RiskCombo.AddItem 2
RiskCombo.AddItem 3
End If
End Sub
如果删除此行,代码可以正常工作 -
RiskCombo.Clear
但是我必须清除组合框,否则项目列表将包含不相关的项目。