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

网友投稿 188 2024-01-05

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

本文讨论的是通过指定的单元格值更改来动态更改“命令”按钮的名称。 例如,当单元格A1中的值已更改为“ test”时,某个“命令”按钮的名称将自动更改为“ test”。

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

通过VBA代码使用单元格值使命令按钮名称动态化
惊人的! 在 Excel 中使用高效的选项卡,如 Chrome、Firefox 和 Safari! 每天节省50%的时间,并减少数千次鼠标单击!

下面的VBA代码可以帮助您在工作表中使用指定的单元格值使命令按钮的名称动态化。 请执行以下操作。

1。 点击 开发商 > 插页 > 命令按钮(ActiveX控件) 在工作表中插入命令按钮。 看截图:

2.插入命令按钮后,右键单击工作表选项卡,然后单击 查看代码 从右键单击菜单中,如下所示的屏幕截图:

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

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
Copy
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...

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:如何根据Excel中的单元格值选中复选框?
下一篇:如何在Excel中创建允许自由文本(手动输入)的下拉列表?
相关文章