Hoá đơn bán hàng, lưu trữ, truy vấn lại, in lại hoá đơn khi cần, tổng tiền theo ngày hiện tại (Mong là có ích với ai cần!)

[Lequocvan]

Hoá đơn bán hàng khổ A5, lưu trữ, truy vấn lại, in lại hoá đơn khi cần, tổng tiền theo ngày hiện tại,... Mong là có ích với ai cần!
Xoá trắng dữ liệu trong sheets LuuDuLieu với mật khẩu là TuChiuTrachNhiem
Hiển thị sheets LuuDuLieu với mật khẩu là lequocvan
Muốn in lại hoá đơn có số thì nhấn vào nút lệnh In lai hoa don.

Lưu ý: trong code
Private Sub cmd_New_Click() có đoạn không cho phép lập quá 5 hoá đơn => có thể thay đổi hoặc bỏ

If Sheets("LuuDuLieu").Range("E1").Value >= 5 Then
    MsgBox ("+..... (093.690.3586)")
    End ' tam dung tat ca
End If

Private Sub KiemTraBanQuyen() hiện tại em đang để trong tháng 10 năm 2018 => nếu muốn bỏ thì tìm và bỏ dòng lệnh Call KiemTraBanQuyen trong Private Sub cmd_New_Click()

Có thể tổng cộng tiền theo ngày hiện tại, tổng cộng phí giao hàng theo ngày hiện tại, tổng cộng tiền toàn bộ các hoá đơn lưu trữ.

Khi chọn nút lệnh Xoa Trang LuuDuLieu, sẽ xoá trắng (clearcontents) từ A7:AMx và có lưu backup (save as) ra ổ đĩa E: một file dự phòng. => nếu máy tính ko có E:\ sẽ lỗi hoặc nếu không cần thì bỏ đoạn code ấy đi ah.

    'Backup file theo thoi gian thuc
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Dim Filenames, Fath As String
    Fath = ThisWorkbook.Path
    Filenames = ActiveWorkbook.Name & "_" & Format(Now, "_ddmmyyyy_hh-mm-ss_") & ".xlsb"
    ActiveWorkbook.Copy 'Lenh backup file 1
    ActiveWorkbook.SaveCopyAs Filename:="E:\" & Filenames 'Lenh backup file 2

Và như em hình dung ra còn thiếu các kiểu báo cáo trong ngày có bao nhiêu hoá đơn, có bao nhiêu mặt hàng nào được xuất ra, còn tồn những mặt hàng gì, thu về được bao nhiêu tiền (bao nhiêu hoá đơn), chưa thu về bao nhiêu tiền của những hoá đơn nào .....

P/s: Trân trọng cảm ơn các Sư phụ, ACE trên GPE.