无法将项目添加到组合框中

Question

我已尝试过这些网站寻求帮助：

• excel-easy.com
• sitestory.dk
• ozgrid.com
• stackoverflow.com
• contextures.com
• microsoft.com

非常感谢帮助！

这是我的代码：

Private Sub FusegearPerformanceUserForm1()
    With FailureComboBox
        .AddItem "japp"
    End With
End Sub

Answer 1

操纵Excel中的控件让我困惑了一段时间，直到我意识到它们有两种，这可能是你困惑的一部分。例如，有：

• 表单控件组合框，

• ActiveX控件组合框。

两个人的表现，行为和控制方式相似，但不完全相同。

_{点击图片放大：}

我意识到这不是你的问题，但我认为我应该确保你能确定你正在使用哪种控制，因此确保你正在使用（和谷歌搜索）正确的信息 - 尤其是自条款＆＃34;组合框＆＃34;和＃34;下拉框＆＃34;经常互换使用。与BA组合框控件相关的Google搜索Vcode在50％的情况下都会出错，因此您需要更加具体。

AS代码差异：

FORM CONTROL组合框

'add item
ActiveWorkbook.Sheets("Sheet1").Shapes("Drop Down 1").ControlFormat.AddItem "abcd"

'remove all items
ActiveWorkbook.Sheets("Sheet1").Shapes("Drop Down 1").ControlFormat.RemoveAllItems


'https://analysistabs.com/vba-code/activex-controls/combobox/

ACTIVEX CONTROL组合框

'add item
ActiveWorkbook.Sheets("Sheet1").ComboBox1.AddItem "abcd"

'remove all items
ActiveWorkbook.Sheets("Sheet1").ComboBox1.Clear

更多信息：

• Different Types of Combo Boxes Explained

• VBA ComboBox

• MSDN：VBA Shape Members

Answer 2

所以，只是为了完成：

此问题的解决方案是，文件以XLSX格式保存，不能包含VBA代码。以XLSM格式保存文件后，一切按预期工作。