Liệu có thể tự động tô màu bằng VBA mà không dùng vòng lặp trường hợp này không? (1 người xem)

[nguyenmanhnam]

Em muốn tô màu bằng VBA cho ví dụ này mà không dùng vòng lặp (không dùng If), xin các bác chỉ dùm em.
Đầu vào là Sheet!DL, đầu ra mong muốn là Sheet!êu cầu.

 

[Quang_Hải]

Em muốn tô màu bằng VBA cho ví dụ này mà không dùng vòng lặp (không dùng If), xin các bác chỉ dùm em.
Đầu vào là Sheet!DL, đầu ra mong muốn là Sheet!êu cầu.

Thử thế này

Sub tomau()
Dim vung As Range
Set vung = Range([A2], [C65536].End(3))
With vung
    .AutoFilter 1, ""
    .Interior.ColorIndex = 6
    .AutoFilter
End With
End Sub

 

[nguyenmanhnam]

Vấn đề đầu bài yêu cầu chỉ làm theo cách ghi Macro thông thường, kết hợp di chuyển vùng chọn sử dụng lệnh Go to thôi anh ah. Em nghĩ chưa ra cách, mong anh chỉ thêm ah.

 

[leonguyenz]

Vấn đề đầu bài yêu cầu chỉ làm theo cách ghi Macro thông thường, kết hợp di chuyển vùng chọn sử dụng lệnh Go to thôi anh ah. Em nghĩ chưa ra cách, mong anh chỉ thêm ah.

Tôi chưa rành Resize nên không dám phát biểu Resize có dùng được với trường hợp này hay không, nên làm thêm 2 lần Offset:

Sub Button1_Click()
    With Sheet1.[A1:A16].SpecialCells(4)
        .Interior.ColorIndex = 6
        .Offset(, 1).Interior.ColorIndex = 6
        .Offset(, 2).Interior.ColorIndex = 6
    End With
End Sub