Sử dụng dictionary VBA để tính tồn kho (1 người xem)

moihocvba · 22/1/21

Xin chào anh chị GPE!

Em đang cần tính TỒN KHO của kho dựa vào dữ liệu đầu vào: TỒN KHO = SL Tồn đầu (cột E sheet ListHang) + Nhập kho (Cột D sheet NhapKho) - Xuất Kho (Cột D sheet XuatKho)

Để tính cái này thì dùm SUMIFS nó cũng ra được, nhưng vì dữ liệu của em lớn (10.000 mã hàng và hàng trăm ngàn dòng nhập xuất nên mỗi lần nhập liệu hoặc tra cứu thì excel phải tính lại nên rất lâu và file sẽ nặng), với em rất thường tra cứu tồn kho nên dùng sumif trong vba đưa ra tính toán cũng chậm.

Nên em muốn nhờ anh chị giúp em thuật toán đưa dữ liệu vào mảng rồi dùng dictionary để tính toán sau đó đưa dữ liệu ra sheet tồn được không ạ? Vì em nghe nói cách này tính toán rất nhanh với khối lượng dữ liệu lớn. Em cũng đang học về VBA dictionary nên cũng muốn tham khảo cách tối ưu nhất.

Xin cảm ơn anh chị rất nhiều! Em có gửi file đính kèm ạ! File này em trích ra ví dụ thôi, chứ file thực tế em nhiều sheet hơn nữa, nên hơi nặng.

Bổ sung: Em lấy Tên hàng làm giá trị duy nhất ạ (Mã hàng ko bắt buộc)

Nhattanktnn · 22/1/21

moihocvba đã viết:
Xin chào anh chị GPE!

Em đang cần tính TỒN KHO của kho dựa vào dữ liệu đầu vào: TỒN KHO = SL Tồn đầu (cột E sheet ListHang) + Nhập kho (Cột D sheet NhapKho) - Xuất Kho (Cột D sheet XuatKho)

Để tính cái này thì dùm SUMIFS nó cũng ra được, nhưng vì dữ liệu của em lớn (10.000 mã hàng và hàng trăm ngàn dòng nhập xuất nên mỗi lần nhập liệu hoặc tra cứu thì excel phải tính lại nên rất lâu và file sẽ nặng), với em rất thường tra cứu tồn kho nên dùng sumif trong vba đưa ra tính toán cũng chậm.

Nên em muốn nhờ anh chị giúp em thuật toán đưa dữ liệu vào mảng rồi dùng dictionary để tính toán sau đó đưa dữ liệu ra sheet tồn được không ạ? Vì em nghe nói cách này tính toán rất nhanh với khối lượng dữ liệu lớn. Em cũng đang học về VBA dictionary nên cũng muốn tham khảo cách tối ưu nhất.

Xin cảm ơn anh chị rất nhiều! Em có gửi file đính kèm ạ! File này em trích ra ví dụ thôi, chứ file thực tế em nhiều sheet hơn nữa, nên hơi nặng.

Sao lại không có mã hàng gì thế này

moihocvba · 22/1/21

Nhattanktnn đã viết:
Sao lại không có mã hàng gì thế này

Em lấy Tên hàng làm giá trị duy nhất ạ (Mã hàng ko bắt buộc)

VetMini · 22/1/21

Nhattanktnn đã viết:
Sao lại không có mã hàng gì thế này

Dựa vào cái hàm SUMIFS của thớt mà làm.
Thớt nói rằng dùng SUMIFS cũng ra thì bảo gởi vài ví dụ. Cách đó là dễ nhất.

Hoàng Tuấn 868 · 22/1/21

moihocvba đã viết:
Em đang cần tính TỒN KHO

Bạn đưa ví dụ ẩu quá, nhìn vào đã thấy không muốn làm rồi.

moihocvba · 22/1/21

Hoàng Tuấn 868 đã viết:
Bạn đưa ví dụ ẩu quá, nhìn vào đã thấy không muốn làm rồi.

Ẩu chỗ nào vậy ạ?

Hoàng Tuấn 868 · 22/1/21

moihocvba đã viết:
Ẩu chỗ nào vậy ạ?

