Tô màu cột đầu tiên khi trong dòng đó xuất hiện "x"

luxubu2011

Sơ cấp
Cho em hỏi về cách tô màu cột đầu tiên khi trong dòng đó xuất hiện chữ "x" ở bất kì cột nào

M65fgXZ.png


Ví dụ:

Tô màu A728 nếu từ C728:Z728 xuất hiện x
 

Đính kèm

Bạn chỉ cần sử dụng Conditional Formating là được, các bước như sau
1. Chọn khối cột đầu tiên (A1:A38);
Vào Conditional Formating --> New rule --> Use a Fomula to ...... (dòng dưới cùng)
2. Ở ô Format value where ..... gõ công thức: =countif($C1:$Z1,"x")
3. ở phía dưới chọn Format... --> chọn tab Fill, chọn màu muốn tô màu ở cột đầu tiên --> chọn ok --> ok

Chúc bạn thành công
 
Bạn cho macro này chạy trên trang tính chứa dữ liệu của bạn:
Mã:
Option Explicit
Sub ToMau()
 Dim CSDL As Range
 Dim Rws As Long, Col As Integer, J As Long, W As Integer
 
 Set CSDL = Sheet1.UsedRange
 Rws = CSDL.Rows.Count
 Col = CSDL.Columns.Count
 ReDim Arr(1 To 1, 1 To Col - 2)
 For J = 1 To Rws
  Arr() = Cells(J, "C").Resize(, Col - 2).Value
  For W = 1 To Col - 2
  If UCase$(Arr(1, W)) = "X" Then
  Cells(J, "A").Interior.ColorIndex = 38
  Exit For
  End If
  Next W
 Next J
End Sub
 
Cho em hỏi về cách tô màu cột đầu tiên khi trong dòng đó xuất hiện chữ "x" ở bất kì cột nào

M65fgXZ.png


Ví dụ:

Tô màu A728 nếu từ C728:Z728 xuất hiện x
Bạn phải xác định xem cột nào sẽ đánh dấu x.
 
Back
Top