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

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

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.

Read More ... Download Gratis... Membeli...

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!

Read More ... Download Gratis... Membeli...

komentar (23)

Belum ada peringkat. Jadilah yang pertama memberi peringkat!

Walido Lido

tentang 4 tahun lalu

#27241

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

membalas

Laporan

Scott Hobin Walido Lido

tentang 3 tahun lalu

#27242

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.

membalas

Andrew

sekitar 1 tahun yang lalu

#34772

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

membalas

Tamu Andrew

sekitar 1 tahun yang lalu

#34773

Komentar ini diminimalkan oleh moderator di situs

Sangat membantu!

membalas

Cliffork Andrew

sekitar 1 tahun yang lalu

#34774

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

membalas

Laporan

JELEE

sekitar 1 tahun yang lalu

#35314

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

membalas

Laporan

Jean

sekitar 1 tahun yang lalu

#37114

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?

membalas

pY Jean

sekitar 1 tahun yang lalu

#37115

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

membalas

Jean pY

sekitar 1 tahun yang lalu

#37116

Komentar ini diminimalkan oleh moderator di situs

Saya akan mencoba ini. Terima kasih banyak!

membalas

Jean Jean

sekitar 11 bulan yang lalu

#37117

Komentar ini diminimalkan oleh moderator di situs

Tidak yakin apa yang perlu saya ubah tetapi itu tidak berhasil untuk saya.

membalas

pyclen Jean

sekitar 11 bulan yang lalu

#37118

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

Lihat Lampiran (1 / 5)

membalas

Laporan

Kruzer pyclen

sekitar 11 bulan yang lalu

#37119

Komentar ini diminimalkan oleh moderator di situs

Ini berisi beberapa item tetapi tidak ada file excel.

Laporan

Helen Hay

sekitar 8 bulan yang lalu

#37911

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

membalas

Vlad

sekitar 8 bulan yang lalu

#38280

Komentar ini diminimalkan oleh moderator di situs

от е огу онять, ак акое елать аблицах енно?

membalas

MandyZhou Vlad

sekitar 7 bulan yang lalu

#38344

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

membalas

Laporan

Liz

sekitar 6 bulan yang lalu

#38914

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?

membalas

skyyang Liz

sekitar 6 bulan yang lalu

#38980

Komentar ini diminimalkan oleh moderator di situs

Halo, Lizo
Maaf, saat ini, tidak ada cara yang baik untuk menyelesaikan masalah Anda.

membalas

Laporan

Andy Lannon

sekitar 2 bulan yang lalu

#41133

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

membalas

skyyang Andy Lannon

sekitar 2 bulan yang lalu

#41611

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!

membalas

Laporan

Margaret M.

sekitar 2 bulan yang lalu

#41622

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

membalas

skyyang Margaret M.

sekitar 2 bulan yang lalu

#41627

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!

membalas

Laporan

Margaret M. skyyang

sekitar 2 bulan yang lalu

#41635

Komentar ini diminimalkan oleh moderator di situs

Skyyang - ini bekerja dengan sempurna. Terima kasih atas tanggapan cepat Anda!

membalas

Bob

sekitar 2 minggu yang lalu

#42672

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?

membalas

Belum ada komentar yang diposting di sini

Tinggalkan komentar anda

Posting sebagai Tamu

Nama (Wajib)

Email (Diperlukan)

Beri peringkat pos ini:

ulang

0 Karakter

Saya setuju dengan syarat dan ketentuan