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

Bagaimana cara menghitung total klik dalam sel tertentu di Excel?

Artikel ini berbicara tentang menghitung total klik dalam sel tertentu di Excel.

Hitung total klik dalam sel tertentu dengan kode VBA


Hitung total klik dalam sel tertentu dengan kode VBA

Lakukan hal berikut untuk menghitung total klik dalam sel tertentu di Excel.

1. Di lembar kerja berisi sel yang Anda butuhkan untuk menghitung klik totalnya, klik kanan tab lembar, lalu klik Lihat kode dari menu konteks

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

Kode VBA: Hitung total klik dalam sel tertentu di Excel

Public xRgS, xRgD As Range
Public xNum As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    Set xRgS = Range("E2")
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Range("H2")
    If xRgD Is Nothing Then Exit Sub
    If Intersect(xRgS, Target) Is Nothing Then Exit Sub
    xNum = xNum + 1
    xRgD.Value = xNum
End Sub

Note: Dalam kode, E2 adalah sel yang Anda butuhkan untuk menghitung klik totalnya, dan H2 adalah sel keluaran dari penghitungan. Harap ubah sesuai kebutuhan Anda.

3. tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Mulai sekarang, saat mengklik sel E2 di lembar kerja yang ditentukan ini, total klik akan terisi secara otomatis di sel H2 seperti gambar di bawah ini. Misalnya, jika Anda mengklik sel E2 sebanyak 5 kali, angka 5 akan ditampilkan di sel H2.


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-2021 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (29)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda bisa "mengatur ulang" penghitung?
Komentar ini diminimalkan oleh moderator di situs
Dennis yang terhormat,
Silakan tambahkan kode VBA di bawah ini di akhir kode asli. Setiap kali Anda menjalankan kode ini, penghitungan akan diatur ulang ke 0. Terima kasih atas komentar Anda.

Sub ClearCount()
xRgD.Nilai = ""
xNum = 0
End Sub
Komentar ini diminimalkan oleh moderator di situs
Kristal,

Bisakah Anda memberikan kode VBA lengkap - untuk ini? juga bagaimana saya menerapkannya ke satu baris - masing-masing membutuhkan penghitungnya sendiri?
Komentar ini diminimalkan oleh moderator di situs
Hai,
Kode VBA lengkapnya adalah sebagai berikut. Jika Anda ingin mengatur ulang penghitung, jalankan kode VBA kedua. Untuk menerapkan kode ke satu baris, maaf belum bisa membantu Anda.

'VBA pertama
xRgS publik, xRgD Sebagai Rentang
xNum Publik Selamanya
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
On Error Resume Next
Jika Target.Cells.Count > 1 Kemudian Keluar Sub
Tetapkan xRgS = Rentang("E2")
Jika xRgS Bukan Apa-apa Kemudian Keluar dari Sub
Tetapkan xRgD = Rentang("H2")
Jika xRgD Bukan Apa-apa Kemudian Keluar dari Sub
Jika Intersect(xRgS, Target) Bukan Apa-apa Kemudian Keluar Sub
xJumlah = xJumlah + 1
xRgD.Nilai = xNum
End Sub
'VBA kedua
Sub ClearCount()
xRgD.Nilai = ""
xNum = 0
End Sub
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas kodenya, sangat berguna.
Saya bukan seorang programmer dan saya ingin tahu bagaimana memperluas proses ini ke setiap baris. Artinya, tidak hanya E2>H2 tetapi juga E3>H3, E4>H4, dan seterusnya.
Apakah ada kode untuk ini?


Terima kasih sebelumnya!
Komentar ini diminimalkan oleh moderator di situs
Hai Guido,

Kode VBA di bawah ini dapat membantu Anda mengatasi masalah tersebut. Silakan coba. Terima kasih atas komentar Anda.
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRgArray Sebagai Varian
redup xNum
Redupkan xStrR, xStrS, xStrD Sebagai String
Redupkan xRgS, xRgD Sebagai Rentang

