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

or

Bagaimana untuk menyembunyikan kotak pilihan apabila baris disembunyikan dalam Excel?

Biasanya, apabila bersembunyi baris mengandungi kotak pilihan dalam sel baris, kotak-kotak tidak akan disembunyikan dengan baris, tetapi bertindih dengan kandungan baris lain seperti tangkapan kiri yang ditunjukkan. Bagaimana untuk menyembunyikan kotak pilihan apabila baris disembunyikan dalam Excel? Artikel ini akan membantu anda untuk menyelesaikannya.

Sembunyikan kotak pilihan apabila baris tersembunyi dengan kod VBA


Anda mungkin berminat dalam:

Mudah memasukkan atau memadam pelbagai kotak semak / pilihan pilihan secara besar-besaran dalam Excel

Dengan Kutools untuk Excel's Kotak Masukkan Kotak Semak / Butang Pilihan or Batch Delete Check Boxes / Pilihan Butang utiliti, anda boleh memasukkan atau memadam berbilang kotak semak atau butang pilihan secara besar-besaran dalam lembaran kerja Excel anda. Lihat tangkapan skrin di bawah:


anak panah gelembung kanan biru Sembunyikan kotak pilihan apabila baris tersembunyi dengan kod VBA


Anda boleh menjalankan kod VBA berikut untuk menyembunyikan kotak pilihan apabila baris disembunyikan dalam Excel.

1. Klik kanan tab helaian dengan kotak semak yang anda mahu sembunyikan, dan klik Lihat Kod dari menu klik kanan.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, copy dan tampal kod VBA di bawah ke dalam Kod tingkap.

Kod VBA: Sembunyikan kotak pilihan apabila baris tersembunyi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xChkBox As CheckBox
    Dim xCell As Range
    Dim xHide As Boolean
    If Target.EntireRow.AddressLocal = Application.Intersect(Target, Target.EntireRow).AddressLocal Then
        xHide = (MsgBox("Hide Rows ???", vbYesNo + vbQuestion, "Kutools for Excel") = vbYes)
        Target.EntireRow.Hidden = xHide
        For Each xChkBox In ActiveSheet.CheckBoxes
            Set xCell = xChkBox.TopLeftCell
            If Not Intersect(xCell, Target) Is Nothing Then
                xChkBox.Visible = Not xHide
            End If
        Next
    End If
End Sub

3. Kemudian tekan Alt + Q kunci pada masa yang sama untuk menutup Microsoft Visual Basic untuk Aplikasi tingkap.

4. Pilih keseluruhan baris dengan kotak pilihan yang anda perlu sembunyikan, kemudian kotak dialog muncul, sila klik Ya butang.

Kemudian anda dapat melihat semua kotak centang tersembunyi dengan berturut-turut seperti tangkapan skrin di bawah.

Nota: Untuk memaparkan baris tersembunyi dengan kotak pilihan, sila pilih seluruh baris termasuk baris tersembunyi, dan dalam kotak dialog pop up, klik Tidak butang. Kemudian baris dengan kotak pilihan akan dipaparkan.


anak panah gelembung kanan biruRelated articles:


Alat Produktiviti yang Disyorkan

Reben Excel (dengan Kutools untuk Excel dipasang)

300 + Ciri-ciri Lanjutan Meningkatkan Produktiviti Anda oleh 71%, dan Membantu Anda Menonjol Daripada Orang!

Adakah anda ingin menyelesaikan kerja harian dengan cepat dan sempurna? Kutools Untuk Excel membawa 300 + ciri maju yang canggih dan berkuasa (Menggabungkan buku kerja, jumlahnya mengikut warna, kandungan sel split, tarikh penukaran, dan sebagainya ...) untuk Senario kerja 1500 +, membantu anda menyelesaikannya Masalah 82% Excel.

  • Berurusan dengan semua tugas rumit dalam beberapa saat, membantu meningkatkan keupayaan kerja anda, dapatkan kejayaan dari persaingan sengit, dan jangan risau tentang dipecat.
  • Jimat banyak masa kerja, biarkan banyak masa untuk anda mencintai dan menjaga keluarga dan menikmati kehidupan yang selesa sekarang.
  • Kurangkan beribu-ribu papan kekunci dan klik tetikus setiap hari, melegakan mata dan tangan yang letih, dan memberi anda tubuh yang sihat.
  • Menjadi pakar Excel dalam minit 3, dan dapatkan pandangan yang mengagumi daripada rakan sekerja atau rakan anda.
  • Tidak perlu lagi mengingati sebarang formula yang menyakitkan dan kod VBA, mempunyai minda yang santai dan menyenangkan, memberikan anda keseronokan yang anda tidak pernah ada sebelum ini.
  • Luangkan hanya $ 39, tetapi bernilai latihan $ 4000 yang lain. Digunakan oleh elit 110,000 dan 300 + syarikat terkenal.
  • 60-hari percubaan percuma tanpa had. Jaminan wang balik 60 hari. Peningkatan dan sokongan percuma untuk tahun-tahun 2. Beli sekali, guna selama-lamanya.
  • Tukar cara anda bekerja sekarang, dan memberi anda kehidupan yang lebih baik dengan segera!

Tab Pejabat Membawa Tab Cekap dan Handy ke Pejabat (termasuk Excel), Sama Seperti Chrome, Firefox, Dan IE Baru

  • Meningkatkan produktiviti anda oleh 50% semasa melihat dan mengedit beberapa dokumen.
  • Kurangkan ratusan klik tetikus untuk anda setiap hari, mengucapkan selamat tinggal kepada tangan tetikus.
  • Buka dan buat dokumen dalam tab baharu tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Membantu anda bekerja lebih cepat dan mudah menonjol dari orang ramai! Satu saat untuk menukar antara berpuluh-puluh dokumen terbuka!
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.

Be the first to comment.