Tô màu các ô liên tiếp trong dòng

[pt_hcl]

Các bạn xem giúp mình trường hợp tô màu: Mình cần tô màu cho các ô trong dòng.
1/ Giả sử mình cần tô màu cho n ô liên tiếp sau đó lại cách n ô lại tiếp tục tô màu cho n ô liên tiếp thì làm như thế nào nhanh nhất?
- Trong file minh hoạ cho trường hợp tô màu cho 8 ô liên tiếp.
- Xin cảm ơn các bạn!

 

[dhn46]

Bạn dùng condition formating.

Theo như file của bạn thì bạn làm như sau:

B1: Chọn dòng 5
B2: Dùng CF với công thức

=ISEVEN(INT((COLUMN(A1)-1)/8))

=> OK

 

[pt_hcl]

Cảm ơn bạn! Bạn giúp mình phần code vba được không bạn? Mình muốn kết hợp với code khác nữa!

 

[SA_DQ]

Option Explicit
Sub Tô_Màu_Các_Dòng()
Dim SoDg As Byte, Col As Integer, J As Long, W As Long, Mau As Byte
Dim To0 As Boolean

SoDg = InputBox("Só Ô Cách", "GPE.COM Xin Chào", 9)
If SoDg > 24 Then SoDg = 24
Col = Cells.Columns.Count - SoDg * 9
Cells.Interior.ColorIndex = 2
To0 = Not To0:                  Randomize
For J = 2 To 99
    Mau = 34 + 9 * Rnd()
    For W = 1 To Col Step SoDg
        If To0 Then
            Cells(J, W).Resize(, SoDg).Interior.ColorIndex = Mau
            To0 = False
        Else
            To0 = True
        End If
    Next W
Next J
End Sub

 

[befaint]

bài #4 lỗi khi nhập vào inputbox không phải là số, khi click nút Cancel.

 

[HieuCD]

bài #4 lỗi khi nhập vào inputbox không phải là số, khi click nút Cancel.

bạn cho ý kiến dùm

Option Explicit
Sub Color_Col()
Dim Col_S, i As Long, j As Long
Col_S = InputBox("Só Ô Cách", "GPE.COM Xin Chào", 8)
If Not IsNumeric(Col_S) Then
  MsgBox ("Nhap so sai, Lenh khong thuc hien")
  Exit Sub
End If
Cells.Interior.ColorIndex = 2
Randomize
For i = 2 To 10 Step 2
    For j = 1 To 4 * 2 * Col_S Step Col_S * 2
        Cells(i, j).Resize(, Col_S).Interior.ColorIndex = 34 + 9 * Rnd()
    Next j
Next i
End Sub

chúc bạn năm mới tràn đầy niềm vui

 

[befaint]

bạn cho ý kiến dùm
...
chúc bạn năm mới tràn đầy niềm vui

Nhập sai mà cho nhập lại thì tốt.

Nhấn nút Cancel cũng có thông báo nhập sai?

Chúc anh tối vui!

 

[ChanhTQ@]

Cũng tùy lúc; Có khi vấp ngã sẽ giúp họ vững hơn.

 

[HieuCD]

Nhập sai mà cho nhập lại thì tốt.
Nhấn nút Cancel cũng có thông báo nhập sai?
Chúc anh tối vui!

Sub Color_Col()
Dim Col_S, i As Long, j As Long
Tiep:
Col_S = InputBox("Nhap Khoang Cách Ô", "GPE.COM Xin Chào", 8)
If Col_S = "" Then
  MsgBox ("Lenh Bi Huy, Thoát Chuong Trình")
  Exit Sub
End If
If Not IsNumeric(Col_S) Then
  MsgBox ("Nhap Sai Loai Du Lieu, Nhap Lai Theo Dang So")
  GoTo Tiep
End If
Cells.Interior.ColorIndex = 2
Randomize
For i = 2 To 10 Step 2
    For j = 1 To 4 * Col_S * 2 Step Col_S * 2
        Cells(i, j).Resize(, Col_S).Interior.ColorIndex = 34 + 9 * Rnd()
    Next j
Next i
End Sub

bạn xem code ổn chưa, cám ơn bạn
chúc bạn luôn như ý

 

[befaint]

...
bạn xem code ổn chưa, cám ơn bạn
chúc bạn luôn như ý

ông mặt trời!

Cảm ơn anh.