表单控件ComboBox宏复制到其他单元格后失效问题求助

问题情况 #

• 原功能：第17行的表单控件ComboBox选择“Release”选项时，自动隐藏第18行，运行正常。
• 故障：将该ComboBox复制到第23行（或其他行）后，隐藏/显示行的功能完全失效；新建ComboBox再复制也出现相同问题。
• 原VBA代码：

Sub ComboBox5_Change()
cb = ActiveSheet.Shapes("ComboBox5").TopLeftCell.row

With ActiveSheet.Shapes("ComboBox5")
    Cells(cb, 5) = .ControlFormat.List(.ControlFormat.ListIndex)
    If .ControlFormat.List(.ControlFormat.ListIndex) = "Courier" Then
        ActiveSheet.Range(Cells(cb + 1, 1), Cells(cb + 1, 1)).EntireRow.Hidden = False
    Else
        ActiveSheet.Range(Cells(cb + 1, 1), Cells(cb + 1, 1)).EntireRow.Hidden = True
    End If
End With
End Sub

失效原因 #

原代码硬编码了控件名称"ComboBox5"，Excel复制表单控件时会自动给新控件分配递增名称（比如ComboBox6、ComboBox7...），但代码始终只查找"ComboBox5"，导致复制后的控件触发Change事件时，代码无法定位到当前操作的控件，自然执行不了隐藏/显示行的逻辑。

解决方法 #

修改代码，用Application.Caller动态获取当前触发事件的控件名称，让代码适配任意复制出来的ComboBox。修改后的代码如下：

Sub ComboBox_Change()
    Dim cbName As String
    Dim cbRow As Integer
    Dim cbShape As Shape
    
    ' 获取当前触发事件的控件名称
    cbName = Application.Caller
    Set cbShape = ActiveSheet.Shapes(cbName)
    cbRow = cbShape.TopLeftCell.Row
    
    With cbShape.ControlFormat
        ' 将选中值写入控件所在行的E列（第5列）
        Cells(cbRow, 5) = .List(.ListIndex)
        
        ' 根据选中值控制下一行的显示/隐藏
        If .List(.ListIndex) = "Courier" Then
            Rows(cbRow + 1).EntireRow.Hidden = False
        Else
            Rows(cbRow + 1).EntireRow.Hidden = True
        End If
    End With
End Sub

操作步骤 #

1. 删除原来的ComboBox5_Change过程，替换成上面的代码。
2. 选中所有需要绑定该逻辑的ComboBox（包括原有的和复制出来的），右键选择指定宏，选择新的ComboBox_Change宏并确定。

这样不管复制多少个ComboBox，每个控件触发Change事件时，都会正确定位自己所在的行，执行对应的显示/隐藏操作。

内容的提问来源于stack exchange，提问作者EKEKEK