Excel:Tự động fill địa điểm khi nhập địa chỉ

[meoukg]

Chào mấy anh chị,

Anh chị làm ơn chỉ em cách làm bài toán sau với, em dùng mệnh đề if nhưng không có kết quả

Em có ô A1 và ô A2

Khách hàng nhập vào ô A1 địa chỉ còn ô A2 hiện ra địa điểm

Ví dụ: ông T nhập vào ô A1 là 123 Nguyen Van Troi HCM VN thì ô A2 tự động hiện lên Hồ Chí Minh.ông F nhập vào ô A1 là 436 Nguyen Chi Thanh KG VN thì ô A2 tự động hiện lên Kiên Giang.

Đặc biệt: Nếu khách hàng nhập vào những từ như HCM , HCMC , ho chi minh, tphcm....thì ô A2 tự động hiểu là Hồ Chí Minh.

Em cám ơn mọi người đã đọc và suy nghĩ.

Mong chờ tin của anh chị!

 

[ChanhTQ@]

Lười hết biết luôn!

Ở trang tính 'S1' nào đó bạn phải có bảng tra như sau

A|B

DChi|DDiem​

HCMC|Hồ Chí Minh
HO CHI MINH|Hồ Chí Minh
TPHCM|Hồ Chí Minh
HCM|Hồ Chí Minh
KG|Kiên Giang
AG|An Giang
ĐN|Đồng Nai
DN|Đồng Nai
VT|Vũng Tàu
HN|Hà Nội
HNC|Hà Nội
. . .|. . .

Và macro ở trang tính nhập liệu sẽ là:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Columns("A:A")) Is Nothing Then
   Dim Clls As Range, Sh As Worksheet
   Set Sh = Sheets("S1")
   For Each Clls In Sh.Range(Sh.[a2], Sh.[a65500].End(xlUp))
      If InStr(UCase$(Target.Value), Clls.Value) > 0 Then 
         Target.Offset(, 1).Value = Clls.Offset(, 1).Value
          Exit For
      End If 
   Next Clls
 End If
End Sub

Xin cảnh báo: Rất dễ sai lỗi khi vận hành, do có quá nhiều bậc tự do. . . . khà,. . khà

 

[meoukg]

Cám ơn bạn ChanhTQ@ nhìu,

Xin lỗi vì mình mù mờ Marco trong Excel, mình tạo bản S1 rồi nhưng làm cách nào mình insert code vào thế?

 

[ptlong04x1]

Bạn làm như sau :

1. Khởi động bảng tính, bấm Alt F11.

2.

3.

 

[ChanhTQ@]

Xin lỗi vì mình mù mờ Marco trong Excel, mình tạo bản S1 rồi nhưng làm cách nào mình insert code vào thế?

Bạn thưc hiện các bước sau:

Phải chuột vô tên trang tính nhập liệu (VD Sheets("Nhap") có trên thanh SheetName
Chọn dòng cuối có các từ 'View code"; Khi đó cửa sổ microsoft VB xuất hiện
Bạn chép macro này lên đó

Khi đã xong, bạn thử nhập vô ô nào đó trên cột 'A' để ngâm nga kết quả.

Chúc thành công.

 

[ndu96081631]

1. Khởi động bảng tính, bấm Alt F11.

3.

Code của anh ChanhTQ@ dùng sự kiện Worksheet_Change, bạn cho code vào Module nó không chạy đâu nha! ---> Phải cho vào sheet (sheet nào bạn nhập liệu ấy)

 

[ptlong04x1]

Code của anh ChanhTQ@ dùng sự kiện Worksheet_Change, bạn cho code vào Module nó không chạy đâu nha! ---> Phải cho vào sheet (sheet nào bạn nhập liệu ấy)

Em đọc không kỹ, do mới tự mày mò VBA được mấy bữa nên cứ thấy code nghĩ ngay phải bỏ vào module, không dè..., cũng là học thêm được 1 điều mới.