Xin hỏi về tìm kiếm khách hàng trong excell (1 người xem)

[xsalehn]

Chào các anh chị em ! cho mình xin hỏi làm cách nào để tìm kiếm khách hàng trong excell một cách nhanh nhất ạ. đại loại là như hình dưới đây

mình muốn chỉ cần đánh họ và tên ( hoặc chỉ tên ) excell sẽ tự tìm kiếm HỌ TÊN , ĐỊA CHỈ KHÁCH HÀNG , MÃ GS , QUYỂN , SỐ ĐT.
Mong các anh chị em rành về excell chỉ bảo cho với ạ
Xin cảm ơn nhiều lắm

 

[Hau151978]

Bạn chọn cột A, bấm Ctrl-F rồi nhập tên vào, bấm vào kết quả tìm được.

 

[chuot0106]

Chào các anh chị em ! cho mình xin hỏi làm cách nào để tìm kiếm khách hàng trong excell một cách nhanh nhất ạ. đại loại là như hình dưới đây
...............................
mình muốn chỉ cần đánh họ và tên ( hoặc chỉ tên ) excell sẽ tự tìm kiếm HỌ TÊN , ĐỊA CHỈ KHÁCH HÀNG , MÃ GS , QUYỂN , SỐ ĐT.
Mong các anh chị em rành về excell chỉ bảo cho với ạ
Xin cảm ơn nhiều lắm

Bạn muốn đánh họ và tên vào ô nào và muốn các thông tin liên quan nó hiện ở chỗ nào? Trường hợp có nhiều người trùng tên thì sao? Tốt nhất bạn đưa File nên trong File mô tả thật rõ ràng vào? Nhập thêm kết quả mong muốn bằng tay nữa vào File sẽ dễ hiểu hơn!

 

[xsalehn]

Bạn muốn đánh họ và tên vào ô nào và muốn các thông tin liên quan nó hiện ở chỗ nào? Trường hợp có nhiều người trùng tên thì sao? Tốt nhất bạn đưa File nên trong File mô tả thật rõ ràng vào? Nhập thêm kết quả mong muốn bằng tay nữa vào File sẽ dễ hiểu hơn!

mình muốn excell lọc dữ liệu ra một sheet khác .có nhiều người trùng tên cũng được bạn àh vì mình có đến 3000 khách hàng cơ mà. bạn giúp mình với nhé

 

[chuot0106]

mình muốn excell lọc dữ liệu ra một sheet khác .có nhiều người trùng tên cũng được bạn àh vì mình có đến 3000 khách hàng cơ mà. bạn giúp mình với nhé

Bạn đưa file lên đi. Nói thật rõ yêu cầu trong File nhé!

 

[xsalehn]

Bạn đưa file lên đi. Nói thật rõ yêu cầu trong File nhé!

àh bạn ơi up file excell lên diẽn đàn như nào vậy . tại mình mới tham gia diễn đàn nên không rành lắm, bạn thông cảm nha

 

[chuot0106]

Bạn bấm vào "sửa bài viết" sau đó nhấn vào "Đổi sang khung lớn" bên đó sẽ có mục đính kem File để bạn đính kèm file nhé!

 

[xsalehn]

Bạn bấm vào "sửa bài viết" sau đó nhấn vào "Đổi sang khung lớn" bên đó sẽ có mục đính kem File để bạn đính kèm file nhé!

mình tải lên được rồi . Bạn giúp mình với nhé. Cảm ơn bạn nhiều
( cũng mong bạn chỉ giáo cho cách làm nữa afh )

 

[Hieu07061984]

mình tải lên được rồi . Bạn giúp mình với nhé. Cảm ơn bạn nhiều
( cũng mong bạn chỉ giáo cho cách làm nữa afh )

Của bạn đây vui lòng xem file đính kèm

 

[xsalehn]

Của bạn đây vui lòng xem file đính kèm

cảm ơn bạn nhiều nhé ! nhưng bạn ơi sao mình nhập vào mà nó ko hiện ra vậy bạn

 

[Hieu07061984]

cảm ơn bạn nhiều nhé ! nhưng bạn ơi sao mình nhập vào mà nó ko hiện ra vậy bạn

Bạn phải nhập đúng tên nó mới hiện ra mình đã nhập thử 3 tên nó hiện ra.
Bạn xem file đính kèm nhe.
Mình biết lỗi bạn nên chuyển sang Unicode dựng sắn bảng Sheet 1 bạn xài unicode dựng sẵn cho nên bảng dò bạn cũng phải nhập unicode dựng sẵn. (mở unikey lên chuyển sang unicode dựng sẵn)

 

[chuot0106]

Chào các anh chị em ! cho mình xin hỏi làm cách nào để tìm kiếm khách hàng trong excell một cách nhanh nhất ạ. đại loại là như hình dưới đây
mình muốn chỉ cần đánh họ và tên ( hoặc chỉ tên ) excell sẽ tự tìm kiếm HỌ TÊN , ĐỊA CHỈ KHÁCH HÀNG , MÃ GS , QUYỂN , SỐ ĐT.
Mong các anh chị em rành về excell chỉ bảo cho với ạ
Xin cảm ơn nhiều lắm

Nhiều người giúp bạn quá rồi với lại thấy bạn cũng không quan tâm lắm nên gỡ File củ chuối xuống cho đỡ xấu hổ.

 

[long10]

Ngoài ra bạn thử code này xem. Bạn thử xem có dùng được không nhé.
Sub worksheet_change(ByVal Target As Range)
If Target.Address = "$F$2" Then
Dim i As Long, arr, Rarr(), k As Long
arr = Sheet1.Range("A2" & Sheet1.Range("D65536").End(xlUp).Row).Value
ReDim Rarr(1 To UBound(arr), 1 To 4)
For i = 1 To UBound(arr)

If Len(arr(i, 1)) > 0 Then​

tmp = UCase(arr(i, 1))
If tmp Like "*" & UCase(Target) Then
k = k + 1
For j = 1 To UBound(arr, 2)
Rarr(k, j) = arr(i, j)
Next
End If
End If
Next
Sheet2.Range("A210000").Clear
Sheet2.Range("A2").Resize(k, 4) = Rarr
End If
End Sub

 

[xsalehn]

Nhiều người giúp bạn quá rồi với lại thấy bạn cũng không quan tâm lắm nên gỡ File củ chuối xuống cho đỡ xấu hổ.

xin lỗi bạn nhé chiều mình bận đi làm quá ko để ý bạn nhắn tin. Mình cảm ơn bạn nhiều nha