Hỏi về vấn đề liên quan tới định dạng bằng VBA

[HideBoy]

Mình đặt Conditionals Formatting cho một vùng, và đưa vào Formulais = "=(Row()= Cell("Row"))" (Đã có trên GPE) để mỗi khi chọn một ô bất kỳ nó sẽ định rạng cho cả dòng đó.
Tuy nhiên, Mình viết code VBa thì nó lại không được vì nó hiểu sau Formula là một String, vậy phải làm sao để chèn được xâu "Row" vào giữa chuỗi, nếu không có "row" mà chỉ có row thôi thì lại không định dạng được.

        Range("A10:I100").Select  (I & Lastrow, Mình đặt luôn là 100 cho tiện)
        Range("A10:I100").FormatConditions.Delete
        Range("A10:I100").FormatConditions.Add Type:=xlExpression,_ 
        Fomular1:= "=(Row()= Cell("Row"))"
        With Range(("A10:I100").FormatConditions(1)
               .Interior.ColorIndex = 46
               .Borders.LineStyle = xlThin
        End With

Ai có cách giải quyết giúp mình! Vì dữ liệu của mình khi thì lọc ra 5, khi thì ra 20.000 bản ghi,.. Nên cần định dạng dữ liệu theo vùng data bằng code, nếu định dạng cho cả Sheet thì OK, chỉ có điều kích thước file nó phình ra.

 

[hoa35ktxd]

Bạn thử sửa lại như thế này xem nhé:
Fomular1:= "=(Row()= Cell(" & chr(34) & "Row" & chr(34) & "))"

 

[cadafi]

.....................
        Range("A10:I100").FormatConditions.Add Type:=xlExpression,_ 
        Fomular1:= "=(Row()= Cell("Row"))"
.....................................................

Bạn chỉ cần sửa lại chút xíu là xong ngay, phải cần hai dấu nháy kép tại từ ROW:

.....................
Range("A10:I100").FormatConditions.Add Type:=xlExpression,_
Fomular1:= "=(Row()= Cell(""Row""))"
.....................................................

 

[HideBoy]

Ủa! Lạ thật! Trước mình cũng đã chèn đúp " vào như Ca_dafi sao không được nhỉ! Mình đã làm thế rồi, nhưng kiểm tra lại thấy không được!
Hichic! Thôi hỏng rồi! Chắc sau khi code xong! Mình chưa bỏ chế độ Design Mode để trở về Selection_Change,.... Àh áh! Vội vàng thử cách khác nên bỏ qua cách đúng! Trời! OK rồi!
Thanks Ca_dafi!