Question

我正在尝试使用工作表“BBB”中的数据填充位于工作表“AAA”中的comboxbox

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

我收到错误

“请求的形状被锁定以供选择”。

我尝试了不同的方法，但无法让它发挥作用。这曾经是一个Dropbox，但我被要求将其更改为组合。

提前致谢

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

Excel VBA ComboBox错误

1 个答案: