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

Bagaimana cara menyembunyikan atau memperlihatkan lembar kerja tertentu berdasarkan nilai sel di lembar lain?

Apakah ada metode bagi kami untuk menyembunyikan atau menampilkan tab lembar kerja tertentu berdasarkan konten sel di lembar lain? Misalnya, ketika saya memasukkan teks "Ya" di sel G1 dari Sheet2, saya ingin Sheet1 disembunyikan, dan ketika saya memasukkan "Tidak", Sheet1 akan ditampilkan sekaligus. Bagaimana saya bisa mengatasi masalah ini di Excel?

Sembunyikan atau tampilkan tab lembar kerja tertentu berdasarkan nilai sel dengan kode VBA


panah gelembung kanan biru Sembunyikan atau tampilkan tab lembar kerja tertentu berdasarkan nilai sel dengan kode VBA

Untuk menyembunyikan atau memperlihatkan tab lembar kerja tertentu berdasarkan nilai sel di lembar kerja lain, kode VBA berikut mungkin membantu Anda, lakukan hal berikut:

1. Buka lembar kerja yang berisi nilai sel yang ingin Anda sembunyikan berdasarkan lembar lain.

2. Klik kanan tab lembar, lalu pilih Lihat kode, di munculkan Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode berikut ke jendela Modul kosong, lihat tangkapan layar:

Kode VBA: Sembunyikan atau sembunyikan tab lembar kerja berdasarkan nilai sel:

Private Sub Worksheet_Change(ByVal Target As Range)
If [G1] = "Yes" Then
Sheets("Sheet1").Visible = True
Else
Sheets("Sheet1").Visible = False
End If
End Sub

doc menyembunyikan tab berdasarkan nilai sel 1

Catatan: Pada kode di atas, G1 dan ya adalah sel dan konten sel yang ingin Anda dasarkan, dan Sheet1 adalah lembar khusus yang ingin Anda sembunyikan atau sembunyikan. Anda dapat mengubahnya sesuai kebutuhan Anda.

3. Kemudian simpan dan tutup kode ini, ketika Anda memasukkan "Tidak" atau teks lain di sel G1, Sheet1 disembunyikan, tetapi jika Anda memasukkan "Ya" di sel, Sheet1 ditampilkan sekaligus, lihat tangkapan layar:

doc menyembunyikan tab berdasarkan nilai sel 2
1
doc menyembunyikan tab berdasarkan nilai sel 3

 


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.
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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah

 

Urutkan komentar berdasarkan
komentar (23)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Halo
Terima kasih atas tipnya. Saya perlu melakukan skenario yang sama tetapi tidak hanya pada satu sel (G1 dalam kasus ini) tetapi pada semua sel kolom G. Saya telah mencoba dengan "Rentang" tetapi tidak berhasil.

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Jika Range("X2:X100") = "" Maka
Sheets("PENGUKURAN BERBASIS TUGAS UE"). Terlihat = Salah
Lain
Sheets("PENGUKURAN BERBASIS TUGAS UE"). Terlihat = Benar
End If
End Sub


Terima kasih sebelumnya
Komentar ini diminimalkan oleh moderator di situs
Ada kemungkinan ini dijawab? Saya juga mengalami skenario ini di mana seluruh rentang ikut bermain alih-alih hanya satu sel ... Saya menggunakan pengkodean yang sama dengan hasil yang sama.
Komentar ini diminimalkan oleh moderator di situs
Saya melakukan 2 lembar kerja sebagai berikut:
Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Jika [C20] = "Ya" Maka
Sheets("sheet1").Visible = True
Lain
Sheets("sheet1"). Terlihat = Salah
End If
Jika [C22] = "Ya" Maka
Sheets("sheet2").Visible = True
Lain
Sheets("sheet2"). Terlihat = Salah
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Sangat membantu!
Komentar ini diminimalkan oleh moderator di situs
Saya ingin melihat apakah Anda dapat membantu dengan masalah saya. Saya pada dasarnya memiliki kode persis ini dalam lembar yang saya gunakan tetapi dengan fungsi atau sehingga jawabannya bisa "ya" atau "benar". Namun, lembar yang disembunyikan/tidak disembunyikan terkadang menyembunyikan dirinya sendiri karena alasan yang tidak diketahui. Itu akan muncul ketika saya mengetik ya, tetapi ketika saya pergi untuk menggunakannya nanti disembunyikan lagi, meskipun nilai selnya masih ya. Adakah yang tahu mengapa ini bisa terjadi, dan/atau bagaimana cara memperbaikinya?
Kode untuk referensi:
Private Sub Worksheet_Change(ByVal Target As Range)'Menyembunyikan/memperlihatkan halaman Kalibrasi
Jika [B18] = "Ya" Atau Target.Nilai = "Benar" Maka
Sheets("Verifikasi XXX"). Terlihat = Benar
Lain
Sheets("Verifikasi XXX"). Terlihat = Salah
End If