Redupkan xFNum Selamanya
xRgArray = Array("E2,H2", "E3,H3", "E4,H4", "E5,H5", "E6,H6")
On Error Resume Next
Jika Target.Cells.count > 1 Kemudian Keluar Sub
Untuk xFNum = LBound(xRgArray) Ke UBound(xRgArray)
xStrR = xRgArray(xFNum)
xStrS = ""
xStrS = Kiri(xStrR, 2)
xStrD = ""
xStrD = Kanan(xStrR, 2)
Tetapkan xRgS = Tidak ada
Tetapkan xRgS = Rentang(xStrS)
Jika TypeName(xRgS) <> "Tidak Ada" Lalu
Tetapkan xRgD = Tidak ada
Tetapkan xRgD = Rentang(xStrD)
Jika TypeName(xRgD) <> "Tidak Ada" Lalu
If TypeName(Intersect(xRgS, Target)) <> "Tidak ada" Lalu
xRgD.Nilai = xRgD.Nilai + 1
End If
End If
End If
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk ini. Saya mencoba dan berhasil, namun hanya berfungsi hingga jumlah sel tertentu, bagaimana kami dapat memperpanjang kode ini hingga akhir sel? misalnya saya ketik kode di bawah ini dan hanya bekerja sampai "G9,G9". terima kasih


Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRgArray Sebagai Varian
redup xNum
Redupkan xStrR, xStrS, xStrD Sebagai String
Redupkan xRgS, xRgD Sebagai Rentang

Redupkan xFNum Selamanya
xRgArray = Array("C4,C4", "D4,D4", "E4,E4", "F4,F4", "G4,G4", "C6,C6", "D6,D6", "E6,E6 ", "F6,F6", "G6,G6", "C7,C7", "D7,D7", "E7,E7", "F7,F7", "G7,G7", "C8,C8", "D8,D8", "E8,E8", "F8,F8", "G8,G8", "C9,C9", "D9,D9", "E9,E9", "F9,F9", "G9 ,G9", "C10,C10", "D10,D10", "E10,E10", "F10,F10", "G10,G10", "C11,C11", "D11,D11", "E11,E11 ", "F11,F11", "G11,G11", "C14,C14", "D14,D14", "E14,E14", "F14,F14", "G14,G14", "C15,C15", "D15,D15", "E15,E15", "F15,F15", "G15,G15", "C16,C16", "D16,D16", "E16,E16", "F16,F16", "G16 ,G16", "C17,C17", "D17,D17", "E17,E17", "F17,F17", "G17,G17", "C18,C18", "D18,D18", "E18,E18 ", "F18,F18", "G18,G18", "C20,C20", "D20,D20", "E20,E20", "F20,F20", "G20,G20")
On Error Resume Next
Jika Target.Cells.count > 1 Kemudian Keluar Sub
Untuk xFNum = LBound(xRgArray) Ke UBound(xRgArray)
xStrR = xRgArray(xFNum)
xStrS = ""
xStrS = Kiri(xStrR, 2)
xStrD = ""
xStrD = Kanan(xStrR, 2)
Tetapkan xRgS = Tidak ada
Tetapkan xRgS = Rentang(xStrS)
Jika TypeName(xRgS) <> "Tidak Ada" Lalu
Tetapkan xRgD = Tidak ada
Tetapkan xRgD = Rentang(xStrD)
Jika TypeName(xRgD) <> "Tidak Ada" Lalu
If TypeName(Intersect(xRgS, Target)) <> "Tidak ada" Lalu
xRgD.Nilai = xRgD.Nilai + 1
End If
End If
End If
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai Rut,
Kode ini sulit dioptimalkan untuk memenuhi kebutuhan Anda. Maaf tentang itu.
Komentar ini diminimalkan oleh moderator di situs
kode tidak membaca nomor sel dua digit yaitu C10 mengapa ini tolong
Komentar ini diminimalkan oleh moderator di situs
Halo, Kristal. Saya telah mencoba rumus ini, tetapi hanya melaporkan melalui baris 9. Saya tidak akan menghitung baris 10 dan seterusnya. Misalnya, saya telah menyesuaikan rumus di atas untuk menghitung klik individual di A4, untuk melaporkan ke E5; A5 untuk melapor ke E5; A6 untuk melaporkan ke E6, dll. Rentang total adalah A4 hingga A17, total pelaporan adalah E4 hingga E17. Bisakah Anda membantu? Berikut adalah kode yang dimodifikasi yang saya gunakan.



Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRgArray Sebagai Varian
redup xNum
Redupkan xStrR, xStrS, xStrD Sebagai String
Redupkan xRgS, xRgD Sebagai Rentang

