寵物展會2025年時間表
420
2025-03-31
如何在Excel中使命令按鈕名稱動態化？
如何在Excel中使命令按鈕名稱動態化？
本文討論的是通過指定的單元格值更改來動態更改“命令”按鈕的名稱。 例如，當單元格A1中的值已更改為“ test”時，某個“命令”按鈕的名稱將自動更改為“ test”。
通過VBA代碼使用單元格值使命令按鈕名稱動態化
通過VBA代碼使用單元格值使命令按鈕名稱動態化
驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！
每天節省50％的時間，并減少數千次鼠標單擊！
下面的VBA代碼可以幫助您在工作表中使用指定的單元格值使命令按鈕的名稱動態化。 請執行以下操作。
1。 點擊 開發商 > 插頁 > 命令按鈕（ActiveX控件） 在工作表中插入命令按鈕。 看截圖：
2.插入命令按鈕后，右鍵單擊工作表選項卡，然后單擊 查看代碼 從右鍵單擊菜單中，如下所示的屏幕截圖：
3.在開幕 Microsoft Visual Basic應用程序 窗口，請復制以下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
Note: in the code, CommandButton1 is the name of the button you want to make its name dynamic, and A1 is the cell which you will reference the value to the button name automatically.
4. Press the Alt + Q keys to exit the Microsoft Visual Basic for Applications window.
5. Turn off the Design Mode by clicking Developer > Design Mode.
From now on, the name of the Command Button will be changed dynamically with the specified cell value in your worksheet.
As below screenshot shown, when the value of cell A1 has been changed, the name of the command button will be changed to the same value automatically.
Related Articles:
How to use Command Button to save active worksheet as PDF file in Excel?
How to insert a blank new row automatically by Command Button in Excel?
Best Office Productivity Tools
Transform Hours into Minutes with Kutools for Excel!
Ready to supercharge your Excel tasks? Harness the power of Kutools for Excel - your ultimate time-saving tool. Streamline intricate tasks and glide through your data like a pro. Experience Excel at lightning speed!
Why You Need Kutools for Excel
??? Over 300 Powerful Features: Kutools is packed with more than 300 advanced features, simplifying your work in over 1500 scenarios.
?? Superior Data Processing: Merge cells, remove duplicates, and perform advanced data conversions – all without breaking a sweat!
?? Efficient Batch Operations: Why put in extra effort when you can work smart? Import, export, combine, and tweak data in bulk with ease.
?? Customizable Charts and Reports: Access a broad variety of additional charts and generate insightful reports that tell a story.
??? Powerful Navigation Pane: Gain an advantage with the robust Column Manager, Worksheet Manager, and Custom Favorites.
?? Seven Types of Drop-down Lists: Make data entry a breeze with drop-down lists of various features and types.
?? User-Friendly: A breeze for beginners and a powerful tool for experts.
Download Now and Soar Through Time with Excel!
Read More... Free Download... Purchase...
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
Open and create multiple documents in new tabs of the same window, rather than in new windows.
Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
Read More... Free Download... Purchase...
Copy
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
