Lọc theo thời gian chọn!

[yome]

Chào các anh chị GPE!
Em muốn thiết kê file lọc theo thời gian đã chọn trước (Câu hỏi cụ thể trong file đính kèm).
Cám ơn anh chị nhiều!

 

[logica]

Chào các anh chị GPE!
Em muốn thiết kê file lọc theo thời gian đã chọn trước (Câu hỏi cụ thể trong file đính kèm).
Cám ơn anh chị nhiều!

Tôi đang "mò" macro nên cũng rất "chuối" trong lĩnh vực này.Bạn xem thử được không nhé!

 

[SA_DQ]

Cho phép tôi xin được sửa macro của bạn lại như sau

To Logica;164198

Private Sub CommandButton1_Click()
On Error Resume Next
Dim jJ As Long, Zz As Long:                              Dim Sh As Worksheet

jJ = 6:                                                  Zz = 6
Set Sh = Sheet1:
Sh.Range("A6:J" & Sh.[a6].End(xlDown).Row).ClearContents
Do While Sheet2.Cells(jJ, "B") <> ""
   With Sheet2
      If .Cells(jJ, "A") >= Sh.Cells(2, "B") And .Cells(jJ, "A") <= Sh.Cells(2, "D") Then
         Sh.Range("A" & Zz & ":J" & Zz).Value = .Range("A" & jJ & ":J" & jJ).Value
         Zz = Zz + 1
      End If
      jJ = jJ + 1:
   End With
Loop
End Sub

Chúc vui với ngày nghỉ

 

[ndu96081631]

Chào các anh chị GPE!
Em muốn thiết kê file lọc theo thời gian đã chọn trước (Câu hỏi cụ thể trong file đính kèm).
Cám ơn anh chị nhiều!

dạng bài toán lọc này đã nói rất nhiều lần trên diển đàn rồi... Tôi tưởng bạn quá rành chứ
Dùng AutoFilter bạn à:

Private Sub CommandButton1_Click()
  Dim CrRng As Range
  Set CrRng = Range([B2], [D2])
  Range("A6:J10000").ClearContents
  With Sheet2.Range(Sheet2.[A5], Sheet2.[A65536].End(xlUp))
    .AutoFilter 1, ">=" & CDbl(CrRng(, 1)), xlAnd, "<=" & CDbl(CrRng(, 3))
    .Offset(1).Resize(, 10).Copy
    Range("A6").PasteSpecial 3
    .AutoFilter
  End With
End Sub

 

[fidaica]

CDbl(CrRng(, 1)), ...

CDbl là gì anh - hàm trong excel?

mà sao phải khổ thế nhỉ, nếu AutoFilter được thì dùng tay cũng Auto... mà, cũng thế đưa vào đây rắc rồi thêm?

 

[ndu96081631]

mà sao phải khổ thế nhỉ, nếu AutoFilter được thì dùng tay cũng Auto... mà, cũng thế đưa vào đây rắc rồi thêm?

Ùh... nếu là tôi thì với file này tôi cũng làm bằng tay cho khỏe ---> Xài VBA chả khác nào dao mổ trâu mang đi cắt cổ gà... Nhưng mà tùy sở thích của từng người thôi bạn à... Tôi chỉ nghiên cứu thuật toán (có thể giải quyết theo yêu cầu nào đó).. còn lại, ai thích gì tôi không quan tâm

CDbl là gì anh - hàm trong excel?

CDbl dùng để chuyển kiểu dử liệu... Bạn xem bài này:
http://www.giaiphapexcel.com/forum/showthread.php?t=23523

 

[hoangmai2605]

Private Sub CommandButton1_Click()
End Sub

Bạn cho tôi hỏi sao tôi kg select được nút lệnh để có thể sửa caption cũng như xem code của macro gắn với nút lệnh vậy. Nhờ bạn chỉ dẫn

 

[SA_DQ]

Bạn cho tôi hỏi sao tôi kg select được nút lệnh để có thể sửa caption cũng như xem code của macro gắn với nút lệnh vậy. Nhờ bạn chỉ dẫn

Bạn vô menu View => Toolbars & chọn tiếp Control Toolbox;
Sau khi thanh này xuất hiện; sẽ phải bấm tiếp vô biểu tượng eke màu xanh (E2K3) để chuyển nút lệnh về dạng thiết kế. . . . . thế là bạn có thể xem, sửa thoải mái nút lệnh này cho tới khi bạn chưa bấm vô biểu tượng eke này thêm lần nữa.

Chúc tuần làm việc hiệu quả với excel!