如何复制组合框以便单元格链接自动更改

Question

是否可以复制创建的组合框并将其粘贴到另一个单元格中，以便 该单元格链接也更改了吗？

我使用 Excel 2007 进行这项工作。

示例：我在 A5 中有组合框，单元格链接指向 B5。我想复制 组合框指向单元格 A4，单元格链接指向 B4。

我需要复制 50 多个组合框。当我按下包含宏的命令按钮来复制整行并将其全部插入到新行时，我尝试使用它。

我找到了一个答案，但 VBA 显示“编译错误：用户定义的类型未定义！”并且“TypeOf cbo.Object Is msforms.ComboBox”为粗体。

我发现的宏：

Sub Test()
    Dim cbo As OLEObject

    For Each cbo In ActiveSheet.OLEObjects
        If TypeOf cbo.Object Is msforms.ComboBox Then
            cbo.LinkedCell = cbo.TopLeftCell.Offset(, 1).Address
        End If
    Next
End Sub

Answer 1

最初的答案让我走上了正轨，适用于“ActiveX 控件”。我需要使用标准 Excel“表单控件”组合框执行相同的操作，它非常相似，只是它是一个形状对象并且需要选择它才能进行操作。这是我的代码，对我有用：

Sub AllocateLinkedCellsToComobBoxes()

Dim myShape As Shape

For Each myShape In ActiveSheet.Shapes
    If myShape.Type = msoFormControl Then
        If myShape.FormControlType = xlDropDown Then
            myShape.Select
            Selection.LinkedCell = Selection.TopLeftCell.Address
        End If
    End If
Next

End Sub

Answer 2

Reima，

如果您使用“控件工具箱”工具栏中的控件，则以下内容应该有效。唯一的区别是它不是 MSForms.Combobox。 ：

Sub Test()
Dim cbo As OLEObject

For Each cbo In ActiveSheet.OLEObjects
    If TypeOf cbo.Object Is ComboBox Then
        cbo.LinkedCell = cbo.TopLeftCell.Offset(, 1).Address
    End If
Next    
End Sub

如果您使用“表单”工具栏中的组合框，那么我不确定最好的方法是什么。我想尝试使用上面的方法。