如何填充excel activex组合框

Question

我试图用VBA做这件事，但我所做的一切都不起作用;

 Me.ComboBox1.AddItem "Apple", 1

组合框中没有任何内容，当我单击向下箭头时没有任何反应。它似乎只是停留在那里并且没有让步，我在开发模式下。谢谢！对不起，我真的很擅长excel

Answer 1

尝试以下内容（添加到ThisWorkbook模块）：

Private Sub Workbook_Open

   With ThisWorkbook.Sheets("Sheet1").ComboBox1
      .AddItem "Apple"
   End With

End Sub

当您打开工作簿时，代码将自动更新组合框。