Redupkan xFNum Selamanya
xRgArray = Array("A4,E4", "A5,E5", "A6,E6", "A7,E7", "A8,E8", "A9,E9", "A10,E10", "A11,E11 ", "A12,E12", "A13,E13", "A14,E14", "A15,E15", "A16,E16", "A17,E17")
On Error Resume Next
Jika Target.Cells.Count > 1 Kemudian Keluar Sub
Untuk xFNum = LBound(xRgArray) Ke UBound(xRgArray)
xStrR = xRgArray(xFNum)
xStrS = ""
xStrS = Kiri(xStrR, 2)
xStrD = ""
xStrD = Kanan(xStrR, 2)
Tetapkan xRgS = Tidak ada
Tetapkan xRgS = Rentang(xStrS)
Jika TypeName(xRgS) <> "Tidak Ada" Lalu
Tetapkan xRgD = Tidak ada
Tetapkan xRgD = Rentang(xStrD)
Jika TypeName(xRgD) <> "Tidak Ada" Lalu
If TypeName(Intersect(xRgS, Target)) <> "Tidak ada" Lalu
xRgD.Nilai = xRgD.Nilai + 1
End If
End If
End If
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai JT,
Terima kasih atas tanggapan Anda. Ada yang salah dengan kode aslinya. Anda dapat mencoba kode baru berikut.
Angka 4 dalam kebohongan ini: Set xRight = Target.Offset(0, 4) berarti bahwa 4 kolom untuk diimbangi di sebelah kanan referensi awal (referensi awal adalah A4:A17). Setelah offset 4 kolom ke kanan, hasilnya akan keluar di E4:E17.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20221010
    Dim xRight As Range

    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("A4:A17")) Is Nothing Then Exit Sub
    Set xRight = Target.Offset(0, 4)
    If TypeName(xRight.Value) = "Double" Then
        xRight.Value = xRight.Value + 1
    ElseIf TypeName(xRight.Value) = "Empty" Then
        xRight.Value = 1
    End If

End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo, ada cara untuk menghitung mundur untuk nomor yang saya inginkan? Contoh: Saya telah membuat 5 klik, tetapi saya hanya ingin 3. Jadi saya mengubah angka di sel menjadi 3, dan ketika saya mengklik lagi, itu berlanjut dari 3.
Terima kasih untuk kodenya!
Komentar ini diminimalkan oleh moderator di situs
Hai,
Maaf tidak dapat membantu Anda dengan ini, selamat datang untuk mengirim pertanyaan tentang Excel ke forum kami: https://www.extendoffice.com/forum.html. Anda akan mendapatkan lebih banyak dukungan Excel dari profesional kami atau penggemar Excel lainnya.
Komentar ini diminimalkan oleh moderator di situs
Halo
Apakah ada cara untuk memprogram konten klik yang dihasilkan ke fecha, apakah programnya bervariasi untuk yang ingin menggunakan fecha día?
Komentar ini diminimalkan oleh moderator di situs
Dapatkah Anda memberikan kode yang memungkinkan penghitungan klik dari sel A2, B2 hingga sel A14, B14. Terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Hai Barbara,
Apakah maksud Anda menghitung total klik dalam rentang A2:B14? Atau klik untuk setiap sel dalam rentang A2:B14?
Komentar ini diminimalkan oleh moderator di situs
Como zero a contage? Bagaimana cara mengatur ulang skor?
Komentar ini diminimalkan oleh moderator di situs
Hai,
Jika Anda ingin mereset penghitung, tambahkan kode VBA di bawah ini di akhir kode asli yang telah disediakan di atas, lalu jalankan.