Giá bạn đưa đầy đủ thông tin lên sẽ dễ hình dung hơn là xóa bớt đi như vậy, sẽ không phải hỏi thêm nữa bạn à.

moihocvba · 22/1/21

VetMini đã viết:
Dựa vào cái hàm SUMIFS của thớt mà làm.
Thớt nói rằng dùng SUMIFS cũng ra thì bảo gởi vài ví dụ. Cách đó là dễ nhất.

E muốn dùng dic cho nhẹ ạ, chứ SUMIFS thì em biết làm rồi ạ!

batman1 · 22/1/21

Nhìn thấy lạ quá. Tồn kho vào ngày nào? Ngày cuối 2017, 2018, 2019, 2020?
Nhập, xuất không có ngày tháng? Cứ mỗi lần tính tồn kho là tính tới ngày "hôm nay"? Tức giả sử có tồn kho cuối 2020 và "hôm nay" là 02.03.2021, thì không tính được tồn kho vào ngày 31.01.2021? Vì Nhập xuất có ngày tháng đâu mà tính với toán.

VetMini · 22/1/21

batman1 đã viết:
Nhìn thấy lạ quá. Tồn kho vào ngày nào? Ngày cuối 2017, 2018, 2019, 2020?
Nhập, xuất không có ngày tháng? Cứ mỗi lần tính tồn kho là tính tới ngày "hôm nay"? Tức giả sử có tồn kho cuối 2020 và "hôm nay" là 02.03.2021, thì không tính được tồn kho vào ngày 31.01.2021? Vì Nhập xuất có ngày tháng đâu mà tính với toán.

Bởi vậy phải bảo thớt đưa cái hàm SUMIFS của mình lên. Đọc nó mới hiểu thớt muốn cái gì, và làm sao làm việc được với cái đống dữ liệu tùm lùm ấy.

Như sau đây:

moihocvba đã viết:
E muốn dùng dic cho nhẹ ạ, chứ SUMIFS thì em biết làm rồi ạ!

Bạn biết, nhưng người khác không biết. Vì vậy người ta cần nhìn xem bạn làm ra sao.

Ngô Hải Đăng · 22/1/21

moihocvba đã viết:
Em đang cần tính TỒN KHO của kho dựa vào dữ liệu đầu vào: TỒN KHO = SL Tồn đầu (cột E sheet ListHang) + Nhập kho (Cột D sheet NhapKho) - Xuất Kho (Cột D sheet XuatKho)

Code theo ý thớt, do dữ liệu bị cắt tùm lum nên có một số mặt hàng bị âm.

PHP:

Sub TinhTonKho()
  Dim dMatHang
  Set dMatHang = CreateObject("Scripting.Dictionary")
  DuyetNhapKho dMatHang, Sheets("ListHang"), 5, 2, 5
  DuyetNhapKho dMatHang, Sheets("NhapKho"), 3, 2, 4
  DuyetXuatKho dMatHang, Sheets("XuatKho"), 3, 2, 4
  Sheets("TonKho").Range("D5").Resize(dMatHang.Count) = Application.Transpose(dMatHang.Items)
  Sheets("TonKho").Range("E5").Resize(dMatHang.Count) = Application.Transpose(dMatHang.Keys)
End Sub

Private Sub DuyetNhapKho(iMatHang, iSheet As Worksheet, iDongBatDau As Long, iCotMatHang As Integer, iCotSoLuong As Integer)
  Dim x&, sKey$
  For x = iDongBatDau To iSheet.Cells(iDongBatDau, iCotMatHang).End(xlDown).Row
    sKey = iSheet.Cells(x, iCotMatHang).Value
    iMatHang(sKey) = iMatHang(sKey) + iSheet.Cells(x, iCotSoLuong).Value
  Next x
End Sub

Private Sub DuyetXuatKho(iMatHang, iSheet As Worksheet, iDongBatDau As Long, iCotMatHang As Integer, iCotSoLuong As Integer)
  Dim x&, sKey$
  For x = iDongBatDau To iSheet.Cells(iDongBatDau, iCotMatHang).End(xlDown).Row
    sKey = iSheet.Cells(x, iCotMatHang).Value
    iMatHang(sKey) = iMatHang(sKey) - iSheet.Cells(x, iCotSoLuong).Value
  Next x
End Sub

ptm0412 · 22/1/21

Code viết đơn giản cho dễ hiểu. Phát hiện 1824 mặt hàng không có trong list nhưng có nhập xuất. Đó là cái tội không dùng mã hàng mà dùng tên cho gõ sai.

PHP:

Sub TinhTon()
Dim LastRw As Long, SArr(), RArr(), Dict1, NaArr(1 To 20000, 1 To 1)
Dim i As Long, k As Long, Na As Long, Item As String
Application.ScreenUpdating = False
Set Dict1 = CreateObject("Scripting.Dictionary")
With Sheet3 '(List hang)'
    LastRw = .[B20000].End(xlUp).Row
    SArr = .Range("B5:E" & LastRw).Value2
ReDim RArr(1 To UBound(SArr, 1), 1 To 3)
    For i = 1 To UBound(SArr, 1)
        Dict1.Add SArr(i, 1), i
        RArr(i, 1) = SArr(i, 1)
        RArr(i, 2) = SArr(i, 2)
        RArr(i, 3) = SArr(i, 4)
    Next
End With

With Sheet4 '(Nhap kho)'
    LastRw = .[B500000].End(xlUp).Row
    SArr = .Range("B3:D" & LastRw).Value2
    For i = 1 To UBound(SArr, 1)
        Item = SArr(i, 1)
        If Dict1.exists(Item) Then
            k = Dict1.Item(Item)
            RArr(k, 3) = RArr(k, 3) + SArr(i, 3)
        Else
            Na = Na + 1
            NaArr(Na, 1) = Item
        End If
    Next
End With
With Sheet1 '(Xuat kho)'
    LastRw = .[B500000].End(xlUp).Row
    SArr = .Range("B3:D" & LastRw).Value2
    For i = 1 To UBound(SArr, 1)
        Item = SArr(i, 1)
        If Dict1.exists(Item) Then
            k = Dict1.Item(Item)
            RArr(k, 3) = RArr(k, 3) - SArr(i, 3)
        Else
            Na = Na + 1
            NaArr(Na, 1) = Item
        End If
    Next
End With
With Sheet5 '(Ton kho)'
    .Range("B5:F20000").Clear
    .[B5].Resize(Dict1.Count, 3).Value = RArr
    .[F5].Resize(Na, 1).Value = NaArr
    .[F5].Resize(Na, 1).RemoveDuplicates Columns:=1, Header:=xlNo
    Na = Application.CountA(.[F5:F20000])
End With
Application.ScreenUpdating = True
MsgBox "There are " & Na & " item(s) not available but have been transfered", , "ptm0412"

End Sub

VetMini · 22/1/21

moihocvba đã viết:
.... Em cũng đang học về VBA dictionary nên cũng muốn tham khảo cách tối ưu nhất.

Đít sần không phải là tối ưu cho bài này.

Với 2016 trở đi thì cách làm đúng nhất là dùng Power Query.

Về lập trình thì loại bài tổng hợp này đít sần phải nhường ADO.

batman1 · 22/1/21

ptm0412 đã viết:
Code viết đơn giản cho dễ hiểu. Phát hiện 1824 mặt hàng không có trong list nhưng có nhập xuất. Đó là cái tội không dùng mã hàng mà dùng tên cho gõ sai.

Tôi thấy lôgíc mà. List là kiểm kê ở ngày cụ thể. Lúc đó có thể hết mặt hàng A, hoặc chưa bao giờ từng có. Sau ngày đó có nhập mặt hàng A nên chuyện có xuất là dễ hiểu. Chỉ sợ tồn không có, nhập cũng không, mà lại có đơn xuất thì mới kỳ diệu.

ptm0412 · 22/1/21

batman1 đã viết:
Tôi thấy lôgíc mà. List là kiểm kê ở ngày cụ thể. Lúc đó có thể hết mặt hàng A, hoặc chưa bao giờ từng có. Sau ngày đó có nhập mặt hàng A nên chuyện có xuất là dễ hiểu. Chỉ sợ tồn không có, nhập cũng không, mà lại có đơn xuất thì mới kỳ diệu.

