为combobox创build.additem

我已经得到了一个关于自动过滤设置的关税清单，以便在select特定销售渠道并且密码正确的情况下，只显示该渠道可用的关税。

我的问题是，我似乎无法弄清楚如何让命令button也填充combobox。

我下面的.additem代码不断返回

“权限被拒绝”错误

 Dim TLoc As Range Dim ws As Worksheet Set ws = Worksheets("Tariff Matrix") Set TLoc = Range("Tariffs") For Each TLoc In ws.Range("Tariffs") With MobilePricing.Tariff1 .AddItem TLoc.Value End With Next TLoc 

任何援助将不胜感激。

Answer 1

首先你需要检查ComboBox的RowSource ，如果它不是空的，清空它。

然后，如果你想只有可见的单元格（在autofiler之后）; 你需要使用Range("Tariffs").SpecialCells(xlCellTypeVisible) 。

这里是你的修改代码：

 Dim TLoc As Range Dim ws As Worksheet Set ws = Worksheets("Tariff Matrix") Set TLoc = Range("Tariffs") For Each TLoc In ws.Range("Tariffs").SpecialCells(xlCellTypeVisible).Cells With MobilePricing.Tariff1 .AddItem TLoc.Value End With Next TLoc 

要循环您的UserForm控件，使用这样的东西：

 Dim Ctrl As Control For Each Ctrl In Me.Controls If TypeName(Ctrl) <> "ComboBox" Then Else MsgBox Ctrl.Object.Name 'Your code for one combobox (everyone will be referenced as Ctrl) End If Next Ctrl