Bagaimana cara menambahkan ujung mouse ke bentuk tertentu di Excel?

Dalam banyak kasus, Anda perlu menetapkan makro ke bentuk tertentu untuk menjalankan makro dengan mengkliknya di lembar kerja Anda. Setelah menetapkan makro ke bentuk, menambahkan ujung mouse ke atas dapat membantu mengingatkan Anda apa yang dilakukan bentuk tersebut di masa mendatang. Artikel ini memperlihatkan dua metode untuk menambahkan ujung mouse ke bentuk tertentu di Excel.

Tambahkan ujung mouse ke bentuk tertentu dengan menambahkan hyperlink
Tambahkan ujung mouse ke bentuk tertentu dengan kode VBA

Tambahkan ujung mouse ke bentuk tertentu dengan menambahkan hyperlink

Anda dapat menambahkan hyperlink dengan TipLayar ke bentuk tertentu di lembar kerja. Silakan lakukan sebagai berikut.

1. Klik kanan bentuk yang Anda perlukan untuk menambahkan ujung mouse ke atas, lalu klik Hyperlink dari menu klik kanan. Lihat tangkapan layar:

2. Dalam Sisipkan Hyperlink kotak dialog, klik Tip Layar tombol. Dan di Atur Hyperlink ScreenTip kotak dialog, masukkan teks tip layar yang perlu Anda tampilkan saat mengarahkan mouse ke atas bentuk. Terakhir, klik OK tombol. Lihat tangkapan layar:

3. Ketika kembali ke Sisipkan Hyperlink kotak dialog, klik Tandai tombol. Kemudian masukkan A1 ke dalam kotak Type in the cell reference pada Pilih Tempatkan di Dokumen kotak dialog, dan terakhir klik OK .

4. Klik OK tombol di Sisipkan Hyperlink kotak dialog untuk menyelesaikan pembuatan hyperlink.

Sekarang Anda dapat melihat ujung layar yang ditampilkan saat mengarahkan kursor ke bentuk dengan mouse.

Tambahkan ujung mouse ke bentuk tertentu dengan kode VBA

Anda dapat dengan mudah menambahkan ujung mouse ke bentuk tertentu setelah menjalankan kode VBA berikut.

1. Buka lembar kerja berisi bentuk yang akan Anda tampilkan tip saat menggerakkan mouse. Klik kanan tab lembar dan kemudian klik Lihat Kode dari menu konteks.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, harap salin kode VBA di bawah ini ke jendela Kode.

Kode VBA 1: Tambahkan ujung mouse ke bentuk tertentu

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. klik Menyisipkan > Modul. Kemudian masukkan kode VBA di bawah ini ke jendela Modul.

Kode VBA 2: Tambahkan ujung mouse ke bentuk tertentu

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

Catatan:

3. tekan F5 kunci untuk menjalankan kode. Kemudian ujung layar yang ditentukan segera ditambahkan ke bentuk tertentu.

Terkait artikel:

• Bagaimana cara mengubah ukuran bentuk secara otomatis berdasarkan / bergantung pada nilai sel yang ditentukan di Excel?
• Bagaimana cara mengisi bentuk dengan warna latar transparan di Excel?
• Bagaimana cara menyembunyikan atau menampilkan bentuk tertentu berdasarkan nilai sel yang ditentukan di Excel?