Chạy công thức với điều kiện màu nền ô [VBA] (1 người xem)

[YMai]

Em cần chạy công thức các ô cột [C ]với điều kiện ô [A] tương xứng có màu vàng hoặc bỏ qua không chạy công thức nếu không có màu ạ.

Em không biết nhiều về VBA, đang tìm hiểu. Mong mọi người giúp đỡ ạ. Cảm ơn mọi người trước ạ.
Em chỉ làm được vầy

Sub chuyencan_tudong()
Range("C2") = "=IF(A2=1,350000,IF(A2=2,175000,0))"
Sheet2.Range("C2:C20").FillDown
End Sub

 

[YMai]

Em đã lập được công thức như vầy nhưng bị lỗi trong công thức (màu xanh). Làm sao mới khắc phục được ạ?

Private Sub Worksheet_change(ByVal Target As Range)
If Not Application.Intersect(Range("A2:A20"), Range(Target.Address)) Is Nothing Then
Call chuyencan_tudong
End If
End Sub
Sub chuyencan_tudong()
Dim number As Integer
    For i = 2 To 200
        number = Range("A" & i).Value
If Range("A" & i).Interior.ColorIndex = 3 Then
Range("C" & i) = "=IF(Range(A&i)=1,350000,IF(Range(A&i)=2,175000,0))"
End If
Next i
End Sub

 

[Ba Tê]

Em đã lập được công thức như vầy nhưng bị lỗi trong công thức (màu xanh). Làm sao mới khắc phục được ạ?
View attachment 217242

Private Sub Worksheet_change(ByVal Target As Range)
If Not Application.Intersect(Range("A2:A20"), Range(Target.Address)) Is Nothing Then
Call chuyencan_tudong
End If
End Sub
Sub chuyencan_tudong()
Dim number As Integer
    For i = 2 To 200
        number = Range("A" & i).Value
If Range("A" & i).Interior.ColorIndex = 3 Then
Range("C" & i) = "=IF(Range(A&i)=1,350000,IF(Range(A&i)=2,175000,0))"
End If
Next i
End Sub

- Không ai trả lời vì bạn không đính kèm file lên. Không ai có thể kiểm tra bằng cách nhìn cái hình mà cho code chạy để xem kết quả.
- VBA không hiểu kiểu viết vầy: "=IF(Range(A&i)=1,350000,IF(Range(A&i)=2,175000,0))"

 

[YMai]

- Không ai trả lời vì bạn không đính kèm file lên. Không ai có thể kiểm tra bằng cách nhìn cái hình mà cho code chạy để xem kết quả.
- VBA không hiểu kiểu viết vầy: "=IF(Range(A&i)=1,350000,IF(Range(A&i)=2,175000,0))"

tại mình chỉ gõ 2 dòng để thử thôi nên không lưu file. Mà mình làm được rồi cảm ơn bạn nha.