Nhờ các bạn viết giúp cho cái code nhập dữ liệu có điều kiện này tí! (1 người xem)

[MQ64191]

Giống như tiêu đề của bài viết, nhờ các bạn hỗ trợ mình tí về code cho nút nhập dữ liệu theo điều kiện.

 

[SA_DQ]

Bạn thử thao tác xem sao?

 

[MQ64191]

Bạn ơi, rất cảm ơn bạn nhiều. Quá ok, nhưng vấn đề này nữa mình có sữa thêm vê Ngày tháng và Thời gian. Có cách nào cái textbox thời gian nó tự động nhảy theo giờ hệ thống trong máy mà mình không cần phải nhập thủ công không bạn. Đơn giản hơn là nếu minh click vào textbox thời gian thì tự động nó refresh giờ lại cũng được bạn. Mong được giúp đỡ thêm!

 

[phihndhsp]

Bạn ơi, rất cảm ơn bạn nhiều. Quá ok, nhưng vấn đề này nữa mình có sữa thêm vê Ngày tháng và Thời gian. Có cách nào cái textbox thời gian nó tự động nhảy theo giờ hệ thống trong máy mà mình không cần phải nhập thủ công không bạn. Đơn giản hơn là nếu minh click vào textbox thời gian thì tự động nó refresh giờ lại cũng được bạn. Mong được giúp đỡ thêm!

Private Sub thoigian_Enter()
thoigian = Format(Now, "hh:mm")
End Sub
Bạn bỏ thời gian vào sự kiện enter xem sao?

 

[SA_DQ]

Theo mình bạn bỏ luôn TextBox dùng để nhập thời gian luôn đi; Bỏ cả cái nhãn của nó nữa;
Còn trong macro CmdB01_Click
Ta vô hiệu hóa 2 dòng lệnh & thêm 1 dòng lệnh để lấy giờ hệ thống như sau:

    .Offset(, 5).Value = Format(Time(), "hh:mm:yyyy")
'    .Offset(, 5).Value = Format(StringToTime(TxtBGio.Text), "hh:mm:yyyy")  '
'    TxtBGio.Text = ""  '

Những mong là bạn sẽ thực hiện suông sẻ việc này!

 

[anhdepjai]

Bạn ơi, rất cảm ơn bạn nhiều. Quá ok, nhưng vấn đề này nữa mình có sữa thêm vê Ngày tháng và Thời gian. Có cách nào cái textbox thời gian nó tự động nhảy theo giờ hệ thống trong máy mà mình không cần phải nhập thủ công không bạn. Đơn giản hơn là nếu minh click vào textbox thời gian thì tự động nó refresh giờ lại cũng được bạn. Mong được giúp đỡ thêm!

Bạn thử cái này xem có đúng ý không nhé.

 

[MQ64191]

Bạn thử cái này xem có đúng ý không nhé.

Cảm ơn bạn rất nhiều, đúng theo ý muốn của mình.

 

[be_09]

Cảm ơn bạn rất nhiều, đúng theo ý muốn của mình.

Góp ý thêm cho bạn:

Chỉ cần tạo Form nhập liệu và 1 sheet chứa dữ liệu là đủ, nó sẽ thuận tiện dùng Pivottable trong việc tổng hợp báo cáo theo từng chỉ tiêu yêu cầu, còn muốn tách riêng 3 sheet như bạn theo dõi thì chỉ cần gán cho nó 1 Macro Tách riêng ra 3 sheet).

 

[MQ64191]

Góp ý thêm cho bạn:

Chỉ cần tạo Form nhập liệu và 1 sheet chứa dữ liệu là đủ, só sẽ thuận tiện dùng Pivottable trong việc tổng hợp báo cáo theo từng chỉ tiêu yêu cầu, còn muốn tách riêng 3 sheet như bạn theo dõi thì chỉ cần gán cho nó 1 Macro Tách sheet 9cu4ng được mà).

Đúng đó bạn như bạn nói rất hay, heee. Vậy thì mình muốn thêm 1 form Tra cứu và điều kiện tra cứu là "Mặt hàng", "Ca", "Ngày tháng". Khi bấm tra cứu sẽ hiện đầy đủ thông tin trong điều kiện đó thì làm sao vậy bạn. Mong được bạn giúp thêm và hỗ trợ mình hoàn chỉnh file này, xin cảm ơn

 

[MQ64191]

Nếu làm 1 form mới rắc rối quá thì mong các bạn giúp minh việc Tra cứu này đơn giản hơn cũng được, mình đã ghi rõ yêu cầu trong file. Xin cảm ơn!

 

[MQ64191]

Mình cảm ơn bạn rất nhiều, mình chỉ cần đơn giản vậy là ok rồi!

 

[MQ64191]

Cho mình hỏi thêm là nếu mình chọn loại phương tiện là "Ô tô tải" thì trong form2 nguyên dòng màu tím (khối lượng rơ mooc) sẽ không hiện ra và ngược lại nếu chọn "Ô tô đầu kéo" thì dòng đó hiện ra. Form2 sẽ tự động thu gọn và giản ra khi ẩn hiện dòng đó. Dữ liệu vẫn nhập vào sheet tổng hợp bình thường không ảnh hưởng gì. Mong được các bạn giúp tí, xin cảm ơn!