Komentar ini diminimalkan oleh moderator di situs
Hai Saya memiliki buku kerja dengan beberapa tab bernama yang ditautkan ke lembar indeks di bagian depan. Pengguna dapat memilih lembar yang ingin mereka gunakan dengan mencentang kotak di sebelah nama lembar - kosong, T/A atau Ya (daftar tarik-turun). Apakah ada cara untuk mengadaptasi kode ini sehingga lembar terlihat jika kotak centang kosong atau berisi "Ya" tetapi tidak terlihat jika kotak centang berisi "T/A".
Saya sudah mencoba tetapi tidak cukup tahu tentang VBA untuk membuatnya berfungsi. terima kasih
Komentar ini diminimalkan oleh moderator di situs
Saya mencari untuk menyembunyikan atau memperlihatkan lembar berdasarkan nilai sel (Ya/Tidak). Nilai ada di tabel (tblFileContents) dan kolom D4:D25 dan nama lembar ada di A4:A25 di lembar . Urutan item dapat diubah. Apakah Anda memiliki referensi ke contoh yang memungkinkan saya melakukan ini?
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama dan orang lain memberikan solusi.
Buat tabel (format tabel) dengan 2 kolom, beri nama kolom kiri Sheets untuk ditampilkan/sembunyikan, kolom kanan terserah Anda. Letakkan semua nama sheet di kolom kiri
Kemudian pilih Lihat Kode untuk tab ini dan masukkan Dim Changed As Range, c As Range, rMTS As Range
Redupkan Aku Selamanya
Dim bTampilkan Semua Sebagai Boolean

Setel rMTS = Range("TblShowHide[Tandai untuk Menampilkan]")
Set Berubah = Intersect(Target, rMTS)
Jika Tidak Berubah Tidak Ada Apa-apanya
bShowAll = Len(rMTS.Cells(1).Nilai) > 0
On Error Resume Next
Untuk i = 2 Ke rMTS.Rows.Count
Sheets(Range("TblShowHide[Show/Hide Sheets]").Sel(i).Nilai).Visible = IIf(bShowAll, True, Len(rMTS.Cells(i).Nilai) > 0)
Selanjutnya saya
Pada Kesalahan GoTo 0
End If
End Sub


Komentar ini diminimalkan oleh moderator di situs
Saya akan mencoba ini. Terima kasih banyak!
Komentar ini diminimalkan oleh moderator di situs
Tidak yakin apa yang perlu saya ubah tetapi itu tidak berhasil untuk saya.
Komentar ini diminimalkan oleh moderator di situs
Hai Jean,
ya saya punya contoh saya lampirkan di sini. Ganti nama file menjadi example.xlsm (tidak di-zip, tetapi harus diganti namanya untuk diunggah)
Di tab menu ada tabel dengan berbagai nama tab, buat x atau karakter lain untuk menampilkan tab, jika Anda menghapus karakter, tab akan bersembunyi.
Semoga itu bisa membantu
Komentar ini diminimalkan oleh moderator di situs
Ini berisi beberapa item tetapi tidak ada file excel.
Komentar ini diminimalkan oleh moderator di situs
Saya ingin memiliki Menu/Daftar Isi sebagai lembar kerja pertama saya dan berdasarkan jawaban Ya/Tidak - lembar kerja tertentu muncul yaitu lebih dari 1 menjadi terlihat.
Saya berjuang agar beberapa lembar kerja muncul berdasarkan kode di atas.
Dapatkah saya menggunakan fungsi AND misalnya Jika sel X = "Ya" Kemudian Buat Lembar Y terlihat dan Lembar Z dan Lembar K?
Setiap saran sangat disambut.
Salam
Helen
Komentar ini diminimalkan oleh moderator di situs
от е огу онять, ак акое елать аблицах енно?
Komentar ini diminimalkan oleh moderator di situs
Halo teman,

Anda bisa membuka Google sheet baru, tambahkan sheet baru sehingga ada "Sheet1" dan "Sheet2" lalu masuk ke Tools > Script Editor. Di editor, rekatkan yang berikut ini.

