Giúp đỡ nhập dữ liệu theo điều kiện MÀU FONT (1 người xem)

[hailong]

Chào cả nhà.

Giúp đỡ mình nhập dữ liệu theo điều kiện MÀU FONT

VD: ô A1 có dữ liệu và font CHỮ màu đỏ thì ô D1 xuất hiện ký tự A

ô A3 có dữ liệu và font CHỮ màu xanh thì ô D3 xuất hiện ký tự B

ô A5 có dữ liệu và font CHỮ màu đen thì ô D1 rõng.

Chân thành cám ơn.

HAI LONG - NHA TRANG

 

[anhtuan1066]

Cái này chắc phải dùng VBA...
Cho bạn 1 con macro đơn giãn đây:

Sub MAU()
    Er = Range("A10000").End(xlUp).Row
    For i = 1 To Er
       If Cells(i, 1).Font.ColorIndex = 0 Then Cells(i, 4).Value = ""
       If Cells(i, 1).Font.ColorIndex = 3 Then Cells(i, 4).Value = "A"
       If Cells(i, 1).Font.ColorIndex = 5 Then Cells(i, 4).Value = "B"
    Next i
End Sub

Nhập liệu xong thì chạy Sub

Bạn xem file này nhé! Cứ nhập liệu và format font chử bình thường.. khi nào muốn xuất hiện kết quả thì bấm F9
Mến
ANH TUẤN

 

[tigertiger]

Nên dùng lệnh Selectcase thay cho IF (cì trường hợp này giá trị nguyên) cho nó gọn và dễ hiểu hơn atuan ah, và kQ thế này

Sub MAU()
    Er = Range("A10000").End(xlUp).Row
    For i = 1 To Er
      Select Case Cells(i, 1).Font.ColorIndex
         Case 0: Cells(i, 4).Value = ""
         Case 3: Cells(i, 4).Value = "A"
         Case 5: Cells(i, 4).Value = "B"
      End Select
    Next i
End Sub