toangiaphat
Thành viên hoạt động



- Tham gia
- 6/5/09
- Bài viết
- 136
- Được thích
- 3
Mình có file đính kèm các Bạn xem giúp.
Khi mình gán dữ liệu Khu Vực (Quận, Huyện) cho các sheet, thì sheet đó tự động lấy dữ liệu theo yêu cầu.
Mình ko muốn dùng Field vì sẽ phẩi làm thủ công khi có thay đổi.
Bạn quan tâm giúp mình cột o và cột r trong sheet tong!.
Ví dụ tại sheet du lieu loc có để sheet1 : Dương minh châu thì sheet1 chỉ lấy dữ liệu dong nào có chứa dương minh châu ở cột o hoặc cột r.
Lưu ý: Khi mình thây dương minh châu thành huyện khác thì sheet1 cũng hiểu và lấy dữ liệu tương ứng.
dòng nào ở Cột O hoặc R trong sheet Tong
[O2]=Dương Minh ChâuMình sữa lại đơn giản cho dễ hiểu, bạn xem giúp nhé.
Khi mình đổ dữ liệu vào sheet Tong, thì các sheet còn lại tự động lấy dữ liệu các Huyện theo tên sheet. Các Huyện tham chiếu nằm ở cột O và R của sheet Tong.
Cám ơn bạn!
(Nó giống như Fielter vậy).Mình ko thích Fielter vì nó sẽ hàng trống.
Mình sữa lại đơn giản cho dễ hiểu, bạn xem giúp nhé.
Khi mình đổ dữ liệu vào sheet Tong, thì các sheet còn lại tự động lấy dữ liệu các Huyện theo tên sheet. Các Huyện tham chiếu nằm ở cột O và R của sheet Tong.
Cám ơn bạn!
(Nó giống như Fielter vậy).Mình ko thích Fielter vì nó sẽ hàng trống.
Nếu không đúng thì bạn cần nêu rõ cần tách mỗi tỉnh là 1 sheet hay tách mỗi huyện là 1 sheet
file làm theo yêu cầu bài #1Mình có file đính kèm các Bạn xem giúp.
Khi mình gán dữ liệu Khu Vực (Quận, Huyện) cho các sheet, thì sheet đó tự động lấy dữ liệu theo yêu cầu.
Mình ko muốn dùng Field vì sẽ phẩi làm thủ công khi có thay đổi.
Mình sữa lại đơn giản cho dễ hiểu, bạn xem giúp nhé.
Khi mình đổ dữ liệu vào sheet Tong, thì các sheet còn lại tự động lấy dữ liệu các Huyện theo tên sheet. Các Huyện tham chiếu nằm ở cột O và R của sheet Tong.
Cám ơn bạn!
(Nó giống như Fielter vậy).Mình ko thích Fielter vì nó sẽ hàng trống.
Public Sub GPE()
Dim Ws As Worksheet, sArr(), dArr(), I As Long, J As Long, K As Long, R As Long, Tem As String
With Sheets("TONG")
sArr = .Range("G2", .Range("G2").End(xlDown)).Resize(, 12).Value
R = UBound(sArr)
End With
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "TONG" Then
Tem = Ws.Name
ReDim dArr(1 To R, 1 To 12)
With Sheets(Tem)
K = 0
For I = 1 To R
If InStr(Tem, UCase(sArr(I, 9))) _
Or InStr(Tem, UCase(sArr(I, 12))) Then
K = K + 1
For J = 1 To 12
dArr(K, J) = sArr(I, J)
Next J
End If
Next I
.Range("G2").Resize(100, 12).ClearContents
If K Then .Range("G2").Resize(K, 12) = dArr
End With
End If
Next Ws
End Sub