Tự động định dạng màu cho tên của từng sheet? (2 người xem)

[phanvankhanh89]

Liệu có thể tự động định dạng màu cho tên các sheet được không?
VD: Mình có 4 sheet có tên 1,2,3,4. phải làm như thế nào để tên các sheet thay đổi màu theo điều kiện được?

 

[Quang_Hải]

Liệu có thể tự động định dạng màu cho tên các sheet được không?
VD: Mình có 4 sheet có tên 1,2,3,4. phải làm như thế nào để tên các sheet thay đổi màu theo điều kiện được?

Thì viết code yêu cầu cho sheet nó đổi theo điều kiện. Dễ quá mà. Cũng như muốn no thì ăn.

 

[Hai Lúa Miền Tây]

Liệu có thể tự động định dạng màu cho tên các sheet được không?
VD: Mình có 4 sheet có tên 1,2,3,4. phải làm như thế nào để tên các sheet thay đổi màu theo điều kiện được?

Không biết điều kiện để thay đổi màu là gì nhưng tôi làm thử cho bạn như sau:

Trên các sheet ô A1, bạn tô màu vào cell đó theo từng sheet riêng, rồi chạy code sau:

Sub Test()
Dim sh As Worksheet
For Each sh In Worksheets
   sh.Tab.Color = sh.[a1].Interior.Color
Next

End Sub

 

[phanvankhanh89]

Bạn có thể cho mình xin code của bảng tính có 31 sheet như bên dưới, nó sẽ tự động bôi đỏ nếu ngày ấy là chủ nhật.

 

[Quang_Hải]

Bạn có thể cho mình xin code của bảng tính có 31 sheet như bên dưới, nó sẽ tự động bôi đỏ nếu ngày ấy là chủ nhật.

Chạy thử code này

Sub SheetTab_Color()
Dim sh As Worksheet, ngay, thang, nam, Chk As Date
For Each sh In Worksheets
   ngay = sh.Name
   thang = sh.[G2].Text
   nam = sh.[I2].Text
   Chk = DateSerial(nam, thang, ngay)
   If Weekday(Chk) = 1 Then sh.Tab.Color = 255 Else sh.Tab.Color = xlAutomatic
Next sh
End Sub

 

[phanvankhanh89]

cảm ơn bạn rất nhiều! Mình chạy được rồi