如何在 Excel 中使命令按钮名称动态化？

本文讨论的是如何使命令按钮的名称随着指定单元格值的变化而动态更改。例如，当单元格 A1 的值更改为“测试”时，某个命令按钮的名称将自动更改为“测试”。

通过 VBA 代码根据单元格值使命令按钮名称动态化

通过 VBA 代码根据单元格值使命令按钮名称动态化

以下 VBA 代码可以帮助您根据工作表中的指定单元格值使命令按钮的名称动态化。请按照以下步骤操作：

1. 单击 开发工具 > 插入 > 命令按钮（ActiveX 控件） 将命令按钮插入到工作表中。见截图：

2. 插入命令按钮后，右键单击工作表标签，并从右键菜单中选择 查看代码 ，如下截图所示：

3. 在打开的 Microsoft Visual Basic for Applications 窗口中，请复制并粘贴以下 VBA 代码到窗口中。

VBA 代码：根据单元格值使命令按钮名称动态化

Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xShapeRg As ShapeRange
    On Error Resume Next
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        Me.CommandButton1.Caption = Target.Text
        Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
        If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
        Application.EnableEvents = False
        xShapeRg.Select
        Application.EnableEvents = True
        Selection.Name = Target.Text
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
        xStr = Target.Text
    End If
End Sub

备注：在代码中，CommandButton1 是要使其名称动态化的按钮名称，A1 是将自动引用其值作为按钮名称的单元格。

4. 按 Alt + Q 键退出 Microsoft Visual Basic for Applications 窗口。

5. 单击 开发工具 > 设计模式 关闭设计模式。

从现在开始，命令按钮的名称将随着工作表中指定单元格值的变化而动态更改。

如下截图所示，当单元格 A1 的值发生变化时，命令按钮的名称将自动更改为相同的值。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在 Excel 中使用命令按钮将活动工作表保存为 PDF 文件？
• 如何在 Excel 中通过命令按钮自动插入一个空白新行？