如何讓 Excel 中的命令按鈕名稱動態變更？

作者Siluvia修改日期2024-10-28

本文介紹如何讓命令按鈕的名稱自動隨指定儲存格的數值更新。例如，當儲存格 A1 的內容變更為「test」時，對應的命令按鈕名稱也會即時更新為「test」。

透過 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

注意：程式碼中的 CommandButton 1 是您要設定為動態變更名稱的按鈕，而 A1 則是用來自動引用其數值作為按鈕名稱的儲存格。

4. 按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

5. 按一下開發人員> 設計模式，即可關閉設計模式。

從現在起，命令按鈕的名稱將自動根據您工作表中指定儲存格的數值動態更新。

如下圖所示，當儲存格 A1 的數值變更時，命令按鈕的名稱會自動同步更新為相同的數值。

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

智慧執行：透過簡易指令，輕鬆執行儲存格操作、分析資料，並建立圖表！
自訂公式：打造專屬公式，讓您的工作流程更順暢！
VBA 編碼：輕鬆撰寫並套用 VBA 程式碼，立即提升工作效率！
公式解析：輕鬆掌握複雜公式！
文字翻譯：輕鬆打破試算表中的語言隔閡！

運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多