Giúp em sửa form để nhập ngày tháng đúng định dạng (1 người xem)

[thaythichvba]

Chào các anh chị GPE.
Do nhu cầu công việc em đã copy của các ac và tạo được FORM(file đính kèm) để xử dụng. Tuy nhiên file của em có rất nhiều dữ liệu nhập vào kiểu ngày tháng vì vậy khi nhập bằng form thì cho kết quả xuống cell không đúng. em nghe các ac bảo dùng Calendar để nhập, nhưng em không biết phải làm sao nên em gửi bài mông các ac giúp em sửa form để nhập đúng định dạng ở các cột dữ liệu ngày tháng.
Em chân thành cảm ơn các ac.

 

[thaythichvba]

mở sub Ghi _Click() sửa dòng lệnh sau coi có đỡ buồn không
Cells(nextrow, 7) = T_Ngaynhan.Value --> Cells(nextrow, 7) = T_Ngaynhan

Cảm ơn bác ec ec nhiều nhiều, đã ok rồi ạ.

 

[Hoàng Trọng Nghĩa]

Cảm ơn bác ec ec nhiều nhiều, đã ok rồi ạ.

Bạn đừng làm như thế này nhé:

Cells(nextrow, 7) = T_Ngaynhan

Bởi như thế ngày không còn là dạng ngày tháng nữa, chúng đang chứa ở trong dạng chuỗi đấy! Sau này tính toán sẽ không được đâu đấy nhé!

Những cái gì nhập thuộc về ngày tháng, ví dụ như câu trên thì sửa lại thành thế này:

Cells(nextrow, 7) = Cdate(T_Ngaynhan)

 

[thaythichvba]

Bạn đừng làm như thế này nhé:

Cells(nextrow, 7) = T_Ngaynhan

Bởi như thế ngày không còn là dạng ngày tháng nữa, chúng đang chứa ở trong dạng chuỗi đấy! Sau này tính toán sẽ không được đâu đấy nhé!

Những cái gì nhập thuộc về ngày tháng, ví dụ như câu trên thì sửa lại thành thế này:

Cells(nextrow, 7) = Cdate(T_Ngaynhan)

em cũng có kiểm tra bằng cách gõ ''=month()'' thì nó vẫn trả về tháng theo dữ liệu được ghi xuống cell anh à.
em cũng thử theo cách của anh xem sao.
em cảm ơn nhiều.

em thử rồi, không được anh ạ, khi nhập dữ liệu các textbox ngày tháng mà em chưa có thông tin nhập(không nhập, để trống) thì nó báo lỗi type mismatch.

 

[Hoàng Trọng Nghĩa]

em cũng có kiểm tra bằng cách gõ ''=month()'' thì nó vẫn trả về tháng theo dữ liệu được ghi xuống cell anh à.
em cũng thử theo cách của anh xem sao.
em cảm ơn nhiều.

em thử rồi, không được anh ạ, khi nhập dữ liệu các textbox ngày tháng mà em chưa có thông tin nhập(không nhập, để trống) thì nó báo lỗi type mismatch.

Có nhiều cái sẽ xảy ra lỗi lắm, cho nên khi lập trình, người ta phải biết bẫy lỗi sao cho nó không bị lỗi nữa. Trong trường hợp của bạn thì bẫy lỗi như sau:

If Trim(T_Ngaynhan)

 

[be_09]

Tại sao không dùng cái Calendar có sẳn, mà phải vòng vo cái TextBox chi cho mệt nhĩ.

 

[phihndhsp]

Sao máy em không thấy DateTimePicker trong Add conditional Controls? không biết có bị lỗi gì không?

 

[ndu96081631]

Sao máy em không thấy DateTimePicker trong Add conditional Controls? không biết có bị lỗi gì không?

Chưa cài thì chưa có thôi (kể cả Calendar cũng phải cài chứ không tự có)
Nếu dùng Office 64 thì... quên đi mấy cái DateTimePicker hay Caledar, bởi có cài cũng không được

 

[jack nt]

Chào các anh chị GPE.
Do nhu cầu công việc em đã copy của các ac và tạo được FORM(file đính kèm) để xử dụng. Tuy nhiên file của em có rất nhiều dữ liệu nhập vào kiểu ngày tháng vì vậy khi nhập bằng form thì cho kết quả xuống cell không đúng. em nghe các ac bảo dùng Calendar để nhập, nhưng em không biết phải làm sao nên em gửi bài mông các ac giúp em sửa form để nhập đúng định dạng ở các cột dữ liệu ngày tháng.
Em chân thành cảm ơn các ac.

thay vì dùng 1 textbox bạn nên dùng 3 comboboxes: một cái cho ngày, một cái cho tháng, một cái cho năm như các web page vẫn xài vậy. trên các cbo này load sẵn ngày từ 1, 2, ... , 28 (29) (30) (31), tháng từ 1, 2, ... , 12 năm từ ...
dùng các hàm

MyDate = DateSerial(Val(CboYear), Val(CboMonth), Val(CboDay))
CboDay.Text = Day(MyDate)
CboMonth.Text = Month(MyDate)
CboYear.Text = Year(MyDate)

Lưu ý: để xác định số ngày trong tháng là 28, 29, 30, 31 bạn dùng hàm

n = DateSerial(MyYear, MyMonth + 1, 1) - DateSerial(MyYear, MyMonth, 1)

p/s: tui không khoái vụ calendar vì phải cài đặt, mặt khác vị trí ngày, tháng, năm quá xa nhau, bất tiện khi dùng nhiều