Nhờ viết code cho form báo cáo

[thanhsubasa]

Chào mọi người,
Mình rất là "gà" trong việc viết code, kính nhờ mọi người viết code giùm mình trong file đính kèm với, mình muốn tổng hợp cv sửa chữa của từng máy dựa trên khoảng thời gian chọn.

Xin chân thành cảm ơn.

 

[Po_Pikachu]

Bạn test lại file nha!
Thân.

 

[ndu96081631]

Bạn test lại file nha!
Thân.

Theo tôi thì Po nên thiết kế khung nhập ngày tháng dạng Calendar ---> Đừng chơi TextBox, sẽ có lúc gây "hậu quả nghiệm trọng"
(vì thực chất nhập liệu ngày tháng bằng TextBox là thứ dở nhất, lại chậm)

 

[thanhsubasa]

Cám ơn bạn Po_Pikachu và anh ndu nhé,
@Po: làm theo file bạn gởi thì lọc được rồi, nhưng nếu dữ liệu cần lọc không có thì nó báo lỗi, làm thế nào để nó không báo lỗi và thay bằng msg box không?

@ndu: anh ndu cho em hỏi thêm xíu nhé: làm thế nào để add được control calendar giống như combobox đó, khi mình bấm vào mũi tên thì nó xổ xuống cho mình chọn, trong control toolbox em không thấy nó ở đâu hết. Anh cho em 1 vài ví dụ về calendar để tham khảo với.

Cám ơn nhiều

 

[ndu96081631]

Cám ơn bạn Po_Pikachu và anh ndu nhé,
@Po: làm theo file bạn gởi thì lọc được rồi, nhưng nếu dữ liệu cần lọc không có thì nó báo lỗi, làm thế nào để nó không báo lỗi và thay bằng msg box không?

@ndu: anh ndu cho em hỏi thêm xíu nhé: làm thế nào để add được control calendar giống như combobox đó, khi mình bấm vào mũi tên thì nó xổ xuống cho mình chọn, trong control toolbox em không thấy nó ở đâu hết. Anh cho em 1 vài ví dụ về calendar để tham khảo với.

Cám ơn nhiều

Bạn xem file nhé
Bài này tôi dùng Advandced Filter để lọc ---> Nếu không đạt điều kiện thì nó chẳng lọc, vậy thôi (khỏi cần lo code báo lổi)
Lưu ý:
- Mở Form
- Double click vào khung màu trắng tại chổ "Từ ngày" và "Đến ngày" để chọn ngày tháng
- Bấm ComboBox để chọn Máy
Bấm OK để hoàn tất
--------
Riêng về ComboBox để chọn máy e rằng bạn còn phải cải tiến rất nhiều ---> Vì số lượng máy quá nhiều, bạn tìm hơi bị mệt

 

[thanhsubasa]

Cám ơn anh ndu, dựa theo file anh gởi em làm được rồi, file trên là em chỉ trích 1 phần của ch.trình đang thực hiện để cho nhẹ và hỏi vấn đề em đang thắc mắc thôi a,

Sẵn tiện em cũng gặp 1 trục trặc nhỏ với multiseclect trong listbox, em có gởi trong file đính kèm, anh xem có thể giúp được em không nhé.

Cám ơn anh.

 

[ThuNghi]

Cám ơn anh ndu, dựa theo file anh gởi em làm được rồi, file trên là em chỉ trích 1 phần của ch.trình đang thực hiện để cho nhẹ và hỏi vấn đề em đang thắc mắc thôi a,

Sẵn tiện em cũng gặp 1 trục trặc nhỏ với multiseclect trong listbox, em có gởi trong file đính kèm, anh xem có thể giúp được em không nhé.

Cám ơn anh.

Bạn dùng thử code sau để copy.

Sub CopyTen()
Dim endR As Long, n As Long, i As Long
Dim MyStr As String
With Sheets("Sheet2")
  endR = .Cells(65000, 1).End(xlUp).Row
  MyStr = .Range("H2")
End With
If Len(MyStr) = 0 Then Exit Sub
SearchChar = ","
n = 0
For i = 1 To Len(MyStr)
    If Mid(MyStr, i, 1) = SearchChar Then n = n + 1
    
Next
aSplit = Split(MyStr, ",", n + 1)
For i = 0 To n
    Cells(endR + 1 + i, 1) = aSplit(i)
Next
End Sub

 

[thanhsubasa]

bạn giải thích giùm mình đoạn code trên được không, mình không hiểu lắm

thanks