Làm cách nào để đặt tên Nút lệnh thành động trong Excel?
Bài viết này nói về việc làm cho tên của nút Lệnh thay đổi động với các thay đổi giá trị ô được chỉ định. Ví dụ: khi giá trị trong ô A1 được thay đổi thành “kiểm tra”, tên của một nút Lệnh nhất định sẽ tự động được đổi thành “kiểm tra”.
Đặt tên Nút lệnh động với giá trị ô bằng mã VBA
Đặt tên Nút lệnh động với giá trị ô bằng mã VBA
Mã VBA sau có thể giúp bạn đặt tên của nút lệnh động với một giá trị ô được chỉ định trong trang tính. Hãy làm như sau.
1. nhấp chuột Nhà phát triển > Chèn > Nút lệnh (Điều khiển ActiveX) để chèn một nút lệnh vào trang tính. Xem ảnh chụp màn hình:
2. Sau khi chèn nút lệnh, nhấp chuột phải vào tab trang tính và nhấp vào Mã Chế độ xem từ menu chuột phải như hình ảnh chụp màn hình bên dưới:
3. Trong phần mở đầu Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán mã VBA bên dưới vào cửa sổ.
Mã VBA: Đặt tên Nút lệnh động với giá trị ô
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
Chú thích: trong mã, CommandButton1 là tên của nút bạn muốn đặt tên động và A1 là ô mà bạn sẽ tự động tham chiếu giá trị cho tên nút.
4. Nhấn nút Khác + Q chìa khóa để thoát khỏi Microsoft Visual Basic cho các ứng dụng cửa sổ.
5. Tắt Chế độ thiết kế bằng cách nhấp vào Nhà phát triển > Chế độ thiết kế.
Từ bây giờ, tên của Nút lệnh sẽ được thay đổi động với giá trị ô được chỉ định trong trang tính của bạn.
Như ảnh chụp màn hình dưới đây, khi giá trị của ô A1 đã được thay đổi, tên của nút lệnh sẽ tự động được thay đổi thành cùng một giá trị.
Bài viết liên quan:
- Làm cách nào để sử dụng Nút lệnh để lưu trang tính đang hoạt động dưới dạng tệp PDF trong Excel?
- Làm cách nào để tự động chèn một hàng trống mới bằng Nút lệnh trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!