Bỏ qua nội dung chính

Làm cách nào để thêm đầu chuột qua một hình dạng nhất định trong Excel?

Trong nhiều trường hợp, bạn cần gán macro cho một hình dạng nhất định để chạy macro bằng cách nhấp vào nó trong trang tính của bạn. Sau khi gán macro cho hình dạng, việc thêm đầu chuột qua có thể giúp bạn nhắc nhở bạn về chức năng của hình dạng trong tương lai. Bài viết này chỉ cho bạn hai phương pháp để thêm đầu chuột qua một hình dạng nhất định trong Excel.

Thêm đầu chuột qua vào một hình dạng nhất định bằng cách thêm siêu liên kết
Thêm đầu chuột qua một hình dạng nhất định với mã VBA

Thêm đầu chuột qua vào một hình dạng nhất định bằng cách thêm siêu liên kết

Bạn có thể thêm siêu liên kết với Mẹo màn hình vào một hình dạng nhất định trong trang tính. Hãy làm như sau.

1. Nhấp chuột phải vào hình dạng bạn cần thêm chuột qua đầu, sau đó nhấp vào Liên kết từ menu chuột phải. Xem ảnh chụp màn hình:

2. bên trong Chèn siêu liên kết hộp thoại, nhấp vào Mẹo màn hình cái nút. Và trong Đặt Mẹo màn hình siêu liên kết hộp thoại, nhập văn bản mẹo màn hình bạn cần hiển thị khi di chuột qua hình dạng. Cuối cùng nhấp vào OK cái nút. Xem ảnh chụp màn hình:

3. Khi nó trở về Chèn siêu liên kết hộp thoại, nhấp vào Bookmark cái nút. Sau đó, nhập A1 vào Loại trong hộp tham chiếu ô của Chọn Vị trí trong Tài liệu và cuối cùng nhấp vào OK .

4. Nhấp vào OK nút trong Chèn siêu liên kết hộp thoại để kết thúc việc tạo siêu kết nối.

Bây giờ bạn có thể thấy mẹo màn hình hiển thị khi di chuột qua hình dạng.

Thêm đầu chuột qua một hình dạng nhất định với mã VBA

Bạn có thể dễ dàng thêm đầu chuột qua một hình dạng nhất định sau khi chạy mã VBA sau.

1. Mở trang tính có chứa hình dạng mà bạn sẽ hiển thị mẹo khi di chuyển chuột qua. Nhấp chuột phải vào tab trang tính và sau đó nhấp vào Mã Chế độ xem từ trình đơn ngữ cảnh.

2. bên trong Microsoft Visual Basic cho các ứng dụng , vui lòng sao chép mã VBA bên dưới vào cửa sổ Mã.

Mã VBA 1: Thêm đầu chuột qua một hình dạng nhất định

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 2018/3/30
    If Target.Address = Range("A1").Address Then
        Call MoveRow
    End If
End Sub

3. nhấp chuột Chèn > Mô-đun. Sau đó nhập mã VBA bên dưới vào cửa sổ Mô-đun.

Mã VBA 2: Thêm đầu chuột qua một hình dạng nhất định

Sub Text()
'Updated by Extendoffice 2018/3/30
    Dim xShape As Shape
    Dim xRg As Range
    On Error Resume Next
    Application.EnableEvents = False
    Set xShape = ActiveSheet.Shapes("Rectangle 4")
    If Not xShape Is Nothing Then
        ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
    End If
    If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
        Call MoveRow
    End If
    Application.EnableEvents = True
End Sub

Chú ý:

1). Vui lòng thay thế “Nhấp để chạy Macro"Và"Hình chữ nhật 4”Với văn bản mẹo trên màn hình của bạn và tên của hình dạng nhất định.
2). Thay thế "Di chuyển hàng"trong hàng"Gọi MoveRow"cho tên macro mà bạn đã gán cho hình dạng

3. Nhấn nút F5 phím để chạy mã. Sau đó, mẹo màn hình được chỉ định sẽ được thêm vào hình dạng nhất định ngay lập tức.

Các bài liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn   |  Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô   |  Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

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

Mô 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!
Comments (8)
No ratings yet. Be the first to rate!
David Darby
David Darby
This comment was minimized by the moderator on the site
Convert your shape to an image. Images have tool tips.
Reply
0
0
Niall
Niall
This comment was minimized by the moderator on the site
Doesn't work..... if there is a hyperlink associated with the shape then the macro will not run....
Reply
0
0
crystal
crystal     Niall
This comment was minimized by the moderator on the site
Dear Niall,
Sorry for the mistake. Please try as below to solve the problem.

Step 1:
In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Call MoveRow
End If
End Sub

Step 2:
Open the Module code window, copy below code into the Module window.
Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
Thank you for your comment.

Sub Text()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Set xShape = ActiveSheet.Shapes("Rectangle 1")
If Not xShape Is Nothing Then
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
End If
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
Call MoveRow
End If
Application.EnableEvents = True
End Sub
Reply
Report
0
0
crystal
crystal     Niall
This comment was minimized by the moderator on the site
Dear Niall,
The code works well in my case. Can you provide your Office version? Thank you for your comment.
Reply
Report
0
0
Evaldas
Evaldas
This comment was minimized by the moderator on the site
Hello, Sub Test() On Error Resume Next Dim xShape As Shape Set xShape = ActiveSheet.Shapes("Rectangle 4") If Not xShape Is Nothing Then _ ActiveSheet.Hyperlinks.Add xShape, "", "", ScreenTip:="Click to run Macro " End Sub Thank code works great, but it removes Assigned macro. When i use Screen Tip and press on shape Macro Deosn't work. Is any way to fix that? Use Screen tip on shape and keep macro working? Thank youĄ
Reply
0
0
crystal
crystal     Evaldas
This comment was minimized by the moderator on the site
Dear Evaldas,
Sorry for the mistake. Please try as below to solve the problem.

Step 1:
In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Call MoveRow
End If
End Sub

Step 2:
Open the Module code window, copy below code into the Module window.
Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
Thank you for your comment.

Sub Text()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Set xShape = ActiveSheet.Shapes("Rectangle 1")
If Not xShape Is Nothing Then
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
End If
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
Call MoveRow
End If
Application.EnableEvents = True
End Sub
Reply
Report
0
0
Ringleader
Ringleader     Evaldas
This comment was minimized by the moderator on the site
I wish someone would solve this problem.
Reply
0
0
crystal
crystal     Ringleader
This comment was minimized by the moderator on the site
Good Day,
Please try as below to solve the problem.

Step 1:
In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Call MoveRow
End If
End Sub

Step 2:
Open the Module code window, copy below code into the Module window.
Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
Thank you for your comment.

Sub Text()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Set xShape = ActiveSheet.Shapes("Rectangle 1")
If Not xShape Is Nothing Then
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
End If
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
Call MoveRow
End If
Application.EnableEvents = True
End Sub
Reply
Report
1
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations