lukhachdinhan0
Thành viên mới
- Tham gia
- 25/2/11
- Bài viết
- 19
- Được thích
- 0
Phải là cách nhau 7 ô mới đúng chứ nhỉ?Chào các anh,chị.Xin chỉ giùm em cái file nay với ạ!
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
Thử code này xem sao, bấm nút nhé bạnChào các anh,chị.Xin chỉ giùm em cái file nay với ạ!
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
Bạn thử xem như trong file có được không nhé!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ỉ???
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:Bạn thử xem như trong file có được không nhé!
=AND(B1<>"",MOD(COUNTA($A$1:A$14)+COUNTA(B$1:B1),7)=1)
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,...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: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à.
Giờ thì bạn lại nóitô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
Là sao chứ?Trong vùng đã chọn :A1:E14 cứ cách đủ 6 ô không rỗng thì tô màu
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.Trong Comment bạn nói vầy:
Giờ thì bạn lại nói
Là sao chứ?
Mâu thuẩn chứ:Em nghĩ 2 ý này thực ra không mâu thuẫn nhau
Cái chỗ màu đỏ ở trên là 6 cell không rỗng anh ơi! Anh đọc lại mà xem.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
Thông cảm! Mình không cận nhưng hình như bị LÃO thì phảiCái chỗ màu đỏ ở trên là 6 cell không rỗng anh ơi! Anh đọc lại mà xem.
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2