fungsi fungsiku() {
var ss = SpreadsheetApp.getActiveSpreadsheet();
var sheet1 = ss.getSheetByName("Sheet1");
var sheet2 = ss.getSheetByName("Sheet2");

var sel1 = sheet1.getRange('B2');

jika (cell1.getValue() == 2) {
sheet2.hideSheet();
}

jika (cell1.getValue() == 3) {
sheet2.showSheet();
}
}

Silakan coba.

Hormat kami,
Mandy
Komentar ini diminimalkan oleh moderator di situs
Kode ini berfungsi dengan baik, Namun saya memiliki 42 variabel untuk 70 lembar sehingga kode ini menjadi sangat panjang dan berhenti berfungsi. Apakah ada cara untuk membuat kode ini di bagian agar tidak melebihi ukuran kode yang dapat ditangani VBA? Atau apakah saya harus membaginya menjadi dua excel yang terpisah?
Komentar ini diminimalkan oleh moderator di situs
Halo, Lizo
Maaf, saat ini, tidak ada cara yang baik untuk menyelesaikan masalah Anda.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki nilai di Sel B1 bahwa jika ya menampilkan lembar1 tetapi juga nilai di B2 itu jika ya menampilkan Lembar2 dll dll. itu menyembunyikan/menampilkan lembar terakhir baik-baik saja tetapi tidak sisanya, bagaimana saya akan mengatakan 10 nilai menyembunyikan 10 lembar berbeda? terima kasih
Komentar ini diminimalkan oleh moderator di situs
Halo, Andi,
Untuk mengatasi masalah Anda, silakan terapkan kode di bawah ini:
Private Sub Worksheet_Change(ByVal Target As Range)
If [B2] = "Yes" Then
Sheets("Sheet1").Visible = True
Else
Sheets("Sheet1").Visible = False
End If
If [B3] = "Yes" Then
Sheets("Sheet2").Visible = True
Else
Sheets("Sheet2").Visible = False
End If
If [B4] = "Yes" Then
Sheets("Sheet3").Visible = True
Else
Sheets("Sheet3").Visible = False
End If
If [B5] = "Yes" Then
Sheets("Sheet4").Visible = True
Else
Sheets("Sheet4").Visible = False
End If
If [B6] = "Yes" Then
Sheets("Sheet5").Visible = True
Else
Sheets("Sheet5").Visible = False
End If
End Sub

Note: Pada kode di atas, Anda hanya perlu menyalin skrip di bawah ini beberapa kali dan mengubah referensi sel dan nama sheet menjadi milik Anda.
If [B2] = "Yes" Then
Sheets("Sheet1").Visible = True
Else
Sheets("Sheet1").Visible = False
End If


Silahkan dicoba, semoga bisa membantu!
Komentar ini diminimalkan oleh moderator di situs
Saya mengalami masalah di mana saya ingin tab ditampilkan untuk rentang nilai, bukan hanya YA atau TIDAK. Ketika saya mencoba mengulangi pernyataan IF di sub, itu memberi saya kesalahan dan ketika saya mencoba untuk membuat daftar beberapa nilai dalam pernyataan if, saya mendapatkan kesalahan. Ada ide?

Sepertinya saya perlu menggunakan pernyataan IF/OR tetapi tidak yakin bagaimana cara kerjanya.

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Jika [K6] = "VS 1", "VS 2", "VS 3", VS 4" Maka
Spreadsheet("Halaman6").Terlihat = Benar
Lain
Spreadsheet("Halaman6").Terlihat = Salah
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo, Margareth,
Untuk mengatasi masalah Anda, harap terapkan kode di bawah ini, Anda harus menggunakan Atau untuk bergabung dengan ketentuan.
Private Sub Worksheet_Change(ByVal Target As Range)
If [K6] = "VS 1" Or [K6] = "VS 2" Or [K6] = "VS 3" Or [K6] = "VS 4" Then
Sheets("Page6").Visible = True
Else
Sheets("Page6").Visible = False
End If
End Sub

Silahkan dicoba, semoga bisa membantu!
Komentar ini diminimalkan oleh moderator di situs
Skyyang - ini bekerja dengan sempurna. Terima kasih atas tanggapan cepat Anda!
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba menggunakan ini tetapi muncul dengan "kesalahan kompilasi - tidak dapat menemukan proyek atau perpustakaan" dan menyorot sel tempat dropdown Ya/Tidak berada. Saya pikir itu mungkin karena ini adalah sel yang digabungkan, apakah ada jalan keluarnya?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL