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

Blue Softs Liên hệ QC

Di_Di

Thành viên mới
Tham gia
17/9/21
Bài viết
6
Được thích
2
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

Đăng ký hôm qua
Tham gia
9/11/19
Bài viết
2,273
Được thích
1,956
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
 
Upvote 0

Di_Di

Thành viên mới
Tham gia
17/9/21
Bài viết
6
Được thích
2
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 ạ,

1631883327565.png
 
Upvote 0

Hoàng Tuấn 868

Đăng ký hôm qua
Tham gia
9/11/19
Bài viết
2,273
Được thích
1,956
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.
 
Upvote 0

Di_Di

Thành viên mới
Tham gia
17/9/21
Bài viết
6
Được thích
2

File đính kèm

  • Mẫu.xlsx
    12 KB · Đọc: 5
Upvote 0

Di_Di

Thành viên mới
Tham gia
17/9/21
Bài viết
6
Được thích
2
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 ạ.
 
Upvote 0

batman1

Thành viên gạo cội
Tham gia
8/9/14
Bài viết
4,717
Được thích
7,745
Hỏi tỉnh rồi đính kèm tập tin với Customer. :D

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

Mã:
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
 
Upvote 0

Di_Di

Thành viên mới
Tham gia
17/9/21
Bài viết
6
Được thích
2
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:

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

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

Mã:
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 ạ,
 
Upvote 0

batman1

Thành viên gạo cội
Tham gia
8/9/14
Bài viết
4,717
Được thích
7,745
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.
 
Upvote 0

Di_Di

Thành viên mới
Tham gia
17/9/21
Bài viết
6
Được thích
2
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 ạ.
 
Upvote 0
Top Bottom