Nhờ định dạng màu nền bằng VBA (1 người xem)

[eokakoe]

Em muốn nhờ các anh chị định dạng giúp em 1 vùng: ví dụ

[A5].resize(i, 10)

sao cho cứ 1 dòng không có màu nền xen kẽ 1 dòng có màu nền bất kỳ (chẳng hạn màu vàng). Xin nhờ các anh chị hướng dẫn. Em xin cảm ơn.

 

[xuan.nguyen82]

Em muốn nhờ các anh chị định dạng giúp em 1 vùng: ví dụ

[A5].resize(i, 10)

sao cho cứ 1 dòng không có màu nền xen kẽ 1 dòng có màu nền bất kỳ (chẳng hạn màu vàng). Xin nhờ các anh chị hướng dẫn. Em xin cảm ơn.

Cái này có bắt buộc dùng VBA không bạn? Nếu không nhất thiết dùng VBA thì có thể dùng công cụ conditional Formatting là được rồi??

 

[eokakoe]

Cám ơn chị. Em làm được rồi.

 

[xuan.nguyen82]

Cám ơn chị. Em làm được rồi.

Bạn làm bằng CF hả? Thực ra tại mình thấy rất nhiều công cụ trong Ẽxcel có thể vận dụng được để áp dụng. Nên bao giờ đầu tiên khi nghĩ tới giải quyết vấn đề nào đó mà xét thấy công cụ của Excel có thể làm được thì mình dùng trước, sau đó không làm được thì dùng tới công thức và VBA.

 

[eokakoe]

Vâng, em đặt tên vùng trong VBA rồi dùng CF. Đang loay hoay trong VBA nên cũng cứ cuồng vào đấy.

 

[Ba Tê]

Vâng, em đặt tên vùng trong VBA rồi dùng CF. Đang loay hoay trong VBA nên cũng cứ cuồng vào đấy.

Muốn VBA thì thử với Sub Màu Mè hay Máu Me này xem sao rồi tùy chỉnh cho vừa ý.

Public Sub MauMe()
Dim I As Long
For I = 2 To 100 Step 2
    Cells(I, 1).Resize(, 10).Interior.ColorIndex = 36
Next I
End Sub

 

[SA_DQ]

4 T đây, mại zô!

[ThongBao]Muốn VBA thì thử với Sub Màu Mè hay Máu Me này xem sao rồi tùy chỉnh cho vừa ý.

[B]Public Sub MauMe()[/B]
Dim I As Long
For I = 2 To 100 Step 2
    Randomize
    Cells(I, 1).Resize(, 10).Interior.ColorIndex = 34  +  9 * Rnd() \1
Next I
[B]End Sub[/B]

[/ThongBao]