Tôi có liệt kê ra và kiểm tra sơ bộ: Toàn là lỗi gõ sai như dư khoảng trắng, thiếu khoảng trắng, sai chính tả.
Có cả không tồn không nhập mà xuất!
Còn việc không tồn, sau đó nhập xuất thì dễ hiểu, nhưng sai nguyên tắc chưa bổ sung vào list đã giao dịch, đúng chuẩn là tạo mã trước, giao dịch sau.

batman1 · 22/1/21

ptm0412 đã viết:
Có cả không tồn không nhập mà xuất!

Thật kỳ diệu

ptm0412 · 22/1/21

VetMini đã viết:
Đít sần không phải là tối ưu cho bài này.

Bài này nó vừa kỳ diệu vừa kỳ cục.
- Tồn đầu không biết tồn khi nào vì không thấy ngày tháng, có phải danh mục hay không.
- Tồn cuối không biết có phải theo ngày tháng hay không, vì không thấy ngày tháng tính tồn
- Nhập xuất cũng không có ngày tháng của từng giao dịch

Do kỳ cục nên tôi làm theo kiểu tồn đầu là đầu chưa có giao dịch nào, tồn cuối là tồn đến sau giao dịch cuối.
Nếu xài Power query hay ADO thì:
- Sheet List có phải danh mục không? để còn join jiếc (left, right, full, hay inner)
- Xử lý sao với không có trong list cũng không nhập mà xuất? không có tên trong list mà nhập?

VetMini · 23/1/21

ptm0412 đã viết:
... Do kỳ cục nên tôi làm theo kiểu tồn đầu là đầu chưa có giao dịch nào, tồn cuối là tồn đến sau giao dịch cuối.
Nếu xài Power query hay ADO thì:
- Sheet List có phải danh mục không? để còn join jiếc (left, right, full, hay inner)
- Xử lý sao với không có trong list cũng không nhập mà xuất? không có tên trong list mà nhập?

Coi như có 2 loại phát sinh chính: loại tồn đầu coi như nhập, loại nhập, và loại xuất.
Và 1 loại phát sinh đặc bệt: loại nhập/xuất mà chưa có tên trong danh mục coi như là loại phát sinh tạo danh mục.

Join: bạn không dùng Join mà dùng Union All và Group.

Hai Lúa Miền Tây · 23/1/21

VetMini đã viết:
Đít sần không phải là tối ưu cho bài này.

Với 2016 trở đi thì cách làm đúng nhất là dùng Power Query.

Về lập trình thì loại bài tổng hợp này đít sần phải nhường ADO.

Tác giả yêu cầu là:

moihocvba đã viết:
Nên em muốn nhờ anh chị giúp em thuật toán đưa dữ liệu vào mảng rồi dùng dictionary để tính toán sau đó đưa dữ liệu ra sheet tồn được không ạ? Vì em nghe nói cách này tính toán rất nhanh với khối lượng dữ liệu lớn. Em cũng đang học về VBA dictionary nên cũng muốn tham khảo cách tối ưu nhất.

Nên ADO hay Power Query là cái chi chi...???

ptm0412 · 23/1/21

Hai Lúa Miền Tây đã viết:
Tác giả yêu cầu là: Dictionary
Nên ADO hay Power Query là cái chi chi...???

Dù tác giả yêu cầu Dict nhưng lại cho rằng Dict là tối ưu, nên có ý kiến đóng góp đó mà. Vả lại trên diễn đàn có những yêu cầu thuộc loại không tưởng, nên khi gặp thì sẽ khuyến cáo phải dùng cách khác.

Hai Lúa Miền Tây · 23/1/21

ptm0412 đã viết:
Có cả không tồn không nhập mà xuất!

Có khi nhận hàng khuyến mãi không nhập kho, hàng trả về không xử lý... Khi xuất thì sẽ bị âm.
Em thử viết tạm bằng ADO, không loại bỏ hàng bị âm như sau:

SQL:

Sub LayDL()
    Dim strSQL As String
    strSQL = strSQL & "SELECT F2 AS Ten, " & vbCrLf
    strSQL = strSQL & "       F3 AS DVT, " & vbCrLf
    strSQL = strSQL & "       F5 AS SoLg " & vbCrLf
    strSQL = strSQL & "FROM   [LISTHANG$A5:E] " & vbCrLf
    strSQL = strSQL & "UNION ALL " & vbCrLf
    strSQL = strSQL & "SELECT F2 AS Ten, " & vbCrLf
    strSQL = strSQL & "       F3 AS DVT, " & vbCrLf
    strSQL = strSQL & "       F4 AS SoLg " & vbCrLf
    strSQL = strSQL & "FROM   [NHAPKHO$A3:E] " & vbCrLf
    strSQL = strSQL & "UNION ALL " & vbCrLf
    strSQL = strSQL & "SELECT F2  AS Ten, " & vbCrLf
    strSQL = strSQL & "       F3  AS DVT, " & vbCrLf
    strSQL = strSQL & "       -F4 AS SoLg " & vbCrLf
    strSQL = strSQL & "FROM   [XUATKHO$A3:E]"
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
        Sheet5.Range("B5").CopyFromRecordset .Execute("Select Ten,DVT,Sum(SoLg) From(" & strSQL & ") Group By Ten,DVT")
    End With
End Sub

ptm0412 · 23/1/21

VetMini đã viết:
Coi như có 2 loại phát sinh chính: loại tồn đầu coi như nhập, loại nhập, và loại xuất.
Và 1 loại phát sinh đặc bệt: loại nhập/xuất mà chưa có tên trong danh mục coi như là loại phát sinh tạo danh mục.

Join: bạn không dùng Join mà dùng Union All và Group.

Tôi thích làm việc với dữ liệu chuẩn CSDL: có bảng mã (nếu không có mã mà dùng tên thì cũng phải chuẩn), chưa có mã thì không cho nhập xuất, nhập xuất phải ràng buộc từ bảng mã.
Khi tôi viết Dict ở trên cũng viết theo chuẩn, lỗi chưa có mã tôi lọc ra cho thấy mà sửa, khi nào sửa xong mà msgbox báo số lượng mã lỗi bằng 0 thì thôi. Còn viết như ý anh là chữa cháy và dung túng cái sai. Các cái sai không chỉ là lỗi chưa có mã mà còn bao gồm cả lỗi đánh máy, lỗi chính tả, và lỗi gõ ẩu.

moihocvba · 23/1/21

Ngô Hải Đăng đã viết:
Code theo ý thớt, do dữ liệu bị cắt tùm lum nên có một số mặt hàng bị âm.

Dạ đúng rồi ạ, do em cắt bớt để làm ví dụ demo, chứ để nguyên file thì nó rất nặng ạ, vì dữ liệu rất nhiều!

moihocvba · 23/1/21

ptm0412 đã viết:

Code viết đơn giản cho dễ hiểu. Phát hiện 1824 mặt hàng không có trong list nhưng có nhập xuất. Đó là cái tội không dùng mã hàng mà dùng tên cho gõ sai.

PHP:

Sub TinhTon()
Dim LastRw As Long, SArr(), RArr(), Dict1, NaArr(1 To 20000, 1 To 1)
Dim i As Long, k As Long, Na As Long, Item As String
Application.ScreenUpdating = False
Set Dict1 = CreateObject("Scripting.Dictionary")
With Sheet3 '(List hang)'
    LastRw = .[B20000].End(xlUp).Row
    SArr = .Range("B5:E" & LastRw).Value2
ReDim RArr(1 To UBound(SArr, 1), 1 To 3)
    For i = 1 To UBound(SArr, 1)
        Dict1.Add SArr(i, 1), i
        RArr(i, 1) = SArr(i, 1)
        RArr(i, 2) = SArr(i, 2)
        RArr(i, 3) = SArr(i, 4)
    Next
End With

With Sheet4 '(Nhap kho)'
    LastRw = .[B500000].End(xlUp).Row
    SArr = .Range("B3:D" & LastRw).Value2
    For i = 1 To UBound(SArr, 1)
        Item = SArr(i, 1)
        If Dict1.exists(Item) Then
            k = Dict1.Item(Item)
            RArr(k, 3) = RArr(k, 3) + SArr(i, 3)
        Else
            Na = Na + 1
            NaArr(Na, 1) = Item
        End If
    Next
