Excel VBA ComboBox錯誤

Question

我正在嘗試使用工作表“ BBB”中的數據填充工作表“ AAA”中的組合框

x = Application.WorksheetFunction.Max(Sheets("BBB").Range("m2:m200")) + 1
Sheets("AAA").Shapes("Drop_Leg").Select
With Selection
    .ListFillRange = "='BBB'!n2:n" & x
End With

我收到錯誤

“鎖定所需的形狀以供選擇”。

我嘗試了不同的方法，但無法使其正常工作。 這曾經是一個保管箱，但我被要求將其更改為組合。

提前致謝

Answer 1

嘗試使用下面的代碼填充Active-X Combo-Box 。

無需使用Select來填充Combo-Box ，它只會減慢代碼的運行時間。

碼

Option Explicit

Sub FillCombo()

Dim x           As Long
Dim ComboRng    As Range

x = Application.WorksheetFunction.Max(Sheets("BBB").Range("M2:M200")) + 1
Set ComboRng = Sheets("BBB").Range("N2:N" & x) '<-- set the Range

With Sheets("AAA").OLEObjects("Drop_Leg").Object
    .Clear ' clear before adding new values
    .List = ComboRng.Value ' populate the list with values from Column N
End With

End Sub