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

Bagaimana kotak centang pusat otomatis di sel di Excel?

Saat memasukkan kotak centang di sel di Excel, Anda mungkin memperhatikan bahwa sulit untuk mengatur semua kotak centang secara teratur seperti gambar di sebelah kiri yang ditampilkan. Sebenarnya, Anda bisa memindahkan semua kotak centang ke pusat sel agar tetap rapi. Metode dalam artikel ini dapat membantu Anda.

Kotak centang pusat otomatis di sel dengan kode VBA


Kotak centang pusat otomatis di sel dengan kode VBA

Untuk menengahkan semua kotak centang secara otomatis dalam sel di lembar kerja saat ini, lakukan hal berikut.

1. Dalam lembar kerja, Anda perlu menengahkan otomatis semua kotak centang, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA ke jendela kode.

Kode VBA: Secara otomatis memusatkan semua kotak centang di sel

Sub CenterCheckbox ()
    Dim xRg As Range
    Dim chkBox As OLEObject
    Dim chkFBox As CheckBox
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.OLEObjects
        If TypeName(chkBox.Object) = "CheckBox" Then
            Set xRg = chkBox.TopLeftCell
            chkBox.Width = xRg.Width * 2 / 3
            chkBox.Height = xRg.Height
            chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
            chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
        End If
    Next
    For Each chkFBox In ActiveSheet.CheckBoxes
        Set xRg = chkFBox.TopLeftCell
        chkFBox.Width = xRg.Width * 2 / 3
        chkFBox.Height = xRg.Height
        chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
        chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
    Next
    Application.ScreenUpdating = True
End Sub

3. tekan F5 kunci. Kemudian semua kotak centang dipindahkan ke tengah sel segera seperti gambar di bawah ini.

Note: Kode VBA ini dapat diterapkan ke Kotak Centang (Kontrol ActiveX) dan Kotak Centang (Kontrol Formulir).

olymp trade indonesiaTip: Jika Anda ingin memasukkan beberapa kotak centang ke dalam rentang yang dipilih secara massal, Anda dapat mencoba Kotak Centang Batch Insert utilitas pf Kutools untuk Excel. Atau masukkan beberapa Tombol Opsi sekaligus dengan ekstensi Tombol Opsi Sisipkan Batch utilitas. Selain itu, Anda dapat menghapus semua kotak centang sekaligus dengan Hapus Batch Kotak Centang utilitas seperti screenshot di bawah ini yang ditampilkan. Anda bisa pergi ke unduh perangkat lunak gratis tanpa batasan dalam 30 hari.


Artikel terkait:


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 (9)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Skrip VDA Anda sebagian berfungsi. Karena ketika saya menerapkannya, sel yang ditautkan di sebelah Kotak Centang berubah dan ditautkan dengan sel di bawahnya.
Komentar ini diminimalkan oleh moderator di situs
Ini bekerja sangat baik untuk saya kecuali itu tidak menyelaraskannya dengan teks di sel berikutnya yang rata bawah. Apakah ada cara untuk menyelaraskan kotak centang untuk rata bawah agar sejajar dengan teks di sel berikutnya? Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
VBA tidak bekerja sama sekali untuk saya. Ketika saya menekan F5, tampaknya modul berjalan, tetapi kotak centang tidak bergerak.
Komentar ini diminimalkan oleh moderator di situs
Setelah beberapa percobaan lagi, saya menemukan bahwa VBA berfungsi untuk kotak centang yang dimasukkan secara manual, tetapi jika saya menggunakan sisipan batch Kutools, itu tidak. Bagaimana cara memusatkan semua kotak centang yang dimasukkan dengan Kutools?
Komentar ini diminimalkan oleh moderator di situs
Hai quadma,
Kode ini juga berfungsi untuk kotak centang yang dimasukkan oleh Kutools. Versi Excel mana yang Anda gunakan?
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan office 360. Saya pikir masalah yang saya alami adalah ketika saya menggunakan sisipan batch Kutools, ukuran objek kotak centang selebar kolom tempat dimasukkannya (yaitu lebar objek kotak centang adalah lebih besar dari tingginya), dengan kotak centang yang terlihat itu sendiri dibiarkan dibenarkan di dalam objek. Jika saya memilih semua objek kotak centang dan kemudian mengubah ukurannya sehingga tinggi dan panjangnya sama, dan kemudian menjalankan VBA, itu kemudian memusatkan kotak centang di dalam kolom.





Ini sepertinya langkah yang tidak perlu, mengingat kotak centang berbentuk persegi, mengapa Kultools tidak membuat objek kotak centang menjadi persegi?
Komentar ini diminimalkan oleh moderator di situs
Hai quadma,
Kotak centang yang dimasukkan oleh Kutools sama dengan Kotak Centang (Kontrol Formulir) yang dimasukkan oleh Excel.
Saya tidak begitu mengerti Anda mengatakan "membuat objek kotak centang persegi". Biasanya kotak centang menyertakan bidang kotak dan bidang nilai. Kutools membuat nilai kotak centang kosong jika sel yang dipilih kosong. Dan jika ada nilai di sel yang dipilih, nilai sel akan diambil sebagai nilai kotak centang.
Komentar ini diminimalkan oleh moderator di situs
Saya telah mengunggah gambar untuk menunjukkan apa yang saya maksud. Semoga itu membantu.
Komentar ini diminimalkan oleh moderator di situs
Hai quadma, saya mengerti maksud Anda. Kami akan memikirkannya dan terima kasih atas kesabaran Anda.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan