Gán giá trị cố định cho ô có màu xác định (1 người xem)

[minhtuhan]

Gửi các bro, cho em hỏi muốn gán một giá trị cố định (ví dụ số 1) cho các ô có màu (ví dụ màu vàng). Thì có công thức hay vba nào không ạ?
Cám ơn các bro

 

[Nguyễn Hồng Quang]

chắc các cao thủ khác có cách khác còn mình thấy chạy VBA cũng tàm tạm
Ví dụ cột A các ô bôi màu vàng gán giá trị 1. Chạy code sau:
-----------------------------------
Public Sub dienso()
Dim row_i As Long
row_i = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row
Cells(row_i + 1, "A").Select
Cells(row_i + 1, "A") = " "
For rw = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(rw, 1).Interior.Color = 65535 Then Cells(rw, 1).Value = "1"
Next rw
End Sub

 

[minhtuhan]

Bro có thể cho xin file xla với code mở rộng cho cả sheet không? em chỉ biết áp dụng chứ không có biết code, nếu được bro cho xin bảng màu cơ bản của VBA để tiện thay đổi.
Cám ơn nhiều.

chắc các cao thủ khác có cách khác còn mình thấy chạy VBA cũng tàm tạm
Ví dụ cột A các ô bôi màu vàng gán giá trị 1. Chạy code sau:
-----------------------------------
Public Sub dienso()
Dim row_i As Long
row_i = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row
Cells(row_i + 1, "A").Select
Cells(row_i + 1, "A") = " "
For rw = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(rw, 1).Interior.Color = 65535 Then Cells(rw, 1).Value = "1"
Next rw
End Sub