Xin giúp đỡ nhập liệu, sau khi enter ra dữ liệu được gán vào

[Di_Di]

Chào các Anh chị, Em có 1 file excel, gồm 2 cột.
Cột A là tên viết tắt của chữ đầu của tỉnh (Ví dụ: SG1, HN2... SG1= Sài Gòn, HN2 = Hà Nội)
Cột B sẽ là tên đầy đủ của tỉnh (Ví dụ: Sài Gòn, Hà Nội...)
Nhờ các Anh chị chỉ giúp Em cách để Em nhập chữ SG1 và ô C1, sau khi Enter thì ô C1 sẽ hiển thị "Sài Gòn" ạ,
Em cảm ơn các Anh chị,

 

[Hoàng Tuấn 868]

Chào các Anh chị, Em có 1 file excel, gồm 2 cột.
Cột A là tên viết tắt của chữ đầu của tỉnh (Ví dụ: SG1, HN2... SG1= Sài Gòn, HN2 = Hà Nội)
Cột B sẽ là tên đầy đủ của tỉnh (Ví dụ: Sài Gòn, Hà Nội...)
Nhờ các Anh chị chỉ giúp Em cách để Em nhập chữ SG1 và ô C1, sau khi Enter thì ô C1 sẽ hiển thị "Sài Gòn" ạ,
Em cảm ơn các Anh chị,

Bạn phải có danh mục đầy đủ các tên muốn dùng cả đầy đủ và rút gọn thì chắc là được

 

[Di_Di]

Bạn phải có danh mục đầy đủ các tên muốn dùng cả đầy đủ và rút gọn thì chắc là được

Dạ, Em có 2 cột dữ liệu như A &B
Em muốn tìm cách để khi nhập SG1 vào cột C, sau khi Enter sẽ được kết quả "Sài Gòn" Anh ạ.

Vì trong thu thập dữ liệu file của Sếp Em không được thêm cột nên lúc nào Em cũng phải Vlookup (làm thủ công) vào ạ.
Bên dưới là Em ví dụ vậy ạ. Em cảm ơn Anh nhiều ạ,

 

[Hoàng Tuấn 868]

Dạ, Em có 2 cột dữ liệu như A &B
Em muốn tìm cách để khi nhập SG1 vào cột C, sau khi Enter sẽ được kết quả "Sài Gòn" Anh ạ.

Vì trong thu thập dữ liệu file của Sếp Em không được thêm cột nên lúc nào Em cũng phải Vlookup (làm thủ công) vào ạ.
Bên dưới là Em ví dụ vậy ạ. Em cảm ơn Anh nhiều ạ,

View attachment 266261

Nhưng chỉ có ảnh thì không làm gì được bạn ạ, chỉ để ngắm thôi.

 

[Di_Di]

Nhưng chỉ có ảnh thì không làm gì được bạn ạ, chỉ để ngắm thôi.

Dạ Em gửi file ạ. Nhờ Anh hỗ trợ giúp Em với ạ, Bình thường Em đều phải nhập tay hoặc làm công thức thủ công vào ạ.
Em cảm ơn Anh nhiều ạ.

 

[le_vis]

Dạ Em gửi file ạ. Nhờ Anh hỗ trợ giúp Em với ạ, Bình thường Em đều phải nhập tay hoặc làm công thức thủ công vào ạ.
Em cảm ơn Anh nhiều ạ.

A01 nhập vào đâu ??? - Thiết nghĩ dùng hàm Vlookup là được mà

 

[Di_Di]

A01 nhập vào đâu ??? - Thiết nghĩ dùng hàm Vlookup là được mà

Dạ, ý Em là nhập "A01" vào ô tô vàng D2, sau khi Enter thì ô D2 sẽ trả kết quả "AIMER" ạ.

Hoặc E nhờ các Anh chị thiết lập giùm Em một box có nút nhập liệu
Sau khi Em nhấn nút nhập liệu, khi Em gõ "A01" trong box thì sẽ hiện ra gợi ý là "AIMER" để Em copy nhập vào ô D2 cũng được ạ

Thật sự xin lỗi các Anh chị nếu Em nói lòng vòng khó hiểu thì thôi Em phải làm thủ công thôi ạ.
Em xin lỗi và cảm ơn nhiều ạ.

 

[batman1]

Hỏi tỉnh rồi đính kèm tập tin với Customer.

Phải chuột trên tên sheet "Dữ liệu" ở thanh sheet tabs ở cạnh dưới của cửa sổ Excel -> View code -> dán code sau

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, rng As Range
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 4 Or IsEmpty(Target) Then Exit Sub
    Set rng = Me.Range("M1:N" & Me.Cells(Rows.Count, "M").End(xlUp).Row)
    a = Application.VLookup(Target.Value, rng, 2, 0)
    Application.EnableEvents = False
    If IsError(a) Then
        Target.Value = Empty
    Else
        Target.Value = a
    End If
    Application.EnableEvents = True
End Sub

 

[Hoàng Tuấn 868]

Dạ Em gửi file ạ. Nhờ Anh hỗ trợ giúp Em với ạ, Bình thường Em đều phải nhập tay hoặc làm công thức thủ công vào ạ.
Em cảm ơn Anh nhiều ạ.

Bạn xem thử.....

 

[Di_Di]

Bạn xem thử.....

Dạ Em cảm ơn Anh nhiều nha Anh. Được rồi ạ. Mừng quá Anh ui.
Em cảm ơn nhiều ạ,

Bài đã được tự động gộp: 17/9/21

Hỏi tỉnh rồi đính kèm tập tin với Customer.

Phải chuột trên tên sheet "Dữ liệu" ở thanh sheet tabs ở cạnh dưới của cửa sổ Excel -> View code -> dán code sau

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, rng As Range
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 4 Or IsEmpty(Target) Then Exit Sub
    Set rng = Me.Range("M1:N" & Me.Cells(Rows.Count, "M").End(xlUp).Row)
    a = Application.VLookup(Target.Value, rng, 2, 0)
    Application.EnableEvents = False
    If IsError(a) Then
        Target.Value = Empty
    Else
        Target.Value = a
    End If
    Application.EnableEvents = True
End Sub

Dạ Em cảm ơn Anh nhiều ạ,

 

[batman1]

Ngoài gõ vd. A03, theo tôi nên cho phép gõ a03. Ngoài ra nếu gõ vd. AB01 thì phải xóa ô để thành RỖNG, chứ không thể để "hiểu lầm" là kết quả là AB01. Và xóa thành RỖNG nếu gõ vd. "hichic". Không xóa cũng được nhưng nhìn kỳ kỳ sao ấy.

 

[Di_Di]

Ngoài gõ vd. A03, theo tôi nên cho phép gõ a03. Ngoài ra nếu gõ vd. AB01 thì phải xóa ô để thành RỖNG, chứ không thể để "hiểu lầm" là kết quả là AB01. Và xóa thành RỖNG nếu gõ vd. "hichic". Không xóa cũng được nhưng nhìn kỳ kỳ sao ấy.

Dạ thôi được như vậy là Em mừng rồi ạ. Em cảm ơn các Anh nhiều ạ. Có gì để Em tìm hiểu thêm ạ.
Em cảm ơn Anh nhiều ạ.