Bagaimana cara mengubah warna tab lembar berdasarkan nilai sel?
Biasanya, Anda dapat mengubah warna tab dengan mudah dan cepat di Excel, tetapi, pernahkah Anda mencoba mengubah warna tab berdasarkan nilai sel di lembar kerja? Jika Anda tertarik dalam tugas ini, saya akan berbicara tentang beberapa kode untuk Anda mewarnai tab lembar berdasarkan nilai sel tertentu di Excel.
Ubah warna tab satu lembar berdasarkan nilai sel dengan kode VBA
Ubah beberapa tab lembar berdasarkan nilai sel dengan kode VBA
Ubah warna tab satu lembar berdasarkan nilai sel dengan kode VBA
Misalnya, saya ingin warna tab lembar saat ini menjadi hijau jika nilai sel di A1 adalah teks "TRUE", warna tab akan menjadi merah jika teks di A1 adalah "SALAH", dan warna tab akan menjadi biru jika nilai di sel A1 adalah teks lain seperti gambar berikut yang ditampilkan:
1. Klik kanan tab lembar yang ingin Anda ubah warnanya berdasarkan data di sel A1, lalu pilih Lihat kode dari menu konteks
2. di Microsoft Visual Basic untuk Aplikasi jendela, salin dan tempel kode VBA di bawah ini ke file Modul jendela.
Kode VBA: Ubah warna tab satu lembar berdasarkan nilai sel:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "False"
Me.Tab.Color = vbRed
Case "True"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
Catatan: Pada kode di atas, A1 adalah referensi sel tempat Anda ingin mewarnai tab berdasarkan, "Benar","Salah鈥滱dalah teks yang Anda butuhkan, Anda dapat mengubahnya sesuai kebutuhan, dan Anda dapat mengubah warna kode sesuai kebutuhan.
3. Kemudian simpan dan tutup jendela kode ini, sekarang, saat Anda memasukkan teks "True" di sel A1, warna tab saat ini akan menjadi hijau, dan saat Anda memasukkan teks "Salah" di sel A1, warna tab akan menjadi merah, dan jika teks lain dimasukkan ke dalam sel A1, warna tab akan menjadi biru secara otomatis.
Ubah beberapa tab lembar berdasarkan nilai sel dengan kode VBA
Jika Anda perlu mengubah beberapa warna tab lembar berdasarkan nilai sel, berikut juga kode yang dapat membantu Anda, lakukan hal berikut:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela, di jendela yang terbuka, klik dua kali Buku Kerja Ini bawah Proyek VBA bagian, lalu salin dan tempel kode di bawah ini ke tempat kosong Modul:
Kode VBA: Ubah beberapa tab lembar berdasarkan nilai sel:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Updateby Extendoffice 20160930
Select Case Sheets("Master").Range("A1").Value
Case "KTE"
Sheets("Sheet1").Tab.Color = vbRed
Case "KTO"
Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW"
Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub
Catatan: Pada kode di atas, A1 dan Master adalah sel dan lembar kerja yang ingin Anda warnai berdasarkan tab, Sheet1, Sheet2, Sheet3 adalah lembar kerja yang ingin Anda beri warna pada tab. KTE, KTW, WHO adalah nilai sel dalam A1 yang ingin Anda warnai berdasarkan tab, Anda dapat mengubah referensi dan warna dalam kode sesuai kebutuhan.
2. Kemudian simpan dan tutup jendela kode ini, sekarang, ketika Anda memasukkan teks KTE di sel A1 dari Master sheet, tab Sheet1 akan diwarnai dengan warna merah, ketika Anda memasukkan KTO di sel A1, Sheet2 akan diwarnai dengan hijau, dan ketika Anda memasukkan KTW di sel A1, Sheet3 akan diwarnai dengan warna biru, lihat tangkapan layar:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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!