Sub ClearCount()
xRgD.Nilai = ""
xNum = 0
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai, Saya mencoba menemukan cara menghitung berapa kali 20 sel berbeda diklik (masing-masing harus dihitung secara terpisah). Saya menemukan saran kode VBA Anda, mencoba menyesuaikannya dengan kebutuhan spesifik saya tetapi tidak berhasil. dapatkah Anda memberi saran bagaimana kode harus ditulis? sel yang ingin saya hitung dan sel yang nilainya akan muncul adalah: F12>AU12, F13>AU13, G12>AV12, G13>AV13, H10>AW10, H11>AW11, H12>AW12, H13>AW13 , H14>AW14, H15>AW15, I10>AX10, I11>AX11, I12>AX12, I13>AX13, I14>AX14, I15>AX15, J12>AY12, J13>AY13, K12>AZ12, K13>AZ13).
Ini adalah kode VBA yang saya coba tanpa hasil:

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRgArray Sebagai Varian
redup xNum
Redupkan xStrR, xStrS, xStrD Sebagai String
Redupkan xRgS, xRgD Sebagai Rentang

Redupkan xFNum Selamanya
xRgArray = Array("F12,AU12", "F13,AU13", "G12,AV12", "G13,AV13", "H10,AW10", "H11,AW11", "H12,AW12", "H13,AW13 ", "H14,AW14", "H15,AW15", "I10,AX10", "I11,AX11", "I12,AX12", "I13,AX13", "I14,AX14", "I15,AX15", "J12,AY12", "J13,AY13", "K12,AZ12", "K13,AZ13")
On Error Resume Next
Jika Target.Cells.Count > 1 Kemudian Keluar Sub
Untuk xFNum = LBound(xRgArray) Ke UBound(xRgArray)
xStrR = xRgArray(xFNum)
xStrS = ""
xStrS = Kiri(xStrR, 2)
xStrD = ""
xStrD = Kanan(xStrR, 2)
Tetapkan xRgS = Tidak ada
Tetapkan xRgS = Rentang(xStrS)
Jika TypeName(xRgS) <> "Tidak Ada" Lalu
Tetapkan xRgD = Tidak ada
Tetapkan xRgD = Rentang(xStrD)
Jika TypeName(xRgD) <> "Tidak Ada" Lalu
If TypeName(Intersect(xRgS, Target)) <> "Tidak ada" Lalu
xRgD.Nilai = xRgD.Nilai + 1
End If
End If
End If
Next
End Sub

Terima kasih sebelumnya, atas bantuan Anda.
Komentar ini diminimalkan oleh moderator di situs
Hai, Kode di bawah ini dapat membantu. Silakan coba. Terima kasih. Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRgS, xRgD Sebagai Rentang
Redupkan xStrRg Sebagai String
Redupkan xFNum Sebagai Integer
Redupkan xArr1, xArr2
Jika Target.Cells.Count > 1 Kemudian Keluar Sub
xStrRg = "F12-AU12; F13-AU13; G12-AV12; G13-AV13; H10-AW10; H11-AW11; H12-AW12; H13-AW13; H14-AW14; H15-AW15; I10-AX10; I11-AX11; I12-AX12; I13-AX13; I14-AX14; I15-AX15; J12-AY12; J13-AY13; K12-AZ12; K13-AZ13"
On Error Resume Next
xArr1 = Pisahkan(xStrRg, ";")
Untuk xFNum = 0 Ke UBound(xArr1)
xArr2 = Pisahkan(xArr1(xFNum), "-")
Tetapkan xRgS = Rentang(xArr2(0))
Tetapkan xRgD = Rentang(xArr2(1))
Jika Tidak (Berpotongan(xRgS, Target) Bukan Apa-apa) Lalu
xRgD.Nilai = xRgD.Nilai + 1
End If
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Kode yang dikoreksi di atas sangat bagus untuk lembar yang saya kerjakan, terima kasih. Tapi saya punya pertanyaan tentang menambahkan makro waktu sehingga setiap hari (tidak termasuk akhir pekan) penghitungan bergerak ke baris berikutnya di lembar misalnya:
Baris 3 - 7/1/2021 "B1-B3; C1-C3; D1-D3"Baris 4 - 7/2/2021 "B1-B4; C1-C4; D1-D4"Baris 5 - 7/3/2021 "B1-B5; C1-C5; D1-D5"
Komentar ini diminimalkan oleh moderator di situs
Crystal, Kode di atas sangat bagus untuk lembar yang saya kerjakan, terima kasih. Tapi saya punya pertanyaan tentang menambahkan makro waktu sehingga setiap hari (tidak termasuk akhir pekan) penghitungan bergerak ke baris berikutnya di lembar misalnya:

