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 atau menyembunyikan lajur berdasarkan senarai senarai drop bawah dalam Excel?

Semasa menggunakan Excel, anda boleh menyembunyikan atau menyembunyikan lajur tertentu berdasarkan pemilihan senarai drop-down. Sebagai contoh, jika anda memilih Tidak dalam senarai drop-down, lajur C ke saya akan disembunyikan, tetapi jika anda memilih Ya, lajur tersembunyi C ke saya akan dishid. Lihat tangkapan skrin yang ditunjukkan di bawah.

Dalam artikel ini, kami akan menunjukkan kaedah VBA untuk menyembunyikan atau menyembunyikan lajur berdasarkan pemilihan senarai drop-down dalam Excel.

Sembunyikan atau menyembunyikan lajur berdasarkan pemilihan senarai drop-down dalam Excel


Satu klik untuk menogol semua lajur yang tersembunyi agar dapat dilihat atau tidak dapat dilihat dalam Excel

dengan Kutools untuk Excel's Toggle Visibility Hidden Columns utiliti, anda boleh dengan mudah menukar semua lajur yang tersembunyi agar kelihatan atau tidak dapat dilihat dalam Excel.

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 60. Muat turun percubaan percuma sekarang


Sembunyikan atau menyembunyikan lajur berdasarkan pemilihan senarai drop-down dalam Excel


Seperti contoh di atas yang disebutkan, untuk menyembunyikan atau menyembunyikan lajur C kepada saya berdasarkan pemilihan senarai jatuh bawah, sila lakukan seperti berikut.

1. Pertama, buat senarai drop down anda dengan Ya dan Tidak yang anda perlukan.

2. Kemudian tekan Alt + F11 untuk membuka Microsoft Visual Basic untuk Permohonan tingkap.

3. Double klik nama kunci terbuka semasa dalam VBAProject seksyen untuk membuka editor Kod.

4. Kemudian salin dan tampal di bawah kod VBA ke dalam editor Kod.

Kod VBA: menyembunyikan atau menyembunyikan lajur berdasarkan senarai senarai jatuh turun

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
    If Target.Column = 2 And Target.Row = 3 Then
        If Target.Value = "No" Then
            Application.Columns("C:I").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "Yes" Then
            Application.Columns("C:I").Select
            Application.Selection.EntireColumn.Hidden = False
        End If
    End If
End Sub

Nota: Di dalam kod di atas, Lajur = 2 dan Row = 3 adalah rujukan sel bagi senarai drop-down, dan julat C: I adalah lajur yang ingin anda sembunyikan atau tidak, tolong ubahnya dengan keperluan anda.

5. Akhbar Alt + Q kunci pada masa yang sama untuk keluar Microsoft Visual Basic untuk Permohonan tingkap.

Mulai sekarang, apabila anda memilih Tidak dalam senarai lungsur turun, semua lajur yang ditentukan tersembunyi.

Tetapi jika anda memilih Ya dalam senarai drop-down, semua lajur yang tersembunyi dipaparkan dengan segera.


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.
    Jeff · 1 years ago
    Hi,
    Thanks for the code, if I want to add third option what is the syntax?
  • To post as a guest, your comment is unpublished.
    Yuhui Chan · 1 years ago
    Hi there! I have a selection of 10 items and am trying to only show rows 57 to 72 when I select one of them. I am using the following code but somehow it is not working and my dashboard does not change at all. However, when I key in something into a random cell, the page reloads and rows 57:72 become hidden. But then, it stays the same across all my selections and I cannot unhide it again through the drop box selection. May I know if anyone has an alternative suggestion? Thank you in advance!


    Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 2 And Target.Row = 3 And Target.Value = "1"

    Then Application.Rows("57:72").Select Application.Selection.EntireRow.Hidden = False

    Else Application.Rows("57:72").Select Application.Selection.EntireRow.Hidden = True

    End If

    End Sub
  • To post as a guest, your comment is unpublished.
    Kara · 1 years ago
    I need assistance with a similar macro but for specified cell ranges, not a whole column. Can this be done?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Kara,
      Do you mean "hide contents of specified cell ranges based on cell value"? Please post you question with details so as to help us solve the problem.
  • To post as a guest, your comment is unpublished.
    Kara · 1 years ago
    I need assistance with excel macro or formula. Can anyone help?
  • To post as a guest, your comment is unpublished.
    Anish · 1 years ago
    Can anyone help :


    If i enter value to cell A1 as " No", i want columns D:E to hide. and if i enter value as "Yes", i want columns D:E to unhide and columns F:G to hide
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Anish,
      This VBA code can help you. Please have a try. Thank you for your comment.

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim xRg As Range
      Set xRg = Range("A1")
      If xRg.Address = Target.Address And Target.Value = "No" Then
      Columns("D:E").EntireColumn.Hidden = True
      ElseIf xRg.Address = Target.Address And Target.Value = "Yes" Then
      Columns("D:E").EntireColumn.Hidden = False
      Columns("F:G").EntireColumn.Hidden = True
      End If
      End Sub