End With
With Sheet1 '(Xuat kho)'
    LastRw = .[B500000].End(xlUp).Row
    SArr = .Range("B3:D" & LastRw).Value2
    For i = 1 To UBound(SArr, 1)
        Item = SArr(i, 1)
        If Dict1.exists(Item) Then
            k = Dict1.Item(Item)
            RArr(k, 3) = RArr(k, 3) - SArr(i, 3)
        Else
            Na = Na + 1
            NaArr(Na, 1) = Item
        End If
    Next
End With
With Sheet5 '(Ton kho)'
    .Range("B5:F20000").Clear
    .[B5].Resize(Dict1.Count, 3).Value = RArr
    .[F5].Resize(Na, 1).Value = NaArr
    .[F5].Resize(Na, 1).RemoveDuplicates Columns:=1, Header:=xlNo
    Na = Application.CountA(.[F5:F20000])
End With
Application.ScreenUpdating = True
MsgBox "There are " & Na & " item(s) not available but have been transfered", , "ptm0412"

End Sub

Con cám ơn chú ptm0412, con đã áp dụng cách của chú và thấy code chạy rất nhanh (khoảng 0.2 giây), nó là điều tuyệt vời con đang cần.
Con chúc chú sức khỏe và giúp đỡ được nhiều bạn giống con ạ!

Bài đã được tự động gộp: 23/1/21

Hai Lúa Miền Tây đã viết:

Có khi nhận hàng khuyến mãi không nhập kho, hàng trả về không xử lý... Khi xuất thì sẽ bị âm.
Em thử viết tạm bằng ADO, không loại bỏ hàng bị âm như sau:

SQL:

Sub LayDL()
    Dim strSQL As String
    strSQL = strSQL & "SELECT F2 AS Ten, " & vbCrLf
    strSQL = strSQL & "       F3 AS DVT, " & vbCrLf
    strSQL = strSQL & "       F5 AS SoLg " & vbCrLf
    strSQL = strSQL & "FROM   [LISTHANG$A5:E] " & vbCrLf
    strSQL = strSQL & "UNION ALL " & vbCrLf
    strSQL = strSQL & "SELECT F2 AS Ten, " & vbCrLf
    strSQL = strSQL & "       F3 AS DVT, " & vbCrLf
    strSQL = strSQL & "       F4 AS SoLg " & vbCrLf
    strSQL = strSQL & "FROM   [NHAPKHO$A3:E] " & vbCrLf
    strSQL = strSQL & "UNION ALL " & vbCrLf
    strSQL = strSQL & "SELECT F2  AS Ten, " & vbCrLf
    strSQL = strSQL & "       F3  AS DVT, " & vbCrLf
    strSQL = strSQL & "       -F4 AS SoLg " & vbCrLf
    strSQL = strSQL & "FROM   [XUATKHO$A3:E]"
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
        Sheet5.Range("B5").CopyFromRecordset .Execute("Select Ten,DVT,Sum(SoLg) From(" & strSQL & ") Group By Ten,DVT")
    End With
End Sub

Dạ, Chào chú Hai Lúa Miền Tây, cám ơn chú đã giúp con!
Con chưa biết gì về ADO nên con không biết chỉnh sửa code của chú như thế nào để phù hợp với file của con. Con sẽ lưu code của chú lại, sau này con học thêm ADO sẽ nghiên cứu tiếp!
Chúc chú luôn vui vẻ ạ!

ptm0412 · 23/1/21

moihocvba đã viết:
Con cám ơn chú ptm0412, con đã áp dụng cách của chú và thấy code chạy rất nhanh (khoảng 0.2 giây), nó là điều tuyệt vời con đang cần.
Con chúc chú sức khỏe và giúp đỡ được nhiều bạn giống con ạ!

Quan trọng là phải chuẩn hoá dữ liệu:
- Nên có mã và có bảng mã đầy đủ
- Chưa có mã chưa cho nhập xuất
- Nhập xuất dùng mã, và kiểm soát được việc gõ sai chính tả, dư khoảng trắng, sai chính tả

Sửa xong chạy code cho đến khi thông báo không còn mặt hàng lỗi

