Loncat ke daftar isi utama

 Bagaimana cara menjalankan makro dengan mengklik hyperlink di Excel?

Kode makro mungkin sangat membantu kita untuk menyelesaikan beberapa pekerjaan rumit di Excel, biasanya, kita dapat menjalankannya di Microsoft Visual Basic untuk aplikasi jendela dengan mengklik Run tombol atau menekan F5 kunci. Tapi, pernahkah Anda mencoba menjalankan makro dengan mengklik hyperlink relatif di lembar kerja?

Jalankan atau jalankan makro dengan mengklik hyperlink dengan kode VBA


panah gelembung kanan biru Jalankan atau jalankan makro dengan mengklik hyperlink dengan kode VBA

Mungkin menarik bagi kami untuk memicu makro dengan mengklik hyperlink di Excel, metode berikut dapat membantu Anda mencapai tugas ini selangkah demi selangkah:

1. Buat hyperlink yang ingin Anda gunakan untuk menjalankan kode makro. Silakan klik sel dan buat hyperlink untuk ditautkan ke sel itu sendiri, lihat tangkapan layar:

doc menjalankan makro dari hyperlink 1

2. Ulangi langkah di atas untuk membuat hyperlink lain yang ingin Anda gunakan seperti gambar berikut yang ditampilkan:

doc menjalankan makro dari hyperlink 2

3. Lalu klik kanan tab lembar yang berisi hyperlink yang ingin Anda gunakan, lalu pilih Lihat kode dari menu konteks, dan di buka Microsoft Visual Basic untuk aplikasi jendela, salin dan tempel kode berikut ke dalam Modul kosong:

Kode VBA: Jalankan kode makro dari hyperlink:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$B$6" Then
        Call Macro1
        End If
         If Target.Range.Address = "$B$8" Then
        Call Macro2
         End If
End Sub

doc menjalankan makro dari hyperlink 3

Note: Pada kode di atas, B6 dan B8 adalah sel berisi hyperlink yang ingin Anda gunakan, dan Makro1 dan Makro2 adalah nama kode makro, harap ubah sesuai kebutuhan Anda.

4. Kemudian simpan dan tutup jendela kode, mulai sekarang, ketika Anda mengklik hyperlink, kode makro tertentu akan dieksekusi sekaligus.


Artikel terkait:

Bagaimana cara menjalankan makro saat nilai sel berubah di Excel?

Bagaimana cara menjalankan makro berdasarkan nilai sel di Excel?

Bagaimana cara menjalankan makro berdasarkan nilai yang dipilih dari daftar drop-down di Excel?

Bagaimana cara menjalankan makro secara otomatis sebelum mencetak di Excel?

Bagaimana cara menjalankan makro saat lembar dipilih dari buku kerja?

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
works well
This comment was minimized by the moderator on the site
Me sale un error:

Error de compilaci贸n:
No se ha definido Sub o Function
This comment was minimized by the moderator on the site
Ol谩,

Um dos poucos locais onde encontrei essa solu莽茫o. Muito obrigado! Estou quase l谩. N茫o estou usando uma c茅lula para o hiperlink, mas uma imagem que inseri na planilha e indicando uma c茅lula qualquer como refer锚ncia. Fiz como indicado, mas n茫o funciona (S贸 para verifica莽茫o, fiz com uma c茅lula e deu certo). H谩 alguma modifica莽茫o a ser feita na macro?
This comment was minimized by the moderator on the site
Hello
This is very handy, thank you, however this only works if you are in the cell $B$8. I want to create the same hyperlink, which performs the same macro function, but in every row down the sheet.
ie. I have two tabs, sheet 1 and sheet 2. The user is in Sheet 1, and a macro is run which enters data in sheet 1 and sheet 2 on a row-by-row basis. This works fine, but then i want a macro so that the user can click a link in the next cell and it takes them back to their original row in sheet 1, offset a few cells. I can do this using the above, BUT only if the user is in a set row in sheet 2 (eg $B$8). How can i make it so the macro works when they are in sheet 2 B9, B10, B11....?
This comment was minimized by the moderator on the site
This will assign sheet1 column J, row 2 to 35 with a hyperlink to it's own cell with the text name

Sub whateverName()
For i = 2 To 35 Step 1
ActiveCell.FormulaR1C1 = "name"
Range("J" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'sheet1'!J" & i, TextToDisplay:="name"
Next

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations