Thay đổi màu của tất cả các tab trang tính trong Excel VBA

Thay đổi màu của tất cả các tab trang tính trong Excel VBA 

Bạn có thể lặp qua tất cả các trang của sổ làm việc bằng cách sử dụng bộ sưu tập Trang tính của sổ làm việc. Và tạo một biến để giữ colorIndex và gán cho từng trang tính.

Xem mã ví dụ sau để biết cách tô màu tất cả các tab trang tính của sổ làm việc. Trong ví dụ này, tôi tô màu cho mỗi tab Trang tính bằng màu Duy nhất.

Code

Sub sbColorAllSheetTab()
'Declaration
Dim iCntr, sht

'This will hold the colorIndex number
iCntr = 2

'looping throgh the all the sheets of the workbook
For Each sht In ThisWorkbook.Worksheets
    iCntr = iCntr + 1
    
    'Applying the colors to Sheet tabs
    sht.Tab.ColorIndex = iCntr
Next

End Sub

Hướng dẫn: 

1. Mở một sổ làm việc Excel
2. Thêm các trang tính (có thể từ 10-50 trang tính)
3. Nhấn Alt+F11 để mở Trình soạn thảo VBA
4. Chèn một module mới từ menu Insert
5. Sao chép mã trên và dán vào cửa sổ mã
6. Lưu tệp dưới dạng sổ làm việc có kích hoạt macro
7. Nhấn F5 để xem kết quả
8. Bạn sẽ thấy tất cả các tab trang tính được tô màu như dưới đây