moihocvba · 23/1/21

ptm0412 đã viết:
Quan trọng là phải chuẩn hoá dữ liệu:
- Nên có mã và có bảng mã đầy đủ
- Chưa có mã chưa cho nhập xuất
- Nhập xuất dùng mã, và kiểm soát được việc gõ sai chính tả, dư khoảng trắng, sai chính tả

Sửa xong chạy code cho đến khi thông báo không còn mặt hàng lỗi

Dạ, con đang từng bước hoàn chỉnh đó chú, hồi giờ cậu mợ làm theo kiểu tùy ý, giờ con nhìn lại cũng thấy hoảng, con cần có thời gian để điều chỉnh dần dần. Làm được nhiều điều nên con dần nghiền VBA rồi chú, hihi

tigertiger · 23/1/21

moihocvba đã viết:
Dạ, con đang từng bước hoàn chỉnh đó chú, hồi giờ cậu mợ làm theo kiểu tùy ý, giờ con nhìn lại cũng thấy hoảng, con cần có thời gian để điều chỉnh dần dần. Làm được nhiều điều nên con dần nghiền VBA rồi chú, hihi

Không, Từng bước từng bước thì đúng rồi
Song, từng bước thì không thể nhày bước
Bước đầu tiên là chuẩn hóa dữ liệu - như các thành viên trên đã nói, thì không nên bỏ qua
Bỏ qua thì làm khó mình và khó các bước sau
Nếu Bước sau lại làm trước bước chuẩn hóa đó, thì sau sửa sẽ lại sửa từ đầu

VetMini · 23/1/21

Hai Lúa Miền Tây đã viết:
Tác giả yêu cầu là:

Nên ADO hay Power Query là cái chi chi...???

Tôi tưởng lâu ngày bạn đã biết tính tôi.
Phần lớn bài của tôi là giới thiệu thuật toán và phương pháp cho các bạn có nhu cầu. Nếu tôi viết code thì thường là chỉ minh hoạ thuật toán.
Việc của các chủ thớt đối với tôi thường là chữa cháy; chỉ sử dụng được một trường hợp duy nhất; cả thuật toán lẫn code.

Chủ yếu bài này là thớt bước vào lập trình mà đã có định kiến và thành kiến về giải thuật; cho rằng dictionary là cái chìa khoá vạn năng. Với những người đã có thành kiến tôi không buồn lý luận. Tôi chỉ vạch rõ các chọn lựa cho những thành viên khác thôi.
Rất có thể với dạng dữ liệu tum lùm như bào này, Power Query sẽ phải văn vẹo đủ điều, và cũng có thể ADO không khả thi. Nhưng chưa thử tư duy, tính toán các giải trình thì sao biết?

ptm0412 đã viết:
Tôi thích làm việc với dữ liệu chuẩn CSDL: có bảng mã (nếu không có mã mà dùng tên thì cũng phải chuẩn), chưa có mã thì không cho nhập xuất, nhập xuất phải ràng buộc từ bảng mã.
Khi tôi viết Dict ở trên cũng viết theo chuẩn, lỗi chưa có mã tôi lọc ra cho thấy mà sửa, khi nào sửa xong mà msgbox báo số lượng mã lỗi bằng 0 thì thôi. Còn viết như ý anh là chữa cháy và dung túng cái sai. Các cái sai không chỉ là lỗi chưa có mã mà còn bao gồm cả lỗi đánh máy, lỗi chính tả, và lỗi gõ ẩu.

Như tôi đã giải thích ở bài trước. Đối với công việc Inventory Control, có những hệ thống chấp nhận phát sinh không có sẵn mã hàng. Lúc gộp phát sinh về mới lập record trong master file, mà cũng chỉ là record tạm (chi tiết chỉ có thể lấy từ phát sinh đâu có nhiều). Người quản lý sau đó mới vào record tạm này mà chỉnh sửa thành record đầy đủ (những chi tiết còn lại).

tigertiger đã viết:
...Nếu Bước sau lại làm trước bước chuẩn hóa đó, thì sau sửa sẽ lại sửa từ đầu

