Nhờ sửa dùm code form nhập liệu (1 người xem)

[saobekhonglac]

Chào anh/chị.

Nhờ anh/chị sửa giúp em code form nhập liệu theo file đính kèm. Hiện tại em làm từ cột A đến cột C thì nhập được dữ liệu, nhưng cột D thì lại báo lỗi. Cột A, B là dạng text. Cột C là dạng số, Cột D là dạng ngày. Nhờ Anh/Chị hướng dẫn thêm cách định dạng % với kiểu giờ giúp.

 

[phihndhsp]

Chào anh/chị.

Nhờ anh/chị sửa giúp em code form nhập liệu theo file đính kèm. Hiện tại em làm từ cột A đến cột C thì nhập được dữ liệu, nhưng cột D thì lại báo lỗi. Cột A, B là dạng text. Cột C là dạng số, Cột D là dạng ngày. Nhờ Anh/Chị hướng dẫn thêm cách định dạng % với kiểu giờ giúp.

có textbox nào có thuộc tính DATE đâu ta?
datengaysinh.Date????

 

[saobekhonglac]

có textbox nào có thuộc tính DATE đâu ta?
datengaysinh.Date????

Vậy tất cả chọn .text hết hả anh. Em xem trên youtube rồi làm chứ không biết gì về vba hết. trường hợp texbox mà mình muốn lick vào mũi tên và chọn trong danh sách có sẵn thì làm sau vậy anh.

 

[be_09]

Vậy tất cả chọn .text hết hả anh. Em xem trên youtube rồi làm chứ không biết gì về vba hết. trường hợp texbox mà mình muốn lick vào mũi tên và chọn trong danh sách có sẵn thì làm sau vậy anh.

Tham khảo File bài 130 của Link sau, sửa lại 1 tí là có ngay cái để sử dụng.

http://www.giaiphapexcel.com/diendan/threads/quản-lý-công-văn-đi-và-đến.10068/page-7

 

[saobekhonglac]

Tham khảo File bài 130 của Link sau, sửa lại 1 tí là có ngay cái để sử dụng.

http://www.giaiphapexcel.com/diendan/threads/quản-lý-công-văn-đi-và-đến.10068/page-7

Xem rồi mà không hiểu được gì hết. hix

 

[chungtalabanls]

Mình cũng đang tập tành. Mong là giúp đỡ được bạn trong trường hợp này.

 

[Hoang2013]

Là mình thì mình viết hẵn hàm chuyển chuỗi kiểu ngày dạng 'DD/MM/yyyy' sang ngày; Nội dung nó như sau:

Function TxtToDate(StrC As String) As Date
 Dim VTr As Byte, Nm As Integer, Th As Byte, Ng As Byte

 VTr = InStr(StrC, "/")
 If VTr Then
    Nm = CInt(Right(StrC, 4)):              Ng = CByte(Left(StrC, VTr - 1))
    StrC = Mid(StrC, VTr + 1, 3):           VTr = InStr(StrC, "/")
    Th = CByte(Left(StrC, VTr - 1))
    TxtToDate = DateSerial(Nm, Th, Ng)
 Else
    MsgBox "Nhâp Lai Ngày: 'DD/MM/yyyy'"
 End If
End Function

Thêm 1 động tác nữa là vầy:
Mở cửa sổ properties của Control DateNgaySinh & ở dòng ControlTipText ta hướng dẫn cách nhập chuỗi dạng 'DD/MM/yyyy'

Chúc bạn thành công!