Tự chuyển sang code khi đánh nội dung

[dtaphuong]

Chào mọi người.

Trong file excel của mình có 2 cột là Status TC và Status FC, bình thường mình sẽ đánh nội dung tiếng việt vào nhưng vì để tiện cho pivot nên công ty yêu cầu báo cáo phải thể hiện nội dung 02 cột này dưới dạng là code.
Nên mình muốn nhờ mọi người xem giúp là khi mình đánh nội dung bang tiếng việt vào 02 ô này thì sẽ tự động chuyển sang mã code tương ứng

Mọi người xem trong file excel giúp mình nha.

 

[phulien1902]

Chào mọi người.

Trong file excel của mình có 2 cột là Status TC và Status FC, bình thường mình sẽ đánh nội dung tiếng việt vào nhưng vì để tiện cho pivot nên công ty yêu cầu báo cáo phải thể hiện nội dung 02 cột này dưới dạng là code.
Nên mình muốn nhờ mọi người xem giúp là khi mình đánh nội dung bang tiếng việt vào 02 ô này thì sẽ tự động chuyển sang mã code tương ứng

Mọi người xem trong file excel giúp mình nha.

Bạn thử với Code dưới đây:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Target.Parent.Range("E4:F340")
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, rng) Is Nothing Then Exit Sub
    Select Case Target
    Case "hen thanh toan"
        Target.Value = "PTP"
    Case "hen khong thanh toan"
        Target.Value = "BPTP"
    Case "hen thanh ly"
        Target.Value = "FLC"
    Case "dong hang thang"
        Target.Value = "TERM"
    Case "da thanh toan"
        Target.Value = "PAID"
    Case "nhan lai"
        Target.Value = "LM"
    Case "call sau"
        Target.Value = "CALLBACK"
    Case "khong nghe may"
        Target.Value = "RONA"
    Case "bysy"
        Target.Value = "BYSY"
    Case "khong lien lac duoc"
        Target.Value = "NCON"
    Case "thuong luong"
        Target.Value = "NEGO"
    Case "hen cho co"
        Target.Value = "NIOP"
    Case "khong chap nhan thanh toan"
        Target.Value = "RTP"
    Case "khong co kha nang thanh toan"
        Target.Value = "NCAP"
    Case "khong nhan"
        Target.Value = "NSP"
    Case "di lam xa"
        Target.Value = "OOT"
    Case "ve que"
        Target.Value = "OOTC"
    Case "chet"
        Target.Value = "DEAD"
    Case "that nghiep"
        Target.Value = "UNEMPLOYED"
    Case "pha san"
        Target.Value = "BANKRUPT"
    Case "benh"
        Target.Value = "SICK"
    Case "chuyen di noi khac"
        Target.Value = "SKIP"
    Case "gian lan khac hang khong vay"
        Target.Value = "FRAUD"
    Case "dia chi tim khong thay"
        Target.Value = "FV-INSAD"
    Case "khong con o day"
        Target.Value = "FV-UNLOCATED"
    Case "nha dong cua"
        Target.Value = "OIF"
    End Select
End Sub

Tham khảo File đính kèm.
Lưu ý: Thay vì bạn nhập tên có đầy đủ dấu thì bạn nhập chữ thường không dấu vào 2 cột E và F nhé.

 

[dtaphuong]

Cám ơn bạn nha. Mình đang cần cái này.