Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk kotak semak auto-pusat dalam sel dalam Excel?

Semasa memasukkan kotak semak dalam sel dalam Excel, anda mungkin dapati bahawa sukar untuk mengaturkan semua kotak centang dengan teratur seperti tangkapan skrin kiri. Sebenarnya, anda boleh mengalihkan semua kotak semak ke pusat sel untuk memastikannya teratur dengan kemas. Kaedah dalam artikel ini boleh membantu anda.

Kotak semak auto-pusat dalam sel dengan kod VBA


Kotak semak auto-pusat dalam sel dengan kod VBA


Untuk memusatkan semua kotak semak dalam sel dalam lembaran kerja semasa secara automatik, sila lakukan seperti berikut.

1. Dalam lembaran kerja, anda perlu memasangkan semua kotak semak, tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, sila klik Memasukkan > Modul. Kemudian salin dan tampal kod VBA ke dalam tetingkap kod.

Kod VBA: Secara automatik pusatkan semua kotak pilihan dalam 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 butang F5 kunci. Kemudian semua kotak semak dipindahkan ke pusat sel sebaik sahaja di bawah tangkapan skrin ditunjukkan.

Nota: Kod VBA ini boleh digunakan untuk kedua-dua kotak carian (ActiveX Control) dan CheckBox (Borang Control).

Petua: Jika anda ingin memasukkan beberapa kotak semak ke julat yang dipilih secara pukal, anda boleh mencuba Kotak Centang Masukkan Batch utiliti pf Kutools untuk Excel. Atau batch masukkan beberapa pilihan butang dengan Butang Masukkan Butang Pilihan utiliti. Selain itu, anda boleh memadam semua kotak semak sekaligus dengan Kotak Semak Kotak Hapuskan utiliti seperti screenshot ditunjukkan di bawah. Awak boleh pergi juga muat turun perisian percuma tanpa had pada hari 60.


Related articles:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    DG · 10 months ago
    You VDA script is partly working. Because when i applied it, linked cell next to Checkbox get changed and got linked with a cell under it.