File quản lý kho bán hàng xăng dầu bằng Excel

Để làm một file quản lý kho bán hàng xăng dầu bằng Excel, bạn có thể thiết kế với các sheet sau

1. Cấu trúc các Sheet chính

    Sheet "Danh Mục Hàng Hóa" - Danh sách các loại xăng dầu, đơn giá.
    Sheet "Nhập Kho" - Ghi nhận số lượng nhập kho từ nhà cung cấp.
    Sheet "Xuất Kho" - Ghi nhận lượng xăng dầu bán ra.
    Sheet "Tồn Kho" - Tính toán lượng tồn kho tự động.
    Sheet "Báo Cáo Doanh Thu" - Tổng hợp doanh thu bán hàng.

2. Hướng dẫn chi tiết từng Sheet

Sheet "Danh Mục Hàng Hóa"

Chứa thông tin sản phẩm:

Sheet "Nhập Kho"

Nhập dữ liệu khi nhập xăng dầu vào kho.

Công thức tính tổng tiền:

👉 Thành Tiền = Số Lượng Nhập * Đơn Giá Nhập 

Sheet "Xuất Kho"

Ghi nhận bán hàng mỗi ngày.

Công thức tính tổng tiền:

👉 Thành Tiền = Số Lượng Xuất * Đơn Giá Bán

Sheet "Tồn Kho"

Tính toán lượng hàng tồn kho tự động.

Công thức tính tồn kho:

👉 Tồn Kho = Tổng Nhập - Tổng Xuất

Công thức Excel:=Tổng Nhập - Tổng Xuất
Ví dụ: Nếu Tổng Nhập ở ô C2 và Tổng Xuất ở ô D2, công thức trong ô E2 sẽ là:=C2 - D2

Sheet "Báo Cáo Doanh Thu"

Tính doanh thu mỗi ngày.

👉 Công thức tính doanh thu theo ngày:

=SUMIF('Xuất Kho'!A:A, A2, 'Xuất Kho'!F:F)
Công thức này sẽ lấy tổng tiền từ cột "Thành Tiền" trong sheet "Xuất Kho" dựa trên ngày.

3. Thêm Tự Động Hóa với VBA (Tùy chọn)

Nếu muốn nhập dữ liệu tự động, bạn có thể sử dụng VBA để nhập liệu nhanh. Ví dụ, tạo nút Cập Nhật Tồn Kho để cập nhật số lượng tồn kho ngay lập tức.

Sub CapNhatTonKho()

    Dim wsNhap As Worksheet, wsXuat As Worksheet, wsTon As Worksheet

    Set wsNhap = Sheets("Nhập Kho")

    Set wsXuat = Sheets("Xuất Kho")

    Set wsTon = Sheets("Tồn Kho")



    Dim lastRowNhap As Long, lastRowXuat As Long, lastRowTon As Long

    lastRowNhap = wsNhap.Cells(Rows.Count, 2).End(xlUp).Row

    lastRowXuat = wsXuat.Cells(Rows.Count, 2).End(xlUp).Row

    lastRowTon = wsTon.Cells(Rows.Count, 2).End(xlUp).Row



    Dim i As Long, maHang As String

    Dim tongNhap As Double, tongXuat As Double



    For i = 2 To lastRowTon

        maHang = wsTon.Cells(i, 1).Value

        tongNhap = Application.WorksheetFunction.SumIf(wsNhap.Range("B2:B" & lastRowNhap), maHang, wsNhap.Range("D2:D" & lastRowNhap))

        tongXuat = Application.WorksheetFunction.SumIf(wsXuat.Range("B2:B" & lastRowXuat), maHang, wsXuat.Range("D2:D" & lastRowXuat))

        wsTon.Cells(i, 4).Value = tongNhap

        wsTon.Cells(i, 5).Value = tongXuat

        wsTon.Cells(i, 6).Value = tongNhap - tongXuat

    Next i

End Sub