Nguyễn Hồng Quang
Thành viên GPE Hà Nội
- Tham gia
- 8/6/07
- Bài viết
- 1,203
- Được thích
- 876
- Giới tính
- Nam
- Nghề nghiệp
- Kế toán
Như tiêu đề đã nêu. Mình muốn Đánh dấu x vào cột I, cho những ô ở cột F và G có .Font.Color là màu xanh (= -1003520)
Code của mình hiện tại đang gán cho Button12:
Nhưng khi chạy code thì không thấy kết quả gì
Nhờ mọi người hỗ trợ
Code của mình hiện tại đang gán cho Button12:
Mã:
Sub Button12_Click()
Dim lr As Long
With Sheets("2017+2018+2019")
Sheets("2017+2018+2019").Select
lr = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 5 To lr
If Cells(i, 6).Font.Color = -1003520 Or _
Cells(i, 7).Font.Color = -1003520 Then
Cells(i, 9).Value = "x"
End If
Next i
End With
End Sub
Nhờ mọi người hỗ trợ