Code tô một màu hay nhiều màu sau khi mô tả số lỗi

[hoanglocphat]

Các bạn xem nội dung trong file
Cảm ơn các bạn

 

[snow25]

Các bạn xem nội dung trong file
Cảm ơn các bạn

Thế danh sách bảng màu của bạn đâu.

 

[hoanglocphat]

Thế danh sách bảng màu của bạn đâu.

Bây giờ tạm tính là 3 màu như
Lỗi sản xuất thì tô màu đỏ
lỗi kho thì tô màu tím
lỗi vận chuyển thì tô màu vàng
Nhờ bạn viết code giúp , khi thêm lỗi thì tôi sẽ áp dụng tự động thêm màu sau
cảm ơn bạn quan tâm

 

[stao]

Các bạn xem nội dung trong file
Cảm ơn các bạn

Vầy được không bạn. Chúc vui.

 

[hoanglocphat]

Vầy được không bạn. Chúc vui.

Code chạy đúng rồi bạn, nhưng mình muốn code tự động chạy sau khi vừa nhập xong 1 dòng ở cột J, chứ không phải bấm nút để chạy code. Cảm ơn bạn nhiều

 

[stao]

Code chạy đúng rồi bạn, nhưng mình muốn code tự động chạy sau khi vừa nhập xong 1 dòng ở cột J, chứ không phải bấm nút để chạy code. Cảm ơn bạn nhiều

Ok nó sẽ như vầy

 

[hoanglocphat]

Ok nó sẽ như vầy

Bạn cho hỏi thêm trong code có
Case "S" & ChrW$(7842) & "N XU" & ChrW$(7844) & "T"
Dùng code gì để chữ "sản xuất" ra được như trên
Cảm ơn bạn nhiều

 

[snow25]

Bây giờ tạm tính là 3 màu như
Lỗi sản xuất thì tô màu đỏ
lỗi kho thì tô màu tím
lỗi vận chuyển thì tô màu vàng
Nhờ bạn viết code giúp , khi thêm lỗi thì tôi sẽ áp dụng tự động thêm màu sau
cảm ơn bạn quan tâm

Bạn thử.

 

[stao]

Bạn cho hỏi thêm trong code có
Case "S" & ChrW$(7842) & "N XU" & ChrW$(7844) & "T"
Dùng code gì để chữ "sản xuất" ra được như trên
Cảm ơn bạn nhiều

Dùng đoạn code này nha:

Public Function MaUNICODE(ByVal ch As String) As String
Dim Ma1, Ma2, Uni1, Uni2
Dim kq, kt, kt1, i, j
Ma1 = "225;224;7843;227;7841;259;7855;7857;7859;7861;7863;226;7845;7847;7849;7851;7853;233;232;7867;7869;7865;234;7871;7873;7875;7877;7879;237;236;7881;297;7883;243;242;7887;245;7885;244;7889;7891;7893;7895;7897;417;7899;7901;7903;7905;7907;250;249;7911;361;7909;432;7913;7915;7917;7919;7921;253;7923;7927;7929;7925;273;193;192;7842;195;7840;258;7854;7856;7858;7860;7862;194;7844;7846;7848;7850;7852;201;200;7866;7868;7864;202;7870;7872;7874;7876;7878;205;204;7880;296;7882;211;210;7886;213;7884;212;7888;7890;7892;7894;7896;416;7898;7900;7902;7904;7906;218;217;7910;360;7908;431;7912;7914;7916;7918;7920;221;7922;7926;7928;7924;272"
Ma2 = "ChrW$(225);ChrW$(224);ChrW$(7843);ChrW$(227);ChrW$(7841);ChrW$(259);ChrW$(7855);ChrW$(7857);ChrW$(7859);ChrW$(7861);"
Ma2 = Ma2 & "ChrW$(7863);ChrW$(226);ChrW$(7845);ChrW$(7847);ChrW$(7849);ChrW$(7851);ChrW$(7853);ChrW$(233);ChrW$(232);ChrW$(7867);ChrW$(7869);ChrW$(7865);ChrW$(234);ChrW$(7871);ChrW$(7873);ChrW$(7875);ChrW$(7877);ChrW$(7879);ChrW$(237);ChrW$(236);ChrW$(7881);ChrW$(297);ChrW$(7883);ChrW$(243);ChrW$(242);ChrW$(7887);ChrW$(245);ChrW$(7885);ChrW$(244);ChrW$(7889);ChrW$(7891);ChrW$(7893);ChrW$(7895);ChrW$(7897);ChrW$(417);ChrW$(7899);ChrW$(7901);ChrW$(7903);ChrW$(7905);ChrW$(7907);ChrW$(250);ChrW$(249);ChrW$(7911);ChrW$(361);ChrW$(7909);ChrW$(432);ChrW$(7913);ChrW$(7915);ChrW$(7917);ChrW$(7919);ChrW$(7921);ChrW$(253);ChrW$(7923);ChrW$(7927);"
Ma2 = Ma2 & "ChrW$(7929);ChrW$(7925);ChrW$(273);ChrW$(193);ChrW$(192);ChrW$(7842);ChrW$(195);ChrW$(7840);ChrW$(258);ChrW$(7854);ChrW$(7856);ChrW$(7858);ChrW$(7860);ChrW$(7862);ChrW$(194);ChrW$(7844);ChrW$(7846);ChrW$(7848);ChrW$(7850);ChrW$(7852);ChrW$(201);ChrW$(200);ChrW$(7866);ChrW$(7868);ChrW$(7864);ChrW$(202);ChrW$(7870);ChrW$(7872);ChrW$(7874);ChrW$(7876);ChrW$(7878);ChrW$(205);ChrW$(204);ChrW$(7880);ChrW$(296);ChrW$(7882);ChrW$(211);ChrW$(210);ChrW$(7886);ChrW$(213);ChrW$(7884);ChrW$(212);ChrW$(7888);ChrW$(7890);ChrW$(7892);ChrW$(7894);ChrW$(7896);ChrW$(416);ChrW$(7898);ChrW$(7900);ChrW$(7902);ChrW$(7904);ChrW$(7906);ChrW$(218);"
Ma2 = Ma2 & "ChrW$(217);ChrW$(7910);ChrW$(360);ChrW$(7908);ChrW$(431);ChrW$(7912);ChrW$(7914);ChrW$(7916);ChrW$(7918);ChrW$(7920);ChrW$(221);ChrW$(7922);ChrW$(7926);ChrW$(7928);ChrW$(7924);ChrW$(272)"
Uni1 = Split(Ma1, ";")
Uni2 = Split(Ma2, ";")
ch = Replace(ch, "  ", " ")
For i = 1 To Len(ch)
kt = Mid(ch, i, 1)
For j = 0 To UBound(Uni1)
If AscW(kt) = Uni1(j) Then
kt = Chr(34) & "&" & Uni2(j) & "&" & Chr(34)
Exit For
End If
Next
kq = kq & kt
Next
If Left(kq, 6) <> "ChrW$(" Then kq = Chr(34) & kq
kq = Replace(kq, "&&", "&")
kq = Replace(kq, "&" & Chr(34) & Chr(34) & "&", "&")
If Right(kq, 2) <> "&" & Chr(34) Then kq = kq & Chr(34)
If Right(kq, 2) = "&" & Chr(34) Then kq = Left(kq, Len(kq) - 2)
MaUNICODE = kq
End Function

 

[phulien1902]

Bạn thử.

Bài toán này trọn ven hơn, nếu ta bỏ lỗi nào đó đi, thì cột không còn tô màu?