Các bạn giúp dùm phần trừ có điều kiện về màu chử (1 người xem)

[kufukfu]

các bạn xem fiel kèm theo
ờ côt d là phần công thức tính
điều kiện là như vầy: nếu A2 là màu đỏ ( màu chử nghe cac ban, không phải màu nền) thì c2-c3, nguoc lai A2 la mau xanh thi c3-c2, nguoc lai cung mau mà B2 không rổng thi c2-c3 nguoc lai c3-c2
các ban giup dum cam on

 

[leonguyenz]

Bạn nên đặt điều kiện cho màu chữ, ví dụ ở file tôi đặt thêm chữ D cho màu đỏ:

 

[kufukfu]

Cám Ơn ban leonguyenz cách của bạn cũng rất hây ý của bạn them chu D vào tại chử có màu đỏ như vay cung hoi bat tien minh gui tap tin nua kem theo ban xem va cac ban cung xem giup dum minh

 

[huuthang_bd]

Cám Ơn ban leonguyenz cách của bạn cũng rất hây ý của bạn them chu D vào tại chử có màu đỏ như vay cung hoi bat tien minh gui tap tin nua kem theo ban xem va cac ban cung xem giup dum minh

Bạn nên viết chữ tiếng Việt có dấu. Có thể bạn chưa quen nhưng tôi nghĩ là bạn nên tập vì đây cũng là một kỹ năng cần thiết nhất là đối với những người làm việc trên máy tính.
Chữ không dấu cũng là một nguyên nhất làm cho topic của bạn ít người "dòm ngó". Vừa đọc vừa đoán nghĩa nên lười.

 

[leonguyenz]

Cám Ơn ban leonguyenz cách của bạn cũng rất hây ý của bạn them chu D vào tại chử có màu đỏ như vay cung hoi bat tien minh gui tap tin nua kem theo ban xem va cac ban cung xem giup dum minh​

Trên diễn đàn có rất nhiều người là thầy giáo, bậc cha, chú của mình, bạn chú ý những lời khuyên của họ, cũng như những ngôn từ, cách viết của bạn trên diễn đàn, sẽ tốt cho bạn. Và bạn chú ý điều này: đừng gọi đích danh người khác, vì những bài của bạn có thể khó đối với bạn nhưng lại rất dễ so với nhiều người, khi bạn yêu cầu, họ sẽ giúp bạn, còn khi bạn gọi ai đó giúp thì bạn sẽ chờ lâu, có khi là không có đáp án cho bạn luôn đó, cho dù có dễ mấy thì chẳng ai chịu làm đâu. Ở dưới mỗi bài có 1 nút "Thanks", bạn có thể nhấn vào đó để cảm ơn người viết nếu bài đó giúp ích cho bạn.

 

[concogia]

Cám Ơn ban leonguyenz cách của bạn cũng rất hây ý của bạn them chu D vào tại chử có màu đỏ như vay cung hoi bat tien minh gui tap tin nua kem theo ban xem va cac ban cung xem giup dum minh

Góp một cách giải bằng hàm tự tạo

Public Function Tru(Cll As Range) As Double
    Dim Tam
    Application.Volatile
        If Cll.Font.ColorIndex = 5 Then
            Tam = Cll.Offset(1, 13) - Cll.Offset(, 13)
        Else
            Tam = Cll.Offset(, 13) - Cll.Offset(1, 13)
        End If
    Tru = Tam
End Function

Thân

 

[kufukfu]

Cám ơn bạn concogia rất nhiều , bạn cho hoi thêm nếu như cùng màu thì minh xét đến b3 không rổng thì N3-N4 nguoc lai N4-N3 nhờ ban giup dùm Xin cám Ơn

 

[concogia]

Cám ơn bạn concogia rất nhiều , bạn cho hoi thêm nếu như cùng màu thì minh xét đến b3 không rổng thì N3-N4 nguoc lai N4-N3 nhờ ban giup dùm Xin cám Ơn

Bạn thử xem trong file nhé
Hơi khó hiểu vì cột B hình như là đơn vị tính thôi mà
Híc

 

[kufukfu]

Cam ơn ban concogia nhiều đã giup đở !!!
ban cho minh xin mail hoac dd cua ban, minh còn nhieu chuyen để hoc hoi ở ban, minh xem code

Cll.Offset(1, 13) - Cll.Offset(, 13), mình hiều như vậy đúng o (hàng 1 cột 13, con 0,13 minh khong hieu vả lai cột 13 la m,con n la cot tong cong ban giai thich dum minh(minh o duoc thong minh ban dung cuoi)
mail cua minh hienkieudiem@gmail.com

 

[kufukfu]

ban giup dum minh lai bi vuong cho nay
Public Function win(ka As Range) As Double
Dim tt, b, c
Dim s As String
Application.Volatile
If ka.Font.ColorIndex = 3 Then
tt = ka.Offset(, 4) - (ka.Offset(1, 4)
If tt >= 1Then
s = "a100000000"
win = s
else
End If
End If
End Function
************
khi minh cho s="10000000" thi ra,nhung khi minh cho s = "a100000000" thi chương trinh báo #value.khong biet minh khai bao kiểu có sai o ?, nhờ bạn vá các ban giup dum