Hướng dẫn viết Code cho nút Nhập số liệu (1 người xem)

[phulien1902]

Xin chào các ACE trên diễn đàn!
Tôi muốn nhờ mọi người viết giúp tôi Code cho nút Nhập số liệu.
Với điều kiện đầu vào là
+) Ngày bắt đầu, giờ bắt đầu.
+) Ngày Kết thúc, giờ kết thúc.

Sau đó bấm vào nút Nhập số liệu thì số liệu sẽ được Copy sang Sheet 2.
Ví dụ Ngày Bắt đầu 12/30/2013 lúc 10 giờ đến 12/31/2013 lúc 16 giờ, có số liệu như Sheet 2
Xin mời xem giùm File đính kèm.
Trân trọng cảm ơn!

 

[nghiaphuc]

Xin chào các ACE trên diễn đàn!
Tôi muốn nhờ mọi người viết giúp tôi Code cho nút Nhập số liệu.
Với điều kiện đầu vào là
+) Ngày bắt đầu, giờ bắt đầu.
+) Ngày Kết thúc, giờ kết thúc.

Sau đó bấm vào nút Nhập số liệu thì số liệu sẽ được Copy sang Sheet 2.
Ví dụ Ngày Bắt đầu 12/30/2013 lúc 10 giờ đến 12/31/2013 lúc 16 giờ, có số liệu như Sheet 2
Xin mời xem giùm File đính kèm.
Trân trọng cảm ơn!

Tôi sửa lại cách thức bố trí các Control trên Form và chuẩn hóa lại ngày tháng trên Sheet1. Bạn tham khảo trong file nhé.

 

[phulien1902]

Tôi sửa lại cách thức bố trí các Control trên Form và chuẩn hóa lại ngày tháng trên Sheet1. Bạn tham khảo trong file nhé.

Chào bạn nghiaphuc! Từ khi mình gửi bài đến nay mới có dịp xem lại bài, vì bận việc gia đình. Phải nói là những gì bạn làm giúp mình đã vượt xa lòng mong đợi của mình.
Mình xin cảm ơn bạn rất nhiều!

 

[nghiaphuc]

Chào bạn nghiaphuc! Từ khi mình gửi bài đến nay mới có dịp xem lại bài, vì bận việc gia đình. Phải nói là những gì bạn làm giúp mình đã vượt xa lòng mong đợi của mình.
Mình xin cảm ơn bạn rất nhiều!

Code của tôi vẫn còn hơi khó chịu một chút ở cột A, kết quả chưa được định dạng MM/dd/yyyy, bạn đổi code cho nút Nhập số liệu bởi code sau nhé:
[GPECODE=vb]Private Sub Cmd_Nhap_Click()
Dim i As Long, j As Long, k As Long, dBD As Double, dKT As Double, dNG As Double, Tmp, Arr()
Sheets("Sheet2").[A2:L30000].Clear
Tmp = Sheets("Sheet1").[A4:L30000]
dBD = Calendar1 + Cbb_GioBD / 24
dKT = Calendar2 + Cbb_GioKT / 24
ReDim Arr(1 To UBound(Tmp), 1 To 12)
For i = 1 To UBound(Tmp)
If IsEmpty(Tmp(i, 1)) Then Exit For
dNG = Tmp(i, 1) + Tmp(i, 2) / 24
If dNG >= dBD And dNG <= dKT Then
k = k + 1
For j = 1 To 12
Arr(k, j) = Tmp(i, j)
Next
End If
Next
If k = 0 Then Exit Sub
Sheets("Sheet2").[A2:L2].Resize(k).Value = Arr
Sheets("Sheet2").[A2].Resize(k).NumberFormat = "MM/dd/yyyy"
End
End Sub[/GPECODE]
Trong code này, dòng lệnh 20 dùng để định dạng cột A Sheet2, còn dòng lệnh 21 để dừng chương trình (hay gọi là thoát khỏi chức năng cũng được) sau khi nhập dữ liệu xong.