Cần giúp về macro xét giá trị của ô trong cột sau đó ghi sang cột khác, tô màu nền (1 người xem)

[asian4you]

Chào các bác, các bác có thể giúp em cái macro xét các ô ở cột A nếu ="test" thì ghi sang cột B tương ứng là ="1" và đổi màu nền ô đó thành màu đỏ được không như trong file xls em gửi kèm. Cám ơn các bác nhiều.

 

[Ba Tê]

Chào các bác, các bác có thể giúp em cái macro xét các ô ở cột A nếu ="test" thì ghi sang cột B tương ứng là ="1" và đổi màu nền ô đó thành màu đỏ được không như trong file xls em gửi kèm. Cám ơn các bác nhiều.

Đây là code đơn giản nhất theo dữ liệu hiện giờ của bạn.
Nếu bạn đang "muốn vọc VBA" thì chỉnh sửa lại cho đúng theo dữ liệu thật của bạn.
[GPECODE=vb]Public Sub GPE()
Dim Rng As Range, Cll As Range
Set Rng = Range("A2:A11") ' Vung du lieu
For Each Cll In Rng
If Cll.Value = "test" Then 'Dieu kien la test
Cll.Offset(, 1) = 1
Cll.Offset(, 1).Interior.ColorIndex = 3
End If
Next Cll
Set Rng = Nothing[/GPECODE]

 

[asian4you]

Cám ơn bạn nhiều, công việc mình giờ hiện cũng dùng đến nhiều excel, nhiều lúc làm thủ công lâu hoặc các hàm trong excel không đủ xài nên đang nghiên cứu chuyển qua VBA.