在循环中填充多个 excel 下拉菜单

Question

我有一个 for 循环，它在 excel sheet 的不同部分创建多个下拉菜单。但是我很难用列表来填充这些。该列表应该从 ws 中的 sheets 中获取。我想这里的 问题是，在命名我的组合框时，它没有被指定为对象 。这是我的代码。有人知道如何做到这一点吗？提前致谢。

Private Sub CommandButton1_Click()

Set ws = Sheets(Array("rpi301", "rpi302", "rpi303", "rpi304", "rpi305"))

For Each Sh In ws
    Set Cell = Range(Sh.Range("B8").Value & CStr(Sh.Range("B9").Value))
    With Cell
        ActiveSheet.DropDowns.Add(.Left, .Top, .Width, .Height).Name = "Combo"
        ActiveSheet.Shapes("Combo").ControlFormat.ListFillRange = Sh.Range("B2:B7")
    End With
Next 
End Sub

Answer 1

代码正确。但是问题是什么命名下拉菜单。他们应该有唯一的名字。

在循环中填充多个 excel 下拉菜单

fill multiple excel dropdowns in a loop

excel

vba

dropdownbox