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

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


panah gelembung kanan biru 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:

lembar warna dokumen dengan nilai 1

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

lembar warna dokumen dengan nilai 2

Catatan: Pada kode di atas, A1 adalah referensi sel tempat Anda ingin mewarnai tab berdasarkan, "Benar","Salah”Adalah 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.


panah gelembung kanan biru 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

lembar warna dokumen dengan nilai 3

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:

lembar warna dokumen dengan nilai 4


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
Yang terhormat.
mohon bantu saya cara mengubah warna tab lembar berdasarkan tanggal/hari.

untuk Misalnya:-
jika lembar No 1 adalah hari Minggu maka - tab lembar 'MERAH'
jika lembar No 2 adalah hari Senin maka - tab lembar 'Hijau'
jika lembar No 3 adalah Selasa maka - tab lembar 'Hijau'
jika lembar No 4 adalah hari Rabu - tab lembar 'Hijau'
jika lembar No 5 adalah hari Kamis - tab lembar 'Hijau'
jika lembar No 6 adalah hari Jumat maka - tab lembar 'Hijau'
jika lembar No 7 adalah hari Sabtu maka - tab lembar 'Hijau'

mohon bantuannya untuk masalah excel di atas.

Terima kasih dan salam
Faiz bin Uvaiz P.
Komentar ini diminimalkan oleh moderator di situs
Deskripsi Anda agak kabur tentang apa yang sebenarnya Anda coba lakukan. Jika buku kerja hanya untuk seminggu maka warnai tabnya. Jika durasinya lebih dari seminggu, maka solusinya sedikit lebih rumit. Sampai Anda merinci masalahnya, ada beberapa solusi yang tersedia. Saya, dan banyak orang, tidak akan menghabiskan waktu kami untuk mengkodekan 2,000 solusi untuk Anda secara gratis. Tapi Anda detail masalah kami mungkin memberikan 1 solusi.
Komentar ini diminimalkan oleh moderator di situs
bagaimana saya bisa mengubah warna tab tergantung pada cuaca, berbagai sel memiliki teks di dalamnya
Komentar ini diminimalkan oleh moderator di situs
Rumusnya berfungsi untuk 'Benar' - tab lembar berwarna MERAH, jadi itu bagus tetapi jika saya mengubahnya dari 'Benar' menjadi 'Salah' saya ingin tab lembar memiliki 'tanpa warna'. Apa rumus tanpa warna pada tab lembar jika 'Benar' tidak dipilih? Juga jika saya ingin rumusnya untuk sekelompok sel, mis. A1:A30 apa kode yang saya gunakan?
Komentar ini diminimalkan oleh moderator di situs
Halo, Shannon:
Kode VBA berikut mungkin membantu Anda, silakan coba:

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Redupkan xRg Sebagai Rentang
Tetapkan xRg = Intersect(Target, Range("A1:A30"))
Jika xRg Bukan Apa-apa Kemudian Keluar Sub
Pilih Target Kasus.Nilai
Kasus "Benar"
Me.Tab.Color = vbRed
Kasus "Salah"
Me.Tab.Color = Salah
End Select
End Sub

Semoga ini bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk mengubah warna tab berdasarkan hal berikut: Saya memiliki tab master di mana baris 3-7 berwarna biru dan akan sesuai dengan tab 3-7 yang sesuai (yang dinamai berdasarkan nilai sel di master di baris itu) yang saya ingin warnai biru. Kemudian baris 8-12 berwarna hijau dan juga sesuai dengan tab 8-12 dan seterusnya.
Komentar ini diminimalkan oleh moderator di situs
Itu adalah salah satu trik yang luar biasa.
Saya menautkan warna tab berdasarkan nilai sel A1 (<>0 RED dan =0 Green), namun, makro hanya dijalankan jika saya memilih A1 , tekan F2 lalu tekan enter. Tanpa melakukan ini meskipun warna tab ( berdasarkan nilainya ) seharusnya , katakanlah Merah, tetapi tetap hijau.
Saya menggunakan excel 2007.
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin untuk membuat ini berfungsi ketika sel A1 dapat memiliki semua 3 jawaban pada baris terpisah di dalam sel? Yaitu KTE, KTO dan KTW semuanya ada di dalam sel karena memungkinkan banyak pilihan dari daftar drop-down.
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba menggunakan kode itu dan menerapkannya ke kotak centang, jadi ketika saya mencentang kotak, warnanya berubah, jika saya hapus centang, itu berubah kembali (saya mendapat true=green, false=red ,else=red) . Tetapi ketika saya memeriksa dan menghapus centang itu menimbulkan kesalahan 'objek diperlukan'


Sub Pribadi CheckBox1_Click()
_____Jika Target.Address = "$e$5" Kemudian 'kesalahan di sini
__________Pilih Target Kasus.Nilai
__________Kasus "Salah"
_______________Me.Tab.Color = vbRed
__________Kasus "Benar"
_______________Me.Tab.Color = vbGreen
__________Kasus Lain
_______________Me.Tab.Color = vbRed
__________Pilihan Akhir
_____Berakhir jika
End Sub

Saya menyalin dan menempelkannya untuk melihatnya berjalan dan kemudian menyesuaikannya dengan kebutuhan saya, tetapi saya tidak akan menemukan cara untuk membuatnya berjalan.
Komentar ini diminimalkan oleh moderator di situs
Dear colleagues,
Mohon bantuannya. Saya perlu mengubah warna tab lembar berdasarkan nilai dalam format [h]:mm. Misalnya jika nilainya di bawah 20:00 - merah, >20:00 hijau.
Terima kasih dan salam!
Komentar ini diminimalkan oleh moderator di situs
Dear colleagues,
Mohon bantuannya. Saya perlu mengubah warna tab lembar berdasarkan nilai dalam format [h]:mm. Misalnya jika nilainya di bawah 20:00 - merah, >20:00 hijau.
Terima kasih dan salam!
Komentar ini diminimalkan oleh moderator di situs
Halo, Viktor,
Kode VBA di bawah ini dapat menyelesaikan masalah Anda, silakan coba, semoga dapat membantu Anda!

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Redupkan xStr Sebagai String
Redupkan xSN Sebagai String
Redupkan xDate Sebagai String
Redupkan xAlamat Sebagai String
Redupkan xArr() Sebagai String
Redupkan xI1 Sebagai Integer
Redupkan xSM Sebagai String
xTanggal = "20:00"
xAlamat = "$A$1"
Jika Target.Address <> xAddress Kemudian Keluar Sub
xStr = Target.Teks
xArr = Pisahkan(xStr, ":")
Jika (UBound(xArr) - LBound(xArr) + 1) > 2 Kemudian Keluar Sub
xI1 = Int(xArr(0))
Jika (Len(xArr(0)) - 2) < 1 Maka
Jika xI1 > 23 Kemudian Keluar Sub
Lain
Keluar dari Sub
End If
xSM = xArr(1)
Pada Kesalahan GoTo Err01
If (Len(xSM) - 2) <> 0 Kemudian Keluar Sub
Jika Int(Kiri(xSM, 1)) > 5 Kemudian Keluar Sub
Jika Int(Kanan(xSM, 1)) > 10 Kemudian Keluar Sub
Jika xI1 >= 20 Maka
Me.Tab.Color = vbGreen
Lain
Me.Tab.Color = vbRed
End If
Err01:
End Sub
Komentar ini diminimalkan oleh moderator di situs
Skyyang yang terhormat,
Maaf untuk umpan balik yang terlambat. Rumus ini berfungsi ketika saya secara manual mengubah nilai dalam sel. Tapi bukan itu yang saya butuhkan.
Nilai sel adalah hasil rumus dari lembar perbedaan. Misalnya, ini adalah rumus di sel "O13-'520'!AD3". Ini berarti bahwa nilai dalam sel ini berubah tergantung dari nilai sel yang berbeda dalam lembar yang berbeda. Yang saya butuhkan adalah warna lembar akan berubah secara otomatis ketika nilai di sel "O13-'520'!AD3" diubah, ketika nilai di sel "O13-'520'!AD3" di bawah 05:00 - merah , >20:00 hijau, antara pukul 05:00 dan 20:00 coklat.
Terima kasih sebelumnya dan salam!
Komentar ini diminimalkan oleh moderator di situs
Halo semuanya, bagaimana cara mengubah warna tab berdasarkan nilai tertentu di kolom beberapa lembar? terima kasih
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda menautkan tab ke nilai di tab yang berbeda. Dalam contoh saya, saya memiliki satu tab dengan semua informasi yang menyaring ke berbagai tab secara otomatis. Namun setiap tab akan terbaca hijau atau merah, tergantung pada apakah ada saldo yang beredar di tab master. Bisakah ini dilakukan dengan menggunakan kode ini dan jika demikian, di mana saya menulis tautan ke lembar master di dalam kode ini?
Komentar ini diminimalkan oleh moderator di situs
Halo,

