Sửa Code In ( Nhập dữ liệu theo định dạng ngày tháng năm)

[lenolim]

- Nhờ mọi người trong diễn đàn Sửa lại Code In tài liệu trong file đính kèm.
- Trong file có Code. Cách nhập dữ liệu để In đang là Nhập giá trị ở dạng số.
- Mong muốn: Thay cách nhập dữ liệu Từ: Nhập dạng số => nhập theo kiểu ngày/tháng/năm
- Trân trọng cảm ơn!

 

[snow25]

- Nhờ mọi người trong diễn đàn Sửa lại Code In tài liệu trong file đính kèm.
- Trong file có Code. Cách nhập dữ liệu để In đang là Nhập giá trị ở dạng số.
- Mong muốn: Thay cách nhập dữ liệu Từ: Nhập dạng số => nhập theo kiểu ngày/tháng/năm
- Trân trọng cảm ơn!

Sửa 1 chút code của bạn.Bạn thử.

Private Sub CommandButton1_Click()
    Dim a As Long, b As Long
    If IsDate(TextBox1) = True And IsDate(TextBox2) = True Then
    a = CDate(TextBox1.Value)
    b = CDate(TextBox2.Value)
    For i = a To b
    With Sheets("BangIn")
       .Range("K9") = i
       .PrintOut , , TextBox3.Value, , , , True
     End With
    Next
    Else
       MsgBox "nhap vao theo ngay thang nam"
    End If
    Unload Me
End Sub

 

[lenolim]

Sửa 1 chút code của bạn.Bạn thử.

Private Sub CommandButton1_Click()
    Dim a As Long, b As Long
    If IsDate(TextBox1) = True And IsDate(TextBox2) = True Then
    a = CDate(TextBox1.Value)
    b = CDate(TextBox2.Value)
    For i = a To b
    With Sheets("BangIn")
       .Range("K9") = i
       .PrintOut , , TextBox3.Value, , , , True
     End With
    Next
    Else
       MsgBox "nhap vao theo ngay thang nam"
    End If
    Unload Me
End Sub

Xin cảm ơn bạn rất nhiều.
Trân trọng!