Baris 3 - 7/1/2021 "B1-B3; C1-C3; D1-D3"
Baris 4 - 7/2/2021 "B1-B4; C1-C4; D1-D4"
Baris 5 - 7/3/2021 "B1-B5; C1-C5; D1-D5"

Jika ini mungkin? terima kasih, Ken
Komentar ini diminimalkan oleh moderator di situs
Hai, terima kasih atas kode VBA ini, mereka hampir bekerja untuk kebutuhan saya. Saya takut fakta bahwa saya harus melewati dua digit berarti itu tidak akan berhasil. Saya harus memiliki C8 hingga C110 dan penghitungan yang sesuai adalah L8 hingga L110. Bisakah kamu menolong? Banyak terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Hai Andy, Kode VBA berikut dapat membantu Anda. Silakan coba. Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRgS, xRgD Sebagai Rentang
Redupkan xStrRg Sebagai String
Redupkan xCStr, xVStr Sebagai String
Redupkan xItem Sebagai Integer
xCStr = "C8: C110" 'Rentang sel yang ingin Anda rekam klik setiap sel
xVStr = "L8:L110" 'Rentang sel untuk menempatkan catatan
Tetapkan xRgS = Rentang (xCStr)
Tetapkan xRgD = Rentang(xVStr)
Jika Tidak (Berpotongan(xRgS, Target) Bukan Apa-apa) Lalu
xItem = Target.Baris - xRgS.Item(1).Baris + 1
xRgD.Item(xItem).Nilai = xRgD.Item(xItem).Nilai + 1
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk mundur dari jumlah angka? Misalnya: Saya telah membuat 5 klik, tetapi saya hanya ingin 3. Jadi saya mengubah angka di sel menjadi 3, dan ketika saya mengklik lagi, itu berlanjut dari 3. ATAU memiliki kemampuan untuk menekan sel lain dan mengurangi hitungan dengan 1 jika itu lebih mudah.
Komentar ini diminimalkan oleh moderator di situs
Halo,
j'aimerai comment je pourrais le nombre de clics sur les cellules D10 M10 dan le retranscrire la ligne R10 dan le faire pour toutes les lignes suivante donc compter les clics sur les sel D11 à M11 dan transkrip R11 dll la dll ?

Cordialement
Komentar ini diminimalkan oleh moderator di situs
Hai DUFOUR,
Untuk menghitung jumlah klik dari D10 hingga M10 dan menampilkan jumlah total klik dalam R10, Anda dapat menerapkan kode VBA berikut untuk menyelesaikannya.
Note: Dalam kode, rentang "H10:M30" berarti kode hanya berfungsi dari baris 10 hingga baris 30, jadi tentukan baris yang ingin Anda hitung.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20220609
    Dim xNum As Long
    Dim xRgCount, xRg As Range
    
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub

    Set xRg = Range("D10:M30")
    If Intersect(xRg, Target) Is Nothing Then Exit Sub
    Set xRgCount = Range("R" & Target.Row)
    
    If IsNumeric(xRgCount.Value) Then
        xNum = xRgCount.Value + 1
    Else
        xNum = 1
    End If
    xRgCount.Value = xNum
End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo. Muchas gracias por los códigos.
Saya yakin bisa melakukan beberapa kali yang ingin saya klik untuk menyambungkan ke satu sel.
Terima kasih banyak.
Komentar ini diminimalkan oleh moderator di situs
Hai jose maria,
Untuk menghitung klik pada hyperlink, Anda dapat mencoba kode VBA berikut.
Misalkan hyperlink ada di kolom A dan Anda ingin jumlah klik diisi di sel kolom B yang sesuai (seperti yang ditunjukkan pada tangkapan layar di bawah)
Silakan letakkan kode berikut di jendela lembar kerja (kode).

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updated by Extendoffice 20220805
    Dim Hyperlink As Range
    Set Hyperlink = Target.Range

    Hyperlink.Offset(0, 1) = Hyperlink.Offset(0, 1) + 1
End Sub

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/clicks_on_a_hyperlink.png
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL