如何在excel中使用vba創建和填充activex組合框。

Question

我在嘗試創建並隨後在vba中爲excel填充activex組合框時遇到問題。下面的代碼在以兩個獨立的宏運行時工作，但是當我嘗試將兩者放在一起時創建一個空的組合框。有人可以告訴我爲什麼這是和如何克服這個問題？

由於提前， JW

Sub CreateComboBox1() 
    'Creating ComboBox1: 
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _ 
       Link:=False, DisplayAsIcon:=False, Left:=50, Top:=80, Width:=100, _ 
       Height:=15).Select 
    End Sub 

    Sub PopulateComboBox1() 
    'Populating ComboBox1 
    Sheet1.ComboBox1.AddItem "Date", 0 
    Sheet1.ComboBox1.AddItem "Player", 1 
    Sheet1.ComboBox1.AddItem "Team", 2 
    Sheet1.ComboBox1.AddItem "Goals", 3 
    Sheet1.ComboBox1.AddItem "Number", 4 
    End 

Answer 1

試試這個

Sub CreateComboBox1() 
    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _ 
       Link:=False, DisplayAsIcon:=False, Left:=50, Top:=80, Width:=100, _ 
       Height:=15) 
     With .Object 
      .AddItem "Date" 
      .AddItem "Player" 
      .AddItem "Team" 
      .AddItem "Goals" 
      .AddItem "Number" 
     End With 
    End With 
End Sub