excel中的组合框使用vba代码？

Question

此代码使用给定值创建下拉列表，但如果我选择一个特定值，则整个列表在下拉列表中重新生成，如何避免这种情况？

TypeError: Cannot read property 'clicked' of undefined

Answer 1

正如上面的评论所指出的，这是一种初始化ComboBox的奇怪方法，因为每次更改ComboBox的值时都会运行此代码。最好只运行一次此代码（当打开Excel文件或激活该工作表或其他事件时）。

然而，如果你想坚持上述方法，那么我建议采用以下解决方案：

Option Explicit

Sub ComboBox1_Change()

Dim tmp As String
With Sheet1.ComboBox1
    tmp = .Value
    .Clear
    .AddItem "0"
    .AddItem "5"
    .AddItem "10"
    .AddItem "25"
    .AddItem "30"
    .Value = tmp
End With

End Sub