Code trích lọc dữ liệu

[cuong0202]

nhờ ACE giúp mình viết một đoạn code thay cho ct exel đang dùng.,, lý do dữ liệu nhiều máy chạy ì ạch....
khi mình nhập Số Điện thoại vào cột mã truy cập , các thông tin bên sheet Khách hàng sẽ tự động đc lấy qua như c,t mình thể hiện trong file
Cảm ơn mọi người

 

[SA_DQ]

Bạn xài 2 macro sự kiện sau, để gọi macro thứ ba thực thi cho bạn theo yêu cầu

Option Explicit
[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
 If Not Intersect(Target, Columns("D:D")) Is Nothing Then _
   SoDienThoai Target
[B]End Sub[/B]

Ở trang 'Bao duong':

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Columns("F:F")) Is Nothing Then
   SoDienThoai Target, False
 End If
End Sub

Macro thứ ba:

Option Explicit

Sub SoDienThoai(Targt As Range, Optional TheoDoi As Boolean = True)
   Dim Sh As Worksheet, Rng As Range, sRng As Range
 
   Set Sh = Sheets("KhachHang")
   Set Rng = Sh.Range(Sh.[d2], Sh.[d65500].End(xlUp))
   Set sRng = Rng.Find(Targt.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      MsgBox "Chua Co So Nay":            Targt.Value = ""
      Exit Sub
   Else
      Targt.Offset(, IIf(TheoDoi, -1, -3)).Value = sRng.Offset(, -2).Value
      If Not TheoDoi Then _
         Targt.Offset(, -1).Value = sRng.Offset(, 2).Value
   End If

End Sub

 

[cuong0202]

ặc ...ặc ,, tiền bối ơi,, xin tha thứ cho em nha , 3 đoạn code này gán vào mỗi sheet như thế nào ạh,,, em gắn 3 đoạn code trên vào 3 sheet theo thứ tự như file em đính kèm nó báo em gắn " tẩm bậy " và hok có chạy ,,, ( xin lỗi tại em hok bik gi ve VBA, thui thi giúp người giúp cho trót vậy ) rất ư là cảm ơn ạ,,,( cảm ơn -cảm ơn ......)

 

[SA_DQ]

(1) Macro thứ 2 mình đã ghi rồi nha;

(2) Macro đầu ở trang tính cần dữ liệu còn lại;

(3) Cái con cuối bạn phải để trong module1

(Nếu để nới khác thì phải gọi tường minh; Hay nói cách khác gọi cả họ nhà nó ra, ví du: Sheet1.SoDienThoai Target, False)

 

[cuong0202]

hichic , có phải gán như vầy hok
code thu 3 gắn sheet " khachhang"
code thu 2 gắn sheet " bao-duong-P4"
code thu 1 gắn sheet " theo-doi-KH-P2"
chạy thử nó báo vầy nè " compile error - sub or funticon not define "
hic..hichihc ....

 

[cuong0202]

nhiều lúc cũng hơi ngại vì sự ngu dốt của mình,,, nhưng mà ko hỏi sẽ không bao giờ biết ,,, ( hichic chỉ là an ủi mình thui ) nhờ mọi người xem lại mình làm sai chỗ nào mà nó cứ đơ đơ ra y như mình àh ,,, hok chịu chạy


http://www.mediafire.com/?ytmuwnekyoh

 

[ndu96081631]

nhiều lúc cũng hơi ngại vì sự ngu dốt của mình,,, nhưng mà ko hỏi sẽ không bao giờ biết ,,, ( hichic chỉ là an ủi mình thui ) nhờ mọi người xem lại mình làm sai chỗ nào mà nó cứ đơ đơ ra y như mình àh ,,, hok chịu chạy

Làm cho bạn luôn đây! Xem file nhé