Belum pernah melakukan kode di excel sebelumnya. Saya memerlukan kode yang melakukan apa yang dilakukan kode ini, tetapi saya memerlukan parameter lain.

Jadi yang saya butuhkan adalah:

Jika nilai sel bukan 0, dan/atau jika beberapa sel lain memiliki angka di dalamnya, gunakan hitungan, maka ubah warnanya menjadi merah

Jika nilai sel adalah 0 dan sel-sel lainnya kosong, gunakan hitungan, lalu ubah warna menjadi hijau
Komentar ini diminimalkan oleh moderator di situs
Halo, Mencoba mengubah warna tab berdasarkan nilai pada lembar terpisah yang disebut Pelacakan di sini adalah apa yang saya coba tetapi sepertinya tidak berhasil. terima kasih




Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)

'Perbarui oleh Extendoffice 20160930

Jika Target.Address = "Pelacakan!$C$2" Lalu

Pilih Target Kasus.Nilai

Kasus "ip"

Me.Tab.Color = vbRed

Kasus "w"

Saya.Tab.Warna = vbKuning

Kasus "c"

Me.Tab.Color = vbGreen

Case Else

Saya.Tab.Warna = vbBlue

End Select

End If

End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo, brad,
Untuk membuat kode berjalan dengan benar, Anda tidak harus memasukkan nama sheet ke dalam kode, silakan apple kode berikut: (klik nama sheet yang ingin Anda jalankan kode ini, lalu klik kanan nama sheet, dan pilih Lihat Kode, lalu tempel kode ke dalam modul)

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)

'Perbarui oleh Extendoffice 20160930

Jika Target.Address = "$C$2" Maka

Pilih Target Kasus.Nilai

Kasus "ip"

Me.Tab.Color = vbRed

Kasus "w"

Saya.Tab.Warna = vbKuning

Kasus "c"

Me.Tab.Color = vbGreen

Case Else

Saya.Tab.Warna = vbBlue

End Select

End If

End Sub

Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Saya ingin mengubah warna tab berdasarkan salah satu dari 2 hasil formula Saya memiliki rumus =IF((AND(AA1="Occupied",AA2="Occupied",AA3="Occupied",AA4=" Sudah Dihuni")), "Dihuni", "Kosong")
Saya perlu tab berwarna merah jika "Diduduki" dan hijau jika "Kosong". Namun kode di atas dalam posting utama tidak mengenali output dari If Than
Komentar ini diminimalkan oleh moderator di situs
Halo,
Saya butuh bantuan
Saya perlu mengubah warna tab lembar hanya jika dalam rentang sel tertentu, memiliki tanggal hari ini
Katakan misalnya,
Kolom L memiliki beberapa tanggal dalam format (13-Mei-22)
Salah satu nilai sel adalah tanggal hari ini, maka warna lembar tab harus berubah menjadi merah
Tolong bantu
Terima kasih sebelumnya
Komentar ini diminimalkan oleh moderator di situs
Saya ingin tab saya berubah warna jika ada sel di kolom O atau kolom P yang memiliki nilai di dalamnya. Apakah ini mungkin?

Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Saya ingin mengatur warna tab lembar berdasarkan warna sel j4 di setiap lembar. Ada 18+ Tab dan ingin memperbarui warna tab saat buku kerja dibuka. Jika saya tidak dapat memperbarui saat dibuka, saya dapat menjalankan makro setelah tim memperbarui lembar.
Komentar ini diminimalkan oleh moderator di situs
Halo, kayu
Untuk mengatasi masalah Anda, silakan terapkan kode di bawah ini: (Note: Salin dan tempel kode di bawah ini ke dalam Buku Kerja Ini modus kode)
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Call SetSheetColor
End Sub

Private Sub Workbook_Open()
Call SetSheetColor
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call SetSheetColor
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call SetSheetColor
End Sub

Sub SetSheetColor()
Dim xWShs As Sheets
Dim xRg As Range
Dim xFNum As Integer
Dim xSh As Worksheet
On Error Resume Next
Set xWShs = Application.ActiveWorkbook.Sheets
For xFNum = 1 To xWShs.Count
    Set xSh = xWShs.Item(xFNum)
    Set xRg = xSh.Range("J4")
    xSh.Tab.Color = xRg.Interior.Color
Next
End Sub


https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-color-sheet.png

Silahkan dicoba, semoga bisa membantu!
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