Làm việc với dữ liệu chưa chuẩn cũng được. Nhưng đòi hỏi phải có rất nhiều kinh nghiệm về dạng dữ liệu, và kiến thức về toán thống kê. Và tôi nhấn mạnh từ "rất nhiều" trong "rất nhiều kinh nghiệm".

Hai Lúa Miền Tây · 23/1/21

VetMini đã viết:
Tôi tưởng lâu ngày bạn đã biết tính tôi.
Phần lớn bài của tôi là giải thích thuật toán và phương pháp cho các bạn có nhu cầu.
Việc của các chủ thớt đối với tôi thường là chữa cháy; chỉ sử dụng được một trường hợp duy nhất; cả thuật toán lẫn code.

Chủ yếu bài này là thớt bước vào lập trình mà đã có định kiến và thành kiến về giải thuật; cho rằng dictionary là cái chìa khoá vạn năng. Với những người đã có thành kiến tôi không buồn lý luận. Tôi chỉ vạch rõ các chọn lựa cho những thành viên khác thôi.
Rất có thể với dạng dữ liệu tum lùm như bào này, Power Query sẽ phải văn vẹo đủ điều, và cũng có thể ADO không khả thi. Nhưng chưa thử tư duy, tính toán các giải trình thì sao biết?

Biết chứ Anh, tại thấy lâu lâu anh nhắc đến ADO nên cảm thấy hứng thú. Hỏi lại coi chủ thớt có cần hay không, ai dè hông có cần thiệt

. Tuy nhiên viết thì cũng đã viết rồi, nếu ai khác cần thì cứ tham khảo thôi.

ptm0412 · 23/1/21

VetMini đã viết:
Như tôi đã giải thích ở bài trước. Đối với công việc Inventory Control, có những hệ thống chấp nhận phát sinh không có sẵn mã hàng. Lúc gộp phát sinh về mới lập record trong master file, mà cũng chỉ là record tạm (chi tiết chỉ có thể lấy từ phát sinh đâu có nhiều). Người quản lý sau đó mới vào record tạm này mà chỉnh sửa thành record đầy đủ (những chi tiết còn lại).

Ờ thì tôi đã đồng ý "mã tạm" rồi, nguyên văn anh viết "loại nhập/xuất mà chưa có tên trong danh mục coi như là loại phát sinh tạo danh mục." và tôi đã đồng ý.
Riêng trong file của chủ đề này tôi viết thêm "còn bao gồm cả lỗi đánh máy, lỗi chính tả, và lỗi gõ ẩu". Và tôi không muốn "dung túng cái sai" là những cái sai loại này.

moihocvba · 23/1/21

Hai Lúa Miền Tây đã viết:
Biết chứ Anh, tại thấy lâu lâu anh nhắc đến ADO nên cảm thấy hứng thú. Hỏi lại coi chủ thớt có cần hay không, ai dè hông có cần thiệt . Tuy nhiên viết thì cũng đã viết rồi, nếu ai khác cần thì cứ tham khảo thôi.

Không phải là ko cần ADO chú, mà chưa biết gì hết nên ko dám dùng, vì cần phải chỉnh sửa lại cho phù hợp với file, chứ con ko có dùng nguyên code này chú ạ!
Cám ơn chú nhiều!

Sử dụng dictionary VBA để tính tồn kho (1 người xem)

Người dùng đang xem chủ đề này

Thành viên thường trực

File đính kèm

Thành viên gắn bó

Thành viên thường trực

Đang đi tìm hòn đá

Đăng ký hôm qua

Thành viên thường trực

Đăng ký hôm qua

Thành viên thường trực

Thành viên gạo cội

Đang đi tìm hòn đá

Thành viên hoạt động

Bad Excel Member

Đang đi tìm hòn đá

Thành viên gạo cội

Bad Excel Member

Thành viên gạo cội

Bad Excel Member

Đang đi tìm hòn đá

❆❆❆❆❆❆❆❆

Bad Excel Member

❆❆❆❆❆❆❆❆

Bad Excel Member

Thành viên thường trực

Thành viên thường trực

Bad Excel Member

Thành viên thường trực

Coming back ...

Đang đi tìm hòn đá

❆❆❆❆❆❆❆❆

Bad Excel Member

Thành viên thường trực

Thời gian đếm ngược.