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

Chia sẻ bởi:hands

★★★★★

‹ Tìm kiếm dữ liệu Giới thiệu Cơ bản về vòng lặp... ›

Quảng cáo

– Trân trọng cảm ơn!

– 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

www.giaiphapexcel.com/diendan/threads/s%E1%BB%ADa-code-in-nh%E1%BA%ADp-d%E1%BB%AF-li%E1%BB%87u-theo-%C4%91%E1%BB%8Bnh-d%E1%BA%A1ng-ng%C3%A0y-th%C3%A1ng-n%C4%83m.167035/