Tô màu các ô!

[lukhachdinhan0]

Chào các anh,chị.Xin chỉ giùm em cái file nay với ạ!

 

[nghiaphuc]

Chào các anh,chị.Xin chỉ giùm em cái file nay với ạ!

Phải là cách nhau 7 ô mới đúng chứ nhỉ?
Thử code sau xem sao:

Sub ToMau()
    Dim i As Integer, j As Integer, Dem As Long, Rng As Range
    [A1].CurrentRegion.Interior.Pattern = xlNone
    i = 1: j = 1: Set Rng = [A1]
    Do While Cells(i, j) <> ""
        i = i + 1: Dem = Dem + 1
        If Cells(i, j) = "" Then j = j + 1: i = 1
        If Dem Mod 7 = 0 And Cells(i, j) <> "" Then Set Rng = Union(Rng, Cells(i, j))
    Loop
    Rng.Interior.Color = 65535
End Sub

Lưu ý là dữ liệu trong vùng phải liên tục đấy nhé (có nghĩa là dữ liệu trong các cột không được trống ở giữa). Nếu trống ở giữa cột thì code trên... tèo đời, phải sắm code khác xịn hơn.
Trong file đính kèm, bạn nhấn Ctrl+Shift+C để tô màu nhé.

 

[concogia]

Chào các anh,chị.Xin chỉ giùm em cái file nay với ạ!

Thử code này xem sao, bấm nút nhé bạn

Public Sub ToMau()
    Dim Vung, I, J, K
    Set Vung = [a1].CurrentRegion:   K = 7
    Vung.Interior.ColorIndex = xlNone
        For I = 1 To Vung.Columns.Count
            For J = 1 To Vung.Rows.Count
                If Vung(J, I) <> vbNullString Then K = K + 1
                If Vung(J, I) <> vbNullString And K Mod 7 = 1 Then Vung(J, I).Interior.ColorIndex = 6
            Next J
        Next I
End Sub

Thân

 

[lukhachdinhan0]

hu hu!em tưởng có cái CF dùng tạm.ai dè là Code.cái này thì em chịu.Nhưng dù sao cũng cảm ơn các anh chị....
Liệu có thể dùng CF được không nhỉ???

 

[hoangminhtien]

hu hu!em tưởng có cái CF dùng tạm.ai dè là Code.cái này thì em chịu.Nhưng dù sao cũng cảm ơn các anh chị....
Liệu có thể dùng CF được không nhỉ???

Bạn thử xem như trong file có được không nhé!

 

[ndu96081631]

Bạn thử xem như trong file có được không nhé!

Công thức cho cột A thế là được, nhưng từ B1 trờ đi thì rút gọn thành vầy:

=AND(B1<>"",MOD(COUNTA($A$1:A$14)+COUNTA(B$1:B1),7)=1)

 

[lukhachdinhan0]

hu hu!vẫn chẳng ai hiểu cả.Làm ơn đọc lại giùm cái Comment với!:Trong vùng đã chọn :A1:E14 cứ cách đủ 6 ô không rỗng thì tô màu.với điều kiện:lần lượt từ trái qua phải,từ trên xuống dưới-nghĩa là đếm đến a14 rồi tiếp tục sang b1,phải liền mạch mà.

 

[nghiaphuc]

hu hu!vẫn chẳng ai hiểu cả.Làm ơn đọc lại giùm cái Comment với!:Trong vùng đã chọn :A1:E14 cứ cách đủ 6 ô không rỗng thì tô màu.với điều kiện:lần lượt từ trái qua phải,từ trên xuống dưới-nghĩa là đếm đến a14 rồi tiếp tục sang b1,phải liền mạch mà.

Khổ nỗi cái Comment trong file đó đâu có đúng với những gì mà bạn đã tô trong file mẫu đâu. Theo đúng như trong file mẫu thì phải là như vầy nè: Trong vùng A1:E14, cứ cách 7 ô không rỗng thì tô màu, với điều kiện: lần lượt từ trên xuống dưới, từ trái qua phải (trên xuống dưới trước, trái qua phải sau). Nếu theo đúng trình tự như bạn comment thì phải dò A1 --> E1, tiếp tục là A2 --> E2,...
Bạn nói một đường, làm một nẻo thì người khác hiểu như vậy là may lắm rồi đó.

 

[ndu96081631]

hu hu!vẫn chẳng ai hiểu cả.Làm ơn đọc lại giùm cái Comment với!:Trong vùng đã chọn :A1:E14 cứ cách đủ 6 ô không rỗng thì tô màu.với điều kiện:lần lượt từ trái qua phải,từ trên xuống dưới-nghĩa là đếm đến a14 rồi tiếp tục sang b1,phải liền mạch mà.

Trong Comment bạn nói vầy:

tôi muốn tô màu vàng cho các ô cách nhau 6 ô.Lần lượt từ trái qua phải,từ trên xuống dưới.
Đặc biệt:những ô trống sẽ không được tính

Giờ thì bạn lại nói

Trong vùng đã chọn :A1:E14 cứ cách đủ 6 ô không rỗng thì tô màu

Là sao chứ?

 

[nghiaphuc]

Trong Comment bạn nói vầy:

Giờ thì bạn lại nói

Là sao chứ?

Em nghĩ 2 ý này thực ra không mâu thuẫn nhau. Điều mâu thuẫn ở đây là giữa những gì tác giả đã nói và làm.
Nếu cứ theo cái Comment đó thì phải tô như vầy nè:

 

[ndu96081631]

Em nghĩ 2 ý này thực ra không mâu thuẫn nhau

Mâu thuẩn chứ:
- Lúc đầu nói Những cell rổng sẽ không được tính
- Sau lại nói: Cách đủ 6 cell rổng thì tô màu
Làm người ta hoang mang, không biết ĐẾM dựa vào cell có dữ liệu hay cell rổng
Ối mà thôi... Tác giả muốn làm gì thì nói cho rõ, không thì thôi... Chả ai rảnh

 

[nghiaphuc]

Mâu thuẩn chứ:
- Lúc đầu nói Những cell rổng sẽ không được tính
- Sau lại nói: Cách đủ 6 cell rổng thì tô màu
Làm người ta hoang mang, không biết ĐẾM dựa vào cell có dữ liệu hay cell rổng
Ối mà thôi... Tác giả muốn làm gì thì nói cho rõ, không thì thôi... Chả ai rảnh

Cái chỗ màu đỏ ở trên là 6 cell không rỗng anh ơi! Anh đọc lại mà xem.

 

[ndu96081631]

Cái chỗ màu đỏ ở trên là 6 cell không rỗng anh ơi! Anh đọc lại mà xem.

Thông cảm! Mình không cận nhưng hình như bị LÃO thì phải
Ẹc... Ẹc...