Sổ tay sử dụng các hàm CSDL trong macro đễ tính toán & thống kê (1 người xem)

[ChanhTQ@]

BÀI 1: XÁC ĐỊNH TỔNG SỐ LƯỢNG CÁC MÃ HÀNG THEO CÁC ĐƠN ĐẶT HÀNG
​

Em có một cái file báo cáo các mặt hàng từ đơn đặt hàng các tháng 4 tới hết tháng 8 của 1 năm.
trong đó:
Một trang tính chứa mã đơn hàng và số lượng đơn hàng.
Một trang là dùng để làm báo cáo.

Trên “báo cáo” ta lấy mã đơn hàng bỏ ra 3 ký tự cuối (thật ra là lấy đến hết đoạn số ở giữa đơn hàng mà thôi). Ví dụ như MT510BS thì chỉ lấy MT510), rồi tính tổng những đơn hàng có cùng mã đơn để lấy tổng số. Rồi sau đó nhập vào “báo cáo”. (Có những mã hàng không có trong tháng thì nhập số lượng = 0). “Báo cáo” này có nhiều đơn hàng nếu làm bằng tay thì mất quá nhiều thời gian. Có anh chị nào giúp cách khác để cải thiện tốc độ xử lí?

Đây là nội dung macro có trong file đính kèm

Option Explicit
Sub TongHop()
 Dim Th As Byte, Dd As Byte
 Dim Name As String, Ma As String
 Dim Sh As Worksheet, WF As Object, Rng As Range, Cls As Range Sheets("Don hang").Select
 Set Sh = ThisWorkbook.Worksheets("Bao1 cao")
 Set WF = Application.WorksheetFunction
 Application.ScreenUpdating = False
 For Th = 4 To 8
    Name = "Th" & CStr(Th)
    Set Rng = Range(Name)
    [Da1].Value = Rng(1).Value
    For Each Cls In Sh.Range(Sh.[b7], Sh.[b7].End(xlDown))
        Ma = Cls.Value:         Dd = Len(Ma) - 3
        [da2].Value = Mid$(Ma, 1, Dd)
        Cls.Offset(, Th - 3).Value = WF.DSum(Rng, Rng(2), [da1:da2])
    Next Cls
 Next Th
 Application.ScreenUpdating = True
 Sh.Select:                 Randomize
 [b6].Resize(, Th).Interior.ColorIndex = 34 + 9 * Rnd() \ 1
End Sub

 

[ChanhTQ@]

Bài 2: Tính tổng lượng nhập xuất trong kỳ của từng mã hàng

BÀI 2: TÍNH TỔNG SỐ NHẬP & XUẤT TRONG KỲ CỦA TỪNG MÃ HÀNG

​

Gỉả dụ chúng ta có 2 trang tính “ChiTiet” & “DanhMuc” có những nội dung chính như sau:

Bàng chi tiết nhập & xuất

|Số|Ngày|Diễn giải|Mã HH|Tên hàng|ĐVT|Số lượng
8 |PN0101|1/1/2014|Nhập Ten1|MA1|Tên 1|DV1|23
9 |PX0103|1/01/2014|Xuất Ten3|MA3|Tên 3|DV3|50.5
10 |PN0102|1/3/2014|Nhập Ten2|MA2|Tên 2|DV2|159
11 |..|.||.||.|

Bảng danh mục HH

Mã|Tên|Đơn vị|Số đầu kì|NHẬP|XUẤT|TỒN
Ma1|Tên 1|ĐV A|25|??|?|???
Ma2|Tên 2|ĐV C|125|??|?|???
Ma3|Tên 3|ĐV A|205|??|?|???
Ma4|Tên 4|ĐV B|150|??|?|???
|||.|.||

Ở bảng “Danh mục . .” này ta cần dùng 1 macro để tính toán khối lượng nhập xuất của từng mặt hàng trong kỳ
& nạp giá trị tính toán được lên 2 cột [Nhập] & [Xuất];

Còn cột [TỒN] người ta đã lắp sẵn công thức để thể hiện chuỗi =’Số ĐK’ + ‘Nhập’ – “Xuất’