excel - 使用条件更改按钮中的文本

Question

我有一小段 VBA 代码，允许我通过单击按钮(通过将宏分配给按钮)来展开和折叠行:

Sub Expand()
Range("4:4").EntireRow.Hidden = Not (Range("4:4").EntireRow.Hidden)
Range("9:9").EntireRow.Hidden = Not (Range("9:9").EntireRow.Hidden)
End Sub

目前，我刚刚在按钮上手动输入了文本“EXPAND”，但是我希望文本顶部在行可见时动态更改为“COLLAPSE”，当行隐藏时显示“EXPAND”。
谢谢你。

Answer 1

如果您使用的是表单控件按钮，则将此宏(在常规/标准模块中)分配给按钮
按照@KekuSemau 在问题评论中的建议进行编辑

Sub Macro1()
With ActiveSheet.Shapes("Button 1")
    If .TextFrame.Characters.Text = "Expand" Then
    .TextFrame.Characters.Text = "Collapse"
    ActiveSheet.Range("4:4,9:9").EntireRow.Hidden = False
    Else
    .TextFrame.Characters.Text = "Expand"
    ActiveSheet.Range("4:4,9:9").EntireRow.Hidden = True
    End If
End With
End Sub

如果您使用的是 ActiveX 控件命令按钮，则将此宏粘贴到相关的工作表 VBA 模块中。确保按钮名称正确。

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Expand" Then
    CommandButton1.Caption = "Collapse"
    ActiveSheet.Range("4:4,9:9").EntireRow.Hidden = False
Else
    CommandButton1.Caption = "Expand"
    ActiveSheet.Range("4:4,9:9").EntireRow.Hidden = True
End If
End Sub