bác nào hướng dẫn em làm trích lọc như mẫu này cái, em xin cảm ơn !

[tungsontq]

bác nào hướng dẫn em làm trích lọc như mẫu này cái, em xin cảm ơn !

View more random threads:

• Có ai giúp em lấy lại các file bị phần mềm Protected Folder1.2 mã hóa không đọc được
• Lỗi không lưu được trong excel: "Errors were detected while saving ..."
• linh so lieu tu sheet 2 sang sheet 1
• Nhờ các anh, chị chỉ giáo giúp em với ạ
• Lỗi filter khi dung pivot table
• Xin giúp đỡ về cài pass khi gởi phiếu lương bằng Mail Merge
• Nhờ các bạn viết giúp mình công thức hoặc maro để thực hiện bài toán như dưới đây:
• Mình muốn tính tổng từng chỉ tiêu trong các tháng để tổng hợp
• Lọc dữ liệu trên Excel với 1 giá trị cho trước
• Help lấy thứ trong tuần theo ngày tháng có sẵn

[phuocdt]

bác nào hướng dẫn em làm trích lọc như mẫu này cái, em xin cảm ơn !

Tiêu đề bài của bạn không rõ ràng sẽ bài của bạn sẽ bi khóa hay xóa . Bạn hay viết lại tiêu đề gần sát với nội dung cần hỏi
còn muốn biết lọc như thế nào mở file đó lên bấm tổ hợp phím Alt+F11 vào đó mà coi code

[hoainam100]

(1) Ở [G2] là ô gắn với Validation chỉ gồm 2 thành tố "nam" & "nữ" để người dùng chọn 1 từ chúng;

(2) Khi chọn 1 trong chúng, lúc đó đồng thời ta kích hoạt 1 macro sự kiện trong trang tính làm việc;
Macro có nội dung như sau:

Sub LocGT(cRit As Range)
    Sh.Columns("B:D").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=cRit, _
        CopyToRange:=Sh.Range("AD1:AF1"), Unique:=False
End Sub

Ta thấy tham biến được truyền ở đây là vùng điều kiện để lọc theo trị trong [G2] mà người dùng đã chọn.

(4) Mỗi 1 lần macro cha chạy sẽ gọi macro con 2 lần;
Lần thứ nhất lọc dữ liệu cho bảng giới tính bên trên & lần sau là danh sách của giới tính còn lại; (Sau khi lọc mỗi lần, macro sẽ copy kết quả sang trang tính 'File 2' hiện hành.

Nếu bạn muốn biết cụ thể các nội dung câu lệnh trong 2 macro thì bài sau, sau khi bạn nghiền ngẫm chán che nội dung của nó mà không dịch được thì chúng ta sẽ tiếp

Chúc vui!

[boombut]

[QUOTE="SA_DQ"](1) Ở [G2] là ô gắn với Validation chỉ gồm 2 thành tố "nam" & "nữ" để người dùng chọn 1 từ chúng;

(2) Khi chọn 1 trong chúng, lúc đó đồng thời ta kích hoạt 1 macro sự kiện trong trang tính làm việc;
Macro có nội dung như sau:

Sub LocGT(cRit As Range)
    Sh.Columns("B:D").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=cRit, _
        CopyToRange:=Sh.Range("AD1:AF1"), Unique:=False
End Sub

Ta thấy tham biến được truyền ở đây là vùng điều kiện để lọc theo trị trong [G2] mà người dùng đã chọn.

(4) Mỗi 1 lần macro cha chạy sẽ gọi macro con 2 lần;
Lần thứ nhất lọc dữ liệu cho bảng giới tính bên trên & lần sau là danh sách của giới tính còn lại; (Sau khi lọc mỗi lần, macro sẽ copy kết quả sang trang tính 'File 2' hiện hành.

Nếu bạn muốn biết cụ thể các nội dung câu lệnh trong 2 macro thì bài sau, sau khi bạn nghiền ngẫm chán che nội dung của nó mà không dịch được thì chúng ta sẽ tiếp

Chúc vui!</div>

</div>
</div>
</div>
Mình chả hiểu lắm Bạn làm giúp mình 1 cái code tổng hợp khi chọn 1 đơn vị ( giống như chọn nam or nữ ) để hiện ra 1 sheet của đơn vị đó đc ko ạ, em cảm ơn !!

[Binhboong92]

Mình chả hiểu lắm Bạn làm giúp mình 1 cái code tổng hợp khi chọn 1 đơn vị ( giống như chọn nam or nữ ) để hiện ra 1 sheet của đơn vị đó đc ko ạ, em cảm ơn !!

Nhớ Enable Macros khi mở file nhé.

[thuhongnt]

Nhớ Enable Macros khi mở file nhé.

Cảm ơn bạn nhiều, ah mình muốn duy chuyển cái ô lựa chọn đơn vị sang vị trí khác thì làm thế nào bạn nhỉ. xin cảm ơn

[inxiseo]

Cảm ơn bạn nhiều, ah mình muốn duy chuyển cái ô lựa chọn đơn vị sang vị trí khác thì làm thế nào bạn nhỉ. xin cảm ơn

Bạn muốn chuyển nó nằm đâu thì nói rõ tốt hơn, không phải chỗ nào cũng được (đối với code này)

[vandung91]

Chỉ copy 3 cột A,B,C. Mấy râu ria của các cột D:H không lấy.

bạn chỉ mình cách làm được ko

[wuisatang]

bạn chỉ mình cách làm được ko

Chỉ là sao đây, tự bạn xem trong file đó.
Trong Module1 có cái này:

Public Sub GPE_2()Dim Ws As Worksheet, Arr(1 To 1000, 1 To 1), K As LongFor Each Ws In Worksheets    If Ws.Name <> "GPE" Then        K = K + 1        Arr(K, 1) = Ws.Name    End IfNext WsWith Sheets("GPE")    .[IV1:IV1000].Clear    .[IV1].Resize(K) = Arr    .[IV1].Resize(K).Sort Key1:=.[IV1]End WithEnd Sub  

Trong Khung VBE của sheet GPE thì có những cái này:

Private Sub Worksheet_Activate()GPE_2End SubPrivate Sub Worksheet_Change(ByVal Target As Range)Dim Ws As StringIf Target.Address = "$D$2" Then    If Target.Rows.Count = 1 Then        Ws = [D2].Value        Range("A1:C100").Clear        Sheets(Ws).Range("A1:C100").Copy Range("A1")    End IfEnd IfEnd Sub  

Ctrl+F3 thì thấy cái Name GPE_1

Tự đọc rồi làm thôi chứ làm sao chỉ bây giờ.

[ngocquangyb]

Bạn muốn chuyển nó nằm đâu thì nói rõ tốt hơn, không phải chỗ nào cũng được (đối với code này)

ý mình hỏi sau này làm cho mấy mẫu khác ấy mà ), h mình muốn chuyển nó vào ô D2 bạn chỉ cho mình cách làm với, cảm ơn !!