如何在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, com
bine, 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...