Bagaimana cara menambahkan tanda centang di sel dengan mengklik ganda di Excel?

Biasanya, untuk memasukkan tanda centang ke dalam sel, Anda perlu masuk ke kotak dialog Simbol, temukan simbol tanda centang dan masukkan secara manual. Tetapi tidak mudah untuk mengetahui simbol tanda centang di kotak dialog Simbol karena ada banyak simbol yang terdaftar di dalamnya. Bagaimana cara menambahkan tanda centang dengan cepat di sel di Excel? Artikel ini akan menunjukkan kepada Anda metode VBA untuk dengan mudah menambahkan tanda centang di sel hanya dengan mengklik ganda.

Klik dua kali untuk menambahkan tanda centang di sel dengan kode VBA

Klik dua kali untuk menambahkan tanda centang di sel dengan kode VBA

Kode VBA berikut dapat membantu Anda menambahkan tanda centang di sel dengan mengklik ganda. Silakan lakukan sebagai berikut.

1. Buka lembar kerja yang perlu Anda tambahkan tanda centang ke dalam sel, lalu klik kanan dan pilih Lihat kode dari menu klik kanan.

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

Kode VBA: Klik dua kali untuk menambahkan tanda centang di sel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Note: Dalam kode, B1: B10 adalah kisaran yang akan Anda tambahkan tanda centang dengan mengklik ganda. Silakan ubah sesuai kebutuhan Anda.

3. tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela dan kembali ke lembar kerja.

Sekarang, klik dua kali pada sel mana pun dalam rentang B1: B10, tanda centang akan dimasukkan secara otomatis. Dan mengklik dua kali sel lagi, tanda centang yang dimasukkan akan dihapus.

Jika Anda perlu sering menggunakan tanda centang dalam pekerjaan harian Excel Anda, di sini saya merekomendasikan Teks otomatis Utilitas Kutools untuk Excel. Dengan fitur ini, Anda dapat menyimpan tanda centang sebagai entri teks otomatis, dan kemudian melanjutkannya di masa mendatang hanya dengan satu klik di Excel seperti yang ditunjukkan pada demo di bawah ini.
Unduh dan coba sekarang! (30- jalur bebas hari)

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

Read More ... Download Gratis... Membeli...

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!

Read More ... Download Gratis... Membeli...

komentar (12)

Belum ada peringkat. Jadilah yang pertama memberi peringkat!

Luiz Carlos Dias

tentang 4 tahun lalu

#27122

Komentar ini diminimalkan oleh moderator di situs

como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando eu duplo quizer clique novamente ea célula voltaria ao normar (continuaria apenas o número).

membalas

Tadao Kano Luiz Carlos Dias

tentang 4 tahun lalu

#27123

Komentar ini diminimalkan oleh moderator di situs

Ola Luiz, tente essa alteracao. Ira funcionar nas celulas A2:A10 dan D2:D5, ubah sesuai kebutuhan.

tadao

Sub Worksheet_BeforeDoubleClick Pribadi (ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
If Not Intersect(Target, Union(Range("A2:A10"), Range("D2:D5"))) Tidak Ada Lalu
Application.EnableEvents = Salah
Jika Kiri(ActiveCell.Value, 1) = ChrW(&H2713) Maka
ActiveCell.Value = Kanan(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlKanan
Lain
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
End If
Batal = Benar
End If
Application.EnableEvents = Benar
End Sub

membalas

Elizabeth

tentang 2 tahun lalu

#34106

Komentar ini diminimalkan oleh moderator di situs

Apakah ada cara untuk mengulang kode ini sehingga ada di banyak lembar kerja dalam satu buku kerja?

membalas

Laporan

kristal Elizabeth

tentang 2 tahun lalu

#34107

Komentar ini diminimalkan oleh moderator di situs

Hai leoflute, Setelah menekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela, silakan klik dua kali Buku Kerja Ini untuk membuka ThisWorkbook (Kode) jendela, lalu salin kode di bawah ini ke jendela kode. Jangan lupa untuk mengubah nama lembar dan rentang sel dalam kode. Sub Workbook_SheetBeforeDoubleClick Pribadi (ByVal Sh Sebagai Objek, Target ByVal Sebagai Rentang, Batalkan Sebagai Boolean)
'Diperbaharui oleh Extendoffice 20201012
Redupkan xStrRg, xStrWs, xStrWsName As String
Redupkan xEEBol, xWSNBol, xBol Sebagai Boolean
Redupkan xArrWs
redup xArrRg
Redupkan xI, xJ Sebagai Bilangan Bulat
Redupkan xWs Sebagai Lembar Kerja
Redupkan xRg Sebagai Rentang

xStrWs = "Lembar5, Lembar1, Lembar2" 'Nama-nama lembar kerja tertentu
xStrRg = "B3: B10" 'Rentang sel yang akan Anda sisipkan tanda centang
xArrWs = Pisahkan(xStrWs, ",")
xArrRg = Pisahkan(xStrRg, ",")

xEEBol = Application.EnableEvents
Application.EnableEvents = Salah
On Error Resume Next
xStrWsName = Sh.Nama
xBol = Salah
xWSNBol = Salah
Untuk xI = 0 Ke UBound(xArrWs)
Jika xStrWsName = xArrWs(xI) Maka
xWSNBol = Benar
Keluar Untuk
End If
xI berikutnya

Jika xWSNBol Maka
Tetapkan xWs = Application.Worksheets.Item(xArrWs(xI))
Untuk xJ = 0 Ke UBound(xArrRg)
Tetapkan xRg = Sh.Range(xArrRg(xJ))
Jika Tidak Berpotongan(Target, xRg) Tidak Berarti
xBol = Benar
Keluar Untuk
End If
xJ selanjutnya
End If

Jika xBol Maka
Jika ActiveCell.Value = ChrW(&H2713) Maka
ActiveCell.ClearContents
Lain
ActiveCell.Nilai = ChrW(&H2713)
End If
Batal = Benar
End If
Application.EnableEvents = xEEBol
End Sub

membalas

Laporan

Cherrod

sekitar 1 tahun yang lalu

#35215

Komentar ini diminimalkan oleh moderator di situs

Hai, yang di sana! Apa yang akan saya tambahkan ke kode di atas agar sel berubah warna saat kotak centang ditambahkan?

membalas

Dan

sekitar 1 tahun yang lalu

#36632

Komentar ini diminimalkan oleh moderator di situs

hai kristal
apakah ada cara untuk memiliki tanda centang di A1:A10 bersama dengan B3:B10?

membalas

Michael

sekitar 1 tahun yang lalu

#36920

Komentar ini diminimalkan oleh moderator di situs

Bagaimana cara mengulangi ini untuk beberapa kolom?
Misalnya saya membutuhkannya sebagai berikut:
E, F, I, J, M, N ,Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX

membalas

Ulisses Nonato

sekitar 6 bulan yang lalu

#38841

Komentar ini diminimalkan oleh moderator di situs

Eu gostaria de saber se é possível adicionar a marca com apenas um clique ao invés de dois.

membalas

kristal Ulisses Nonato

sekitar 6 bulan yang lalu

#38900

Komentar ini diminimalkan oleh moderator di situs

Hai Ulisses Nonato,
Jika Anda ingin menambahkan tanda centang ke sel hanya dengan satu klik mouse, kode VBA berikut dapat membantu Anda.
Anda perlu mengklik tikus kanan tombol untuk mengaktifkan kode.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

membalas

Laporan

sora

sekitar 2 bulan yang lalu

#41276

Komentar ini diminimalkan oleh moderator di situs

Bagaimana cara membuatnya sehingga menambahkan stempel waktu pada sel yang berdekatan setelah klik dua kali?

membalas

kristal sora

sekitar 2 bulan yang lalu

#41491

Komentar ini diminimalkan oleh moderator di situs

Hai Sora,
Kode VBA berikut dapat membantu Anda. Ayo cobalah. Terima kasih.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub

membalas

Laporan

anne

sekitar 2 hari yang lalu

#42923

Komentar ini diminimalkan oleh moderator di situs

Halo,

Une fois ces cases cochées, j'aimerais qu'une cellule x m'additionne les chiffres d'une certaine colonne, est ce possible ?

Merci à vous, bonne soirée

membalas

Belum ada komentar yang diposting di sini

Tinggalkan komentar anda

Posting sebagai Tamu

Nama (Wajib)

Email (Diperlukan)

Beri peringkat pos ini:

ulang

0 Karakter

Saya setuju dengan syarat dan ketentuan