Note: The other languages of the website are Google-translated. Back to English

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 Bookmark 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:

1). Harap ganti "Klik untuk menjalankan Makro"Dan"Rectangle 4”Dengan teks ujung layar Anda dan nama bentuk tertentu.
2). Ganti "PindahBaris" Di barisan "Panggil MoveRow"ke nama makro yang telah Anda tetapkan ke bentuk

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


Terkait artikel:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (8)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Halo, Sub Test() On Error Resume Next Dim xShape As Shape Set xShape = ActiveSheet.Shapes("Rectangle 4") Jika Bukan xShape Bukan Apa-apa Maka _ ActiveSheet.Hyperlinks.Add xShape, "", "", ScreenTip:=" Klik untuk menjalankan Makro " Kode Akhiri Sub Terima berfungsi dengan baik, tetapi menghapus makro yang Ditugaskan. Saat saya menggunakan Tip Layar dan tekan pada bentuk Macro Deosn't work. Apakah ada cara untuk memperbaikinya? Gunakan Tip layar pada bentuk dan pertahankan makro berfungsi? Terima kasih A
Komentar ini diminimalkan oleh moderator di situs
Saya berharap seseorang akan memecahkan masalah ini.
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Silakan coba seperti di bawah ini untuk menyelesaikan masalah.

Langkah 1:
Di lembar kerja berisi bentuk yang akan Anda tampilkan tipnya, klik kanan tab lembar dan pilih Lihat Kode dari menu konteks. Dan kemudian salin VBA di bawah ini ke jendela Kode:

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Jika Target.Address = Range("A1").Address Then
Panggil MoveRow
End If
End Sub

Langkah 2:
Buka jendela kode Modul, salin kode di bawah ini ke jendela Modul.
Silakan ubah "MoveRow" di baris Panggil MoveRow ke nama makro yang Anda tetapkan untuk bentuk, lalu tekan tombol F5 untuk menjalankan kode.
Terima kasih atas komentar anda

Subteks()
Redupkan xShape As Shape
Redupkan xRg Sebagai Rentang
On Error Resume Next
Application.EnableEvents = Salah
Atur xShape = ActiveSheet.Shapes("Rectangle 1")
Jika Tidak xShape Bukan Apa-apa, Maka
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Klik untuk menjalankan Makro "
End If
Jika ActiveSheet.Hyperlinks(1).SubAddress = "A1" Maka
Panggil MoveRow
End If
Application.EnableEvents = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Evadas yang terhormat,
Maaf atas kesalahannya. Silakan coba seperti di bawah ini untuk menyelesaikan masalah.

Langkah 1:
Di lembar kerja berisi bentuk yang akan Anda tampilkan tipnya, klik kanan tab lembar dan pilih Lihat Kode dari menu konteks. Dan kemudian salin VBA di bawah ini ke jendela Kode:

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Jika Target.Address = Range("A1").Address Then
Panggil MoveRow
End If
End Sub

Langkah 2:
Buka jendela kode Modul, salin kode di bawah ini ke jendela Modul.
Silakan ubah "MoveRow" di baris Panggil MoveRow ke nama makro yang Anda tetapkan untuk bentuk, lalu tekan tombol F5 untuk menjalankan kode.
Terima kasih atas komentar anda

Subteks()
Redupkan xShape As Shape
Redupkan xRg Sebagai Rentang
On Error Resume Next
Application.EnableEvents = Salah
Atur xShape = ActiveSheet.Shapes("Rectangle 1")
Jika Tidak xShape Bukan Apa-apa, Maka
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Klik untuk menjalankan Makro "
End If
Jika ActiveSheet.Hyperlinks(1).SubAddress = "A1" Maka
Panggil MoveRow
End If
Application.EnableEvents = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Tidak berfungsi..... jika ada hyperlink yang terkait dengan bentuk maka makro tidak akan berjalan....
Komentar ini diminimalkan oleh moderator di situs
Niall yang terhormat,
Kode berfungsi dengan baik dalam kasus saya. Bisakah Anda memberikan versi Office Anda? Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Niall yang terhormat,
Maaf atas kesalahannya. Silakan coba seperti di bawah ini untuk menyelesaikan masalah.

Langkah 1:
Di lembar kerja berisi bentuk yang akan Anda tampilkan tipnya, klik kanan tab lembar dan pilih Lihat Kode dari menu konteks. Dan kemudian salin VBA di bawah ini ke jendela Kode:

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Jika Target.Address = Range("A1").Address Then
Panggil MoveRow
End If
End Sub

Langkah 2:
Buka jendela kode Modul, salin kode di bawah ini ke jendela Modul.
Silakan ubah "MoveRow" di baris Panggil MoveRow ke nama makro yang Anda tetapkan untuk bentuk, lalu tekan tombol F5 untuk menjalankan kode.
Terima kasih atas komentar anda

Subteks()
Redupkan xShape As Shape
Redupkan xRg Sebagai Rentang
On Error Resume Next
Application.EnableEvents = Salah
Atur xShape = ActiveSheet.Shapes("Rectangle 1")
Jika Tidak xShape Bukan Apa-apa, Maka
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Klik untuk menjalankan Makro "
End If
Jika ActiveSheet.Hyperlinks(1).SubAddress = "A1" Maka
Panggil MoveRow
End If
Application.EnableEvents = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Ubah bentuk Anda menjadi gambar. Gambar memiliki tip alat.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan