tính toán dựa theo ngày tháng được nhập từ Userform (VBA)

[Khải Huyền]

Em xin chào mọi người. hiện em cần giúp đỡ về việc định dạng ngày tháng trong VBA để có thể tính toán được. em nhập ngày tháng trong userform rồi, thì khi ra bảng tính, không được khi dùng hàm sumif gọi ngày tháng.
Ở sheet 1, D5 em tự gõ ngày tháng thì bên sheet 2 công thức tính ra, còn lại D6-10 ở sheet 1 nhập bằng userform thì sheet 2 không tính được
Mọi người ai có thể chỉ giáo giúp em không ạ?
(và nếu có thể thì giúp em tạo luôn ở sheet 2 in và xuất PDF các dữ liệu trong bảng từ A9 - M164 được không ạ? dòng nào có dữ liệu thì in hiển thị)
Em xin chân thành cảm ơn mọi người đã đọc và giúp đỡ.

 

[VuVanHao]

@Khải Huyền Khi nhập từ form xuống sheet mình dùng kiểu này. Bạn có thể thử (File bạn gửi bị khóa)

Range("B" & lr + 1) = CDate(TextBox2.value)

 

[Khải Huyền]

@Khải Huyền Khi nhập từ form xuống sheet mình dùng kiểu này. Bạn có thể thử (File bạn gửi bị khóa)

Range("B" & lr + 1) = CDate(TextBox2.value)

View attachment 272038

a, em xin lỗi, để em mở khóa, dạ đây ạ

 

[OverAC]

@Khải Huyền , vui lòng không đăng 1 chủ đề ở nhiều nơi.

 

[Khải Huyền]

@Khải Huyền , vui lòng không đăng 1 chủ đề ở nhiều nơi.

vâng ạ, vâng ạ, vâng ạ.....

 

[bGuz]

Em xin chào mọi người. hiện em cần giúp đỡ về việc định dạng ngày tháng trong VBA để có thể tính toán được. em nhập ngày tháng trong userform rồi, thì khi ra bảng tính, không được khi dùng hàm sumif gọi ngày tháng.
Ở sheet 1, D5 em tự gõ ngày tháng thì bên sheet 2 công thức tính ra, còn lại D6-10 ở sheet 1 nhập bằng userform thì sheet 2 không tính được
Mọi người ai có thể chỉ giáo giúp em không ạ?
(và nếu có thể thì giúp em tạo luôn ở sheet 2 in và xuất PDF các dữ liệu trong bảng từ A9 - M164 được không ạ? dòng nào có dữ liệu thì in hiển thị)
Em xin chân thành cảm ơn mọi người đã đọc và giúp đỡ.

Có thể thử điều này:
.Range("D" & dong_cuoi) = CDate(Replace(txtday.Text, "/", "-"))

Xin lỗi, tôi không giải thích vì tôi là người Hungary.
Chỉ có Google dịch sẽ giúp tôi.

Với một dịch giả, rất khó để viết một lá thư.
Tôi không lấy lại được những gì tôi đã viết.
Nên được sửa đổi nhiều lần.

Tôi đã thử nó sau.
Đã phải được thay đổi ở một số nơi.
Đây là tệp đã sửa đổi:

 

[SA_DQ]

Nếu là mình thì mình sẽ thực hiện các bước như vầy:
1./ Định dạng cột 'D' trên trang tính (cần nhập liệu) trở về dạng 'DD/MM/yyyy' (cho quen mắt)
2./ Đổi nội dung trong macro này thành ra:

Private Sub txtday_AfterUpdate()
  txtday = Format(txtday, "MM/DD/yyyy")
End Sub

3./ Ghi thêm hướng dẫn trên dòng ControlTipText của Control nhập ngày-tháng-năm có nội dung là "Nên nhâp 'MM/DD/yyyy'"

 

[bGuz]

Nếu là mình thì mình sẽ thực hiện các bước như vầy:
1./ Định dạng cột 'D' trên trang tính (cần nhập liệu) trở về dạng 'DD/MM/yyyy' (cho quen mắt)
2./ Đổi nội dung trong macro này thành ra:

Private Sub txtday_AfterUpdate()
  txtday = Format(txtday, "MM/DD/yyyy")
End Sub

3./ Ghi thêm hướng dẫn trên dòng ControlTipText của Control nhập ngày-tháng-năm có nội dung là "Nên nhâp 'MM/DD/yyyy'"

Điều này là không đủ.
Có những sai lầm khác.
Hãy thử nó!
Tôi đã thử nó.

 

[Khải Huyền]

Nếu là mình thì mình sẽ thực hiện các bước như vầy:
1./ Định dạng cột 'D' trên trang tính (cần nhập liệu) trở về dạng 'DD/MM/yyyy' (cho quen mắt)
2./ Đổi nội dung trong macro này thành ra:

Private Sub txtday_AfterUpdate()
  txtday = Format(txtday, "MM/DD/yyyy")
End Sub

3./ Ghi thêm hướng dẫn trên dòng ControlTipText của Control nhập ngày-tháng-năm có nội dung là "Nên nhâp 'MM/DD/yyyy'"

vâng. hôm bữa sau khi không biết làm sao, em cũng đã làm theo cách giống cách của bác. em cảm ơn bác đã quan tâm ạ

Bài đã được tự động gộp: 15/2/22

Có thể thử điều này:
.Range("D" & dong_cuoi) = CDate(Replace(txtday.Text, "/", "-"))

Xin lỗi, tôi không giải thích vì tôi là người Hungary.
Chỉ có Google dịch sẽ giúp tôi.

Với một dịch giả, rất khó để viết một lá thư.
Tôi không lấy lại được những gì tôi đã viết.
Nên được sửa đổi nhiều lần.

Tôi đã thử nó sau.
Đã phải được thay đổi ở một số nơi.
Đây là tệp đã sửa đổi:

cảm ơn bạn nhiều. cách của bạn tôi đã thử, và rất tiếc lại bị báo lỗi. cảm ơn bạn đã quan tâm

 

[batman1]

cảm ơn bạn nhiều. cách của bạn tôi đã thử, và rất tiếc lại bị báo lỗi. cảm ơn bạn đã quan tâm

Trên máy bạn, ở trên sheet, khi cần nhập ngày tháng chuẩn (định dạng ô như khi tạo tập tin mới - General) thì bạn nhập thế nào, tức thứ tự ngày, tháng năm bạn nhập như thế nào?

Cũng trên máy ấy bạn đã nhập vào TextBox ngày tháng như thế nào để sau khi "tôi đã thử" thì có "rất tiếc lại bị báo lỗi".

Phải biết bạn đã thao tác ra sao thì mới góp ý được. Chứ nói không được, không chạy, có lỗi thì bố, ông, cụ kỵ của thánh cũng không giúp được.