Nhờ anh chị giúp Dictionary thay hàm Sumif (2 người xem)

Trần Văn Bình · 3/5/23

Sub Thong_ke()
Dim i As Long, K As Long, DCuoi As Long, J As Long
Dim Arr_N(), Arr_D(), Dic As Object
DCuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Arr_N = Sheet1.Range("A5:W" & DCuoi)
ReDim Arr_D(1 To UBound(Arr_N, 1), 1 To 8)
Set Dic = CreateObject("Scripting.Dictionary")
K = 0
For i = 1 To UBound(Arr_N, 1)
If Not Dic.exists(Arr_N(i, 6)) Then
K = K + 1
Dic.Add Arr_N(i, 6), K
Arr_D(K, 1) = K
Arr_D(K, 2) = Arr_N(i, 6)
Arr_D(K, 3) = Arr_N(i, 7)
Arr_D(K, 4) = Arr_N(i, 9)
Arr_D(K, 5) = Arr_N(i, 19)
Arr_D(K, 6) = Arr_N(i, 22)
Arr_D(K, 7) = Arr_N(i, 23)
Arr_D(K, 8) = Arr_N(i, 14)
Else
J = Dic.Item(Arr_N(i, 6))
Arr_D(J, 5) = Arr_D(J, 5) + Arr_N(i, 19) * 24
Arr_D(J, 6) = Arr_D(J, 6) + Arr_N(i, 22)
Arr_D(J, 7) = Arr_D(J, 7) + Arr_N(i, 23)
Arr_D(J, 8) = Arr_D(J, 8) + Arr_N(i, 14)
End If
Next
Sheet8.Range("E6:L50000").ClearContents
Sheet8.Range("E6").Resize(K, 8) = Arr_D

End Sub
Có file đính kèm nhờ anh chị giúp Tại Sheet Thong_ke cột I bị sai

Hoàng Tuấn 868 · 3/5/23

Bài này đăng vào chuyên mục "Lập trình với Excel" mới đúng chỗ bạn ơi.

Trần Văn Bình · 3/5/23

Hoàng Tuấn 868 đã viết:
Bài này đăng vào chuyên mục "Lập trình với Excel" mới đúng chỗ bạn ơi.

Mình thấy liên quan đến thời gian đó bạn

VetMini · 3/5/23

Hoàng Tuấn 868 đã viết:
Bài này đăng vào chuyên mục "Lập trình với Excel" mới đúng chỗ bạn ơi.

Đọc code chả thấy "ngày tháng và thời gian" chỗ nào cả.
Mấy chục dòng im ỉm, lười chú thích, ông nội ai biết code cần làm gì mà bảo kết quả sai.

Thóc Sama · 3/5/23

Trần Văn Bình đã viết:
Sub Thong_ke()
Dim i As Long, K As Long, DCuoi As Long, J As Long
Dim Arr_N(), Arr_D(), Dic As Object
DCuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Arr_N = Sheet1.Range("A5:W" & DCuoi)
ReDim Arr_D(1 To UBound(Arr_N, 1), 1 To 8)
Set Dic = CreateObject("Scripting.Dictionary")
K = 0
For i = 1 To UBound(Arr_N, 1)
If Not Dic.exists(Arr_N(i, 6)) Then
K = K + 1
Dic.Add Arr_N(i, 6), K
Arr_D(K, 1) = K
Arr_D(K, 2) = Arr_N(i, 6)
Arr_D(K, 3) = Arr_N(i, 7)
Arr_D(K, 4) = Arr_N(i, 9)
Arr_D(K, 5) = Arr_N(i, 19)
Arr_D(K, 6) = Arr_N(i, 22)
Arr_D(K, 7) = Arr_N(i, 23)
Arr_D(K, 8) = Arr_N(i, 14)
Else
J = Dic.Item(Arr_N(i, 6))
Arr_D(J, 5) = Arr_D(J, 5) + Arr_N(i, 19) * 24
Arr_D(J, 6) = Arr_D(J, 6) + Arr_N(i, 22)
Arr_D(J, 7) = Arr_D(J, 7) + Arr_N(i, 23)
Arr_D(J, 8) = Arr_D(J, 8) + Arr_N(i, 14)
End If
Next
Sheet8.Range("E6:L50000").ClearContents
Sheet8.Range("E6").Resize(K, 8) = Arr_D

End Sub
Có file đính kèm nhờ anh chị giúp Tại Sheet Thong_ke cột I bị sai

1. Code bạn phải để trong phần mã code.
2. Nhờ BQT dời bài viết vào box lập trình.
3. Mình chưa kiểm tra chi tiết xong thấy phần này có vấn đề.
Thử thay

Mã:

   Arr_D(K, 5) = Arr_N(i, 19)
   thành
      Arr_D(K, 5) = Arr_N(i, 19)*24

Rồi kiểm tra kết quả xem đúng chưa.

Trần Văn Bình · 3/5/23

VetMini đã viết:
Đọc code chả thấy "ngày tháng và thời gian" chỗ nào cả.
Mấy chục dòng im ỉm, lười chú thích, ông nội ai biết code cần làm gì mà bảo kết quả sai.

Mình có đính kèm file trên bên Sheet Thong_Ke dùng Dictionary và bảng 1 bên dùng Sumif Tại cột I thống kê giờ bị sai

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

THÓC SAMA đã viết:
1. Code bạn phải để trong phần mã code.
2. Nhờ BQT dời bài viết vào box lập trình.
3. Mình chưa kiểm tra chi tiết xong thấy phần này có vấn đề.
Thử thay

Mã:

Arr_D(K, 5) = Arr_N(i, 19) thành Arr_D(K, 5) = Arr_N(i, 19)*24

và

Mã:

Arr_D(J, 5) = Arr_D(J, 5) + Arr_N(i, 19) * 24 thành Arr_D(J, 5) = (Arr_D(J, 5) + Arr_N(i, 19)) * 24

Rồi kiểm tra kết quả xem đúng chưa.

Mình đã thử cách như của bạn nhừng ra kết quả số quá lớn.

Thóc Sama · 3/5/23

Trần Văn Bình đã viết:
Mình có đính kèm file trên bên Sheet Thong_Ke dùng Dictionary và bảng 1 bên dùng Sumif Tại cột I thống kê giờ bị sai

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

Mình đã thử cách như của bạn nhừng ra kết quả số quá lớn.

Nhầm một chút, bạn xem lại #5, mình đã đính chính.

VetMini · 3/5/23

Trần Văn Bình đã viết:
Mình có đính kèm file trên bên Sheet Thong_Ke dùng Dictionary và bảng 1 bên dùng Sumif Tại cột I thống kê giờ bị sai
...

Tôi chỉ hỏi code làm gì. Và chỗ bị sai nó ra cái gì? đáng lẽ đúng thì ra cái gì?

Nếu từ đầu bạn không mang định kiến dùng Dictionary thì có thể suy nghĩ của bạn cởi mở hơn. Có thể có cách khác dễ tìm ra chỗ sai hơn.

Trần Văn Bình · 3/5/23

VetMini đã viết:
Tôi chỉ hỏi code làm gì. Và chỗ bị sai nó ra cái gì? đáng lẽ đúng thì ra cái gì?

Nếu từ đầu bạn không mang định kiến dùng Dictionary thì có thể suy nghĩ của bạn cởi mở hơn. Có thể có cách khác dễ tìm ra chỗ sai hơn.

ý mình là dùng Dic nó ra kết quả khống đúng so với hàm sumif có bảng kế bên đó bạn

Hoàng Nhật Phương · 3/5/23

Trần Văn Bình đã viết:
ý mình là dùng Dic nó ra kết quả khống đúng so với hàm sumif có bảng kế bên đó bạn

Bạn tham khảo . . :

Mã:

Option Explicit

Sub Test()

    Dim dict As Object, wsResult As Worksheet, wsThongKe As Worksheet
    Dim data As Variant, result As Variant, code As Variant
    Dim sTenHV As String, sHang As String
    Dim dDem As Double, dTdong As Double, dTai As Double, dKm As Double
    Dim lr As Long, i As Long, k As Long, r As Long

    Set wsResult = ThisWorkbook.Worksheets("Result")
    Set wsThongKe = ThisWorkbook.Worksheets("Thong_Ke")
   
    If wsResult.AutoFilterMode Then wsResult.AutoFilterMode = False
    lr = wsResult.Cells(wsResult.Rows.Count, "F").End(xlUp).Row
    If (lr < 5) Then
        MsgBox "Khong co du lieu", vbInformation
        Exit Sub
    End If
   
    data = wsResult.Range("F5:W" & lr).Value
    lr = UBound(data, 1)
    ReDim result(1 To lr, 1 To 10)
   
    Set dict = CreateObject("Scripting.Dictionary")
    dict.CompareMode = vbTextCompare
   
    For i = 1 To lr
       
        code = data(i, 1)       '// Ma hoc vien
        sTenHV = data(i, 2)     '// Ten hoc vien
        sHang = data(i, 16)     '// Hang
        dDem = data(i, 14) * 24 '// Dem
        dTdong = data(i, 17)    '// So tu dong
        dTai = data(i, 18)      '// Tai
        dKm = data(i, 9)        '// Km
       
        If Not dict.Exists(code) Then
            k = k + 1
            dict.Add code, k
            result(k, 1) = k
            result(k, 2) = code
            result(k, 3) = sTenHV
            result(k, 4) = sHang
            result(k, 5) = dDem
            result(k, 6) = dTdong
            result(k, 7) = dTai
            result(k, 8) = dKm
        Else
            r = dict.Item(code)
            result(r, 5) = result(r, 5) + dDem
            result(r, 6) = result(r, 6) + dTdong
            result(r, 7) = result(r, 7) + dTai
            result(r, 8) = result(r, 8) + dKm
        End If
       
    Next i
   
    lr = wsThongKe.Cells(wsThongKe.Rows.Count, "F").End(xlUp).Row
    If (lr > 5) Then wsThongKe.Range("E6:M" & lr).ClearContents
    If (k > 0) Then wsThongKe.Range("E6").Resize(k, 10).Value = result
   
    MsgBox "Ket thuc", vbInformation
   
End Sub

Hoặc :

Mã:

Sub Test2()

    Dim dict As Object, wsResult As Worksheet, wsThongKe As Worksheet
    Dim data As Variant, result As Variant, code As Variant
    Dim index(1 To 7, 1 To 2) As Integer
    Dim sTenHV As String, sHang As String
    Dim lr As Long, i As Long, k As Long, r As Long
    Dim c As Integer
    
    Set wsResult = ThisWorkbook.Worksheets("Result")
    Set wsThongKe = ThisWorkbook.Worksheets("Thong_Ke (2)")
    
    If wsResult.AutoFilterMode Then wsResult.AutoFilterMode = False
    lr = wsResult.Cells(wsResult.Rows.Count, "F").End(xlUp).Row
    If (lr < 5) Then
        MsgBox "Khong co du lieu", vbInformation
        Exit Sub
    End If
    
    index(1, 1) = 1:        index(1, 2) = 2:    '// Ma hoc vien
    index(2, 1) = 2:        index(2, 2) = 3:    '// Ten hoc vien
    index(3, 1) = 16:       index(3, 2) = 4:    '// Hang
    index(4, 1) = 14:       index(4, 2) = 5:    '// Dem
    index(5, 1) = 17:       index(5, 2) = 6:    '// So tu dong
    index(6, 1) = 18:       index(6, 2) = 7:    '// Tai
    index(7, 1) = 9:        index(7, 2) = 8:    '// Km

    data = wsResult.Range("F5:W" & lr).Value
    lr = UBound(data, 1)
    ReDim result(1 To lr, 1 To 10)
    
    Set dict = CreateObject("Scripting.Dictionary")
    dict.CompareMode = vbTextCompare
    
    For i = 1 To lr
        code = data(i, 1)
        If Not dict.Exists(code) Then
            k = k + 1
            dict.Add code, k
            result(k, 1) = k
        End If
        r = dict.Item(code)
        For c = 1 To 7
            If c < 4 Then
                result(r, c + 1) = data(i, index(c, 1))
            ElseIf c = 4 Then
                result(r, c + 1) = result(r, c + 1) + data(i, index(c, 1)) * 24
            Else
                result(r, c + 1) = result(r, c + 1) + data(i, index(c, 1))
            End If
        Next c
    Next i

    lr = wsThongKe.Cells(wsThongKe.Rows.Count, "F").End(xlUp).Row
    If (lr > 5) Then wsThongKe.Range("E6:M" & lr).ClearContents
    wsThongKe.Range("E6").Resize(k, 10).Value = result

    MsgBox "Ket thuc", vbInformation
    
End Sub

VetMini · 3/5/23

Trần Văn Bình đã viết:
ý mình là dùng Dic nó ra kết quả khống đúng so với hàm sumif có bảng kế bên đó bạn

Nếu bạn nói từ đầu là cột I nó sum số ngày và đổi thành giờ thì người ta đã dễ dàng chỉ ra chỗ sai trong code rồi.
Bạn sai là do code tổng dữ liệu không nhất quán chứ chả liên quan gì đến đít sần cả.

Trần Văn Bình · 3/5/23

Cám ơn các bạn đã giúp mình mới học code nên chưa hiểu được nhiều đặc biện cám ơn @Hoàng Nhật Phương đã giúp code đúng ý mình và công thưc chính xác.
Cùng là Dictionary thay hàm sumif có bạn đã giúp với công thức sau:
Sub Thong_ke()
Dim i As Long, k As Long, DCuoi As Long, J As Long
Dim Arr_N(), Arr_D(), Dic As Object
DCuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Arr_N = Sheet1.Range("A5:W" & DCuoi)
ReDim Arr_D(1 To UBound(Arr_N, 1), 1 To 8)
Set Dic = CreateObject("Scripting.Dictionary")
k = 0
For i = 1 To UBound(Arr_N, 1)
If Not Dic.Exists(Arr_N(i, 6)) Then
k = k + 1
Dic.Add Arr_N(i, 6), k
Arr_D(k, 1) = k
Arr_D(k, 2) = Arr_N(i, 6)
Arr_D(k, 3) = Arr_N(i, 7)
Arr_D(k, 4) = Arr_N(i, 9)
Arr_D(k, 5) = Arr_N(i, 19) * 24
Arr_D(k, 6) = Arr_N(i, 22)
Arr_D(k, 7) = Arr_N(i, 23)
Arr_D(k, 8) = Arr_N(i, 14)
Else
J = Dic.Item(Arr_N(i, 6))
Arr_D(J, 5) = Arr_D(J, 5) + Arr_N(i, 19) * 24
Arr_D(J, 6) = Arr_D(J, 6) + Arr_N(i, 22)
Arr_D(J, 7) = Arr_D(J, 7) + Arr_N(i, 23)
Arr_D(J, 8) = Arr_D(J, 8) + Arr_N(i, 14)
End If
Next
Sheet8.Range("I6:I1000").NumberFormat = "#,##0.00"
Sheet8.Range("E6:L50000").ClearContents
Sheet8.Range("E6").Resize(k, 8) = Arr_D

End Sub

phihndhsp · 3/5/23

Trần Văn Bình đã viết:
Cám ơn các bạn đã giúp mình mới học code nên chưa hiểu được nhiều đặc biện cám ơn @Hoàng Nhật Phương đã giúp code đúng ý mình và công thưc chính xác.
Cùng là Dictionary thay hàm sumif có bạn đã giúp với công thức sau:
Sub Thong_ke()
Dim i As Long, k As Long, DCuoi As Long, J As Long
Dim Arr_N(), Arr_D(), Dic As Object
DCuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Arr_N = Sheet1.Range("A5:W" & DCuoi)
ReDim Arr_D(1 To UBound(Arr_N, 1), 1 To 8)
Set Dic = CreateObject("Scripting.Dictionary")
k = 0
For i = 1 To UBound(Arr_N, 1)
If Not Dic.Exists(Arr_N(i, 6)) Then
k = k + 1
Dic.Add Arr_N(i, 6), k
Arr_D(k, 1) = k
Arr_D(k, 2) = Arr_N(i, 6)
Arr_D(k, 3) = Arr_N(i, 7)
Arr_D(k, 4) = Arr_N(i, 9)
Arr_D(k, 5) = Arr_N(i, 19) * 24
Arr_D(k, 6) = Arr_N(i, 22)
Arr_D(k, 7) = Arr_N(i, 23)
Arr_D(k, 8) = Arr_N(i, 14)
Else
J = Dic.Item(Arr_N(i, 6))
Arr_D(J, 5) = Arr_D(J, 5) + Arr_N(i, 19) * 24
Arr_D(J, 6) = Arr_D(J, 6) + Arr_N(i, 22)
Arr_D(J, 7) = Arr_D(J, 7) + Arr_N(i, 23)
Arr_D(J, 8) = Arr_D(J, 8) + Arr_N(i, 14)
End If
Next
Sheet8.Range("I6:I1000").NumberFormat = "#,##0.00"
Sheet8.Range("E6:L50000").ClearContents
Sheet8.Range("E6").Resize(k, 8) = Arr_D

End Sub

về vấn đề dùng Dic để thống kê, thì thống kê 1 hoặc nhiều đk điều ra kết quả đúng, nếu kết quả sai có thể là do dữ liệu không hợp lý hoặc kỹ thuật code của bạn bị vướng một vài chỗ, còn về tổng quan là dic làm được hết nha

Trần Văn Bình · 3/5/23

phihndhsp đã viết:
về vấn đề dùng Dic để thống kê, thì thống kê 1 hoặc nhiều đk điều ra kết quả đúng, nếu kết quả sai có thể là do dữ liệu không hợp lý hoặc kỹ thuật code của bạn bị vướng một vài chỗ, còn về tổng quan là dic làm được hết nha

Cám ơn tất cả các anh chị đã nhiệt tình giúp

VetMini · 4/5/23

phihndhsp đã viết:
về vấn đề dùng Dic để thống kê, thì thống kê 1 hoặc nhiều đk điều ra kết quả đúng, nếu kết quả sai có thể là do dữ liệu không hợp lý hoặc kỹ thuật code của bạn bị vướng một vài chỗ, còn về tổng quan là dic làm được hết nha

1. dùng Dic để thống kê:
Không hẳn đúng với đường lối của dân GPE.
Ở đây, người ta thích dùng đít sần bởi lý do chính là công cụ này giúp giải được bài toán "lọc duy nhất" một cách dễ dàng.
Từ tính chất "lọc duy nhất", người ta diễn thêm ra thuật toán "tổng theo mục".
Và từ đó, cứ lối mòn cũ bước theo. Bao nhiêu năm không thấy có thêm thắt cải tiến gì hay ho.
Trên thực tế, muốn thống kê thì dùng ADODB (SQL) nhiều linh động hơn.

2. tổng quan là dic làm được hết nha:
Vì ý nghĩ "tổng quan làm được" như vậy cho nên người ta cứ nằm trong cái ổ cũ rích ấy, không cần biết đến các công cụ mà MS ra thêm để giúp việc "thống kê" dễ dàng và hiệu quả. Điển hình Power Query ra đã mấy năm rồi mà dân GPE cứ tảng lờ.

Chung lại: lỗi tại dân GPE khoái khoe tài code VBA của mình cho nên những người hỏi bài cứ làm nũng.
TỘI GÌ PHẢI BỎ CÔNG SỨC HỌC CÁC CÔNG CỤ MỚI TRONG KHI LÊN GPE LÀ CÓ NGAY CODE "BẤM MỘT PHÁT"?

TongDe · 4/5/23

VetMini đã viết:
Trên thực tế, muốn thống kê thì dùng ADODB (SQL) nhiều linh động hơn.

Thử theo hướng náy và chủ thớt kiểm tra lại nha !

Trần Văn Bình · 4/5/23

TongDe đã viết:
Thử theo hướng náy và chủ thớt kiểm tra lại nha !

Cám ơn bạn nhiều mình chỉ cần thếm code sum(f19)*24 là ra kết quả ok. Code của bạn viết rất gon !

VetMini · 4/5/23

Từ đầu bị cái vỏ hào nhoáng của đít sần nên cứ cắm cúi theo, không suy nghĩ.
SQL mới là ngôn ngữ làm với nhóm, tổng,... ADO chỉ là công cụ giúp sử dụng SQL trên file Excel.

Chú thích: có ai hững muốn thử Power Query hôn?
Power Query đi theo Excel. Sử dụng được trên nền tảng khác (như MacOS)
Dictionary là công cụ của Script Engine trên Wimdows. ADO là OLE trên Windows.
Code Dic và ADO đem qua nền tảng khác phải sửa đổi rất nhiều. Code Power Query không bị giới hạn nền tảng, và không bị phải lưu file với macro.

Sonkull · 4/5/23

Mấy cái thống kê này Dir điếc gì cho nó rắc rối chứ SQL với Power Query cho nó nhàn đầu update lên ACE à. Sau biết thêm SQL vs Power Query VBA lâu lâu ms động đến

Maika8008 · 4/5/23

Sonkull đã viết:
Mấy cái thống kê này Dir điếc gì cho nó rắc rối chứ SQL với Power Query cho nó nhàn đầu update lên ACE à. Sau biết thêm SQL vs Power Query VBA lâu lâu ms động đến

VBA thì có người làm giùm chứ PQry phải tự học, tự làm. Chả dại --=0

befaint · 4/5/23

A chích e vờ sờ mờ sờ hãi hùng, điếc con muỗi luôn.

Sonkull · 4/5/23

Maika8008 đã viết:
VBA thì có người làm giùm chứ PQry phải tự học, tự làm. Chả dại

Nói chứ VBA giờ không nên đầu tư nhiều biết cũng tốt chứ Power Query, SQL, Python nó đơn giản và dễ viết hơn nhiều. VBA đã tồn tại quá lâu nên mọi người thần thánh quá cái gì cũng lôi vào thôi.

VetMini · 4/5/23

Sonkull đã viết:
Maika8008 đã viết:
VBA thì có người làm giùm chứ PQry phải tự học, tự làm. Chả dại

Nói chứ VBA giờ không nên đầu tư nhiều biết cũng tốt chứ Power Query, SQL, Python nó đơn giản và dễ viết hơn nhiều. VBA đã tồn tại quá lâu nên mọi người thần thánh quá cái gì cũng lôi vào thôi.

Có hiểu người ta nói gì hôn?
Gợi ý: đọc dòng cuối bài #15

phihndhsp · 5/5/23

Sonkull đã viết:
Mấy cái thống kê này Dir điếc gì cho nó rắc rối chứ SQL với Power Query cho nó nhàn đầu update lên ACE à. Sau biết thêm SQL vs Power Query VBA lâu lâu ms động đến

Bạn nói vậy thì cũng hơi quá, mỗi cái nó có 1 nhiệm vụ riêng, nếu biết áp dụng và áp dụng đúng chỗ thì bạn sẽ thấy nó ổn, còn không thì cho dù nó hay như thế nào đi nữa thì bạn cũng chả thấy nó ổn, SQL là ngôn ngữ có cấu trúc mà nó cũng được những người code VBA áp dụng thông qua ADO rồi đó, còn học lập trình thì ngôn ngữ nào cũng như ngôn ngữ nào, chỉ cần bạn hiểu rõ kỹ thuật lập trình thì chuyện ngôn ngữ chỉ tầm vài tiếng là ra ngay. Nếu dữ liệu không ngay hàng thẳng lối thì bạn dùng những công cụ như bạn kể có đáp ứng được yêu cầu không? Quan trọng là mình dùng nó áp dụng cho cái gì, chứ đừng đánh đồng VBA chả là gì. Nếu VBA chả ra gì thì tại sao nó vẫn phát triển cho tới ngày này người ta vẫn sử dụng, điển hình là VBNet. Còn đã xác định học lập trình rồi thì ta cứ thử mọi thứ, thử rồi mới biến kiến thức hay dở như thế nào, không ai ngay từ đầu làm được cái hoàn hảo đâu. cũng phải học từ cái dở nhất và có thể không áp dụng, cho dù nó không áp dụng thì nó cũng giúp bạn tiến xa hơn 1 tí nữa về cách tư duy.

VetMini · 5/5/23

... . . .
(tự xóa phần đàu này vì người hỏi cũng tự xóa bài mình, câu trả ời trở nên rắn mất đầu.)

Nhưng tôi khong khuyến khích cái mớ STT:
- Thứ nhất, tại sao một bảng tổng hợp lại có số thứ tự? Số ấy dùng để làm gì? Cahr thấy lô gic nào cả.
- SQL là ngôn ngữ chú trọng lô gic, và chuyên trên CSDL LH. CSDL LH chân chính không có khái niệm số dòng. Và vì vvaayjphair đi vòng vo tam quốc để lập số dòng.
- Tôi tôn trọng bảng chuẩn hơn bảng hoa lá cành. Chuẩn thì không có STT.

Chú thích:
Thèm STT quá thì thêm dòng code này vào VBA
Ví dụ bắt đầu từ ô Cells(dngBD, cotSTT), và kết thúc ở ô Cells(dngKT, cotSTT)
Range(Cells(dngbd, cotSTT), Cells(dngkt, cotSTT)).Value = _
Evaluate("ROW(" & dngbd & ":" & dngkt & ") - " & (dngbd - 1))

Hoàng Nhật Phương · 5/5/23

VetMini đã viết:
... . . .
(tự xóa phần đàu này vì người hỏi cũng tự xóa bài mình, câu trả ời trở nên rắn mất đầu.)

Nhưng tôi khong khuyến khích cái mớ STT:
- Thứ nhất, tại sao một bảng tổng hợp lại có số thứ tự? Số ấy dùng để làm gì? Cahr thấy lô gic nào cả.
- SQL là ngôn ngữ chú trọng lô gic, và chuyên trên CSDL LH. CSDL LH chân chính không có khái niệm số dòng. Và vì vvaayjphair đi vòng vo tam quốc để lập số dòng.
- Tôi tôn trọng bảng chuẩn hơn bảng hoa lá cành. Chuẩn thì không có STT.

Chú thích:
Thèm STT quá thì thêm dòng code này vào VBA
Ví dụ bắt đầu từ ô Cells(dngBD, cotSTT), và kết thúc ở ô Cells(dngKT, cotSTT)
Range(Cells(dngbd, cotSTT), Cells(dngkt, cotSTT)).Value = _
Evaluate("ROW(" & dngbd & ":" & dngkt & ") - " & (dngbd - 1))

Cảm ơn bác đã chỉ dẫn.
Đúng vậy nghĩ lại cũng thấy STT không quan trọng nên không hỏi nữa nên mới xoá bài ạ, nếu cần thì có thể xử lý bằng vba cho đỡ rắc rối ạ.

VetMini · 5/5/23

phihndhsp đã viết:
Bạn nói vậy thì cũng hơi quá, mỗi cái nó có 1 nhiệm vụ riêng, nếu biết áp dụng và áp dụng đúng chỗ thì bạn sẽ thấy nó ổn, còn không thì cho dù nó hay như thế nào đi nữa thì bạn cũng chả thấy nó ổn,

Người mà bạn nói kia ý chỉ muốn khoe trình độ của mình thôi. Nếu càn mách cho các thành viên khác thì bạn chỉ cần điểm thẳng vào chỗ cẩu thả sai bấy của y:
Điểm tầm bậy là Code thớt này chả liên quan gì đến Dir [sic]

phihndhsp đã viết:
.... Nếu VBA chả ra gì thì tại sao nó vẫn phát triển cho tới ngày này người ta vẫn sử dụng, điển hình là VBNet. ...

Chỗ này thì bạn lầm.
1. Ngày xưa, nhiều nền tảng dùng ngôn ngữ BASIC để làm JCL (Job Command Language)
. Bạn nào ngày xưa có chơi cái Commodore hay giaudf hơn, có cái Apple II thì biết.
2. BASIC là sở thích của lão Bill Gates. Trước khi bán ddowcj DOS cho IBM lão ta vẫn thường vọc với Basic. Hòi còn là sinh viên cũng vậy.
3. VBA được ra để hổ trợ sự giới hạn của Access. Sau đó nhập vào Excel và các ứng dụng Office khác. VBA chỉ được MS tiêm thuốc si-te-roi khi bên phát triển cho nó khả năng nói với các API, các OLE khác trong hệ thống.
4. VB.NET chỉ có thuật ngữ giống VBA thôi. Trên căn bản lập trình VB.NET là loại ngôn ngữ Hướng Đối Tượng. VBA hoàn toàn thụt vòi khi đụng vào HĐT.
5. Sau bao nhiêu năm cố gắng bảo vệ ngôn ngữ con đẻ (có bản quyền) là VBA, cuối cùng thì MS cũng không thể chống lại áp lực thị trường. Hiện nay họ đã bắt đầu cho chạy Office Script la ngôn ngữ khá giống JavaScript. (Google Script cũng căn bản là JavaScript).

Trần Văn Bình · 5/5/23

Minh xin lỗi các bạn. thực sực mình chỉ xem video về dictionary đồng thời mình áp dụng vào bài toàn của mình. mình chỉ thiếu và không biết về thuật toán của dictionary về thời gian. nếu mình dùng sumif và chấp nhận mối lúc khi thay đổi dữ liệu của data mình phải cập nhật. nhưng mình thấy mỗi lầm như vậy bản thân mình sẽ có lẽ thiếu sót. vì data sẽ thay đỗi liên tục.
Mình chân thành cảm ơn anh chị đã hỗ trợ, giúp mình rất nhiều.
1. Về thuật toán về dictionary.
2. về ADO.
Ngoài ra thực sự mình mông muốn trên diễn đàn này thực sự đoàn kết, chân thành gắn bó.
Thực sự do mình đặt câu hỏi chưa đúng mình suy nghĩ có bảng kế bên,
Lần nữa chân thành cám ơn anh chị đã giúp các thuật toán giúp mình đạt kết quả đúng nhất.

ptm0412 · 5/5/23

VetMini đã viết:
Thèm STT quá thì thêm dòng code này vào VBA
Ví dụ bắt đầu từ ô Cells(dngBD, cotSTT), và kết thúc ở ô Cells(dngKT, cotSTT)
Range(Cells(dngbd, cotSTT), Cells(dngkt, cotSTT)).Value = _
Evaluate("ROW(" & dngbd & ":" & dngkt & ") - " & (dngbd - 1))

Range(Cells(dngbd, cotSTT), Cells(dngkt, cotSTT)).Value = evaluate("row(R:R)")

là được rồi anh.

VetMini · 6/5/23

ptm0412 đã viết:
Range(Cells(dngbd, cotSTT), Cells(dngkt, cotSTT)).Value = evaluate("row(R:R)")

là được rồi anh.

Tôi nhớ hình như sẽ bị ra trị của dòng đầu tiên. Chưa rảnh để thử.

ptm0412 · 6/5/23

VetMini đã viết:
Tôi nhớ hình như sẽ bị ra trị của dòng đầu tiên. Chưa rảnh để thử.

Dạ, em dùng hoài, mà trước khi viết lên đây còn cẩn thận test lại 1 lần nữa khỏi bị mắng.

huuthang_bd · 6/5/23

ptm0412 đã viết:
Range(Cells(dngbd, cotSTT), Cells(dngkt, cotSTT)).Value = evaluate("row(R:R)")

là được rồi anh.

Viết vầy có lẽ nhanh hơn một tẹo.

Mã:

Range(Cells(dngbd, cotSTT), Cells(dngkt, cotSTT)).Value = Evaluate("row(A1:A" & CStr(dngkt - dngbd + 1) & ")")

Hoàng Nhật Phương · 10/5/23

Xin chào tất cả mọi người,
Vậy trong trường hợp dữ liệu tại cột B có dòng trống xen kẽ như dạng ảnh kèm,
OT muốn đánh STT theo cột B nếu có dòng trống thì sẽ bắt đầu lại từ 1.
Thì với cách sử dụng "Evaluate" công thức sẽ như thế nào ạ?

Thóc Sama · 10/5/23

Hoàng Nhật Phương đã viết:
Xin chào tất cả mọi người,
Vậy trong trường hợp dữ liệu tại cột B có dòng trống xen kẽ như dạng ảnh kèm,
OT muốn đánh STT theo cột B nếu có dòng trống thì sẽ bắt đầu lại từ 1.
Thì với cách sử dụng "Evaluate" công thức sẽ như thế nào ạ?

View attachment 289937

Không biết đúng ý chị không?
Công thức tại A2:

Mã:

=IF(B2="","",IF(ISNUMBER(A1),A1+1,1))

Hoàng Nhật Phương · 10/5/23

THÓC SAMA đã viết:
Không biết đúng ý chị không?
Công thức tại A2:

Mã:

=IF(B2="","",IF(ISNUMBER(A1),A1+1,1))

Cảm ơn bạn @THÓC SAMA rất nhiều.
Nếu dùng công thức hay vòng lặp OT làm được nhưng OT đang hỏi cách sử dụng "Evaluate" như các bài trên theo cách mà bác @VetMini đã chỉ ấy ạ.

ptm0412 · 10/5/23

Hoàng Nhật Phương đã viết:
Cảm ơn bạn @THÓC SAMA rất nhiều.
Nếu dùng công thức hay vòng lặp OT làm được nhưng OT đang hỏi cách sử dụng "Evaluate" như các bài trên theo cách mà bác @VetMini đã chỉ ấy ạ.

Đã nghe lời bác ấy thì phải nghe cho trót: "tại sao một bảng tổng hợp lại có số thứ tự? Số ấy dùng để làm gì? Chả thấy lô gic nào cả."
Tuy nhiên nếu không phải bảng tổng hợp (là 1 báo cáo hoàn chỉnh để in), và quá yêu cái valuate, thì evaluate chính cái công thức excel.

Hoàng Nhật Phương · 10/5/23

ptm0412 đã viết:
Đã nghe lời bác ấy thì phải nghe cho trót: "tại sao một bảng tổng hợp lại có số thứ tự? Số ấy dùng để làm gì? Chả thấy lô gic nào cả."
Tuy nhiên nếu không phải bảng tổng hợp (là 1 báo cáo hoàn chỉnh để in), và quá yêu cái valuate, thì evaluate chính cái công thức excel.

Chào chú Mỹ,
Ở trên con cũng có đồng ý là STT không quan trọng rồi mà.
Nhưng đã lỡ hỏi rồi thì con hỏi luôn tham khảo để mở mang thêm mà chú.

VetMini · 10/5/23

Tôi viết code theo trường phái "việc nào tách riêng việc nấy". Trái với phần lớn dân ở đây theo trường phái "gom lại một chỗ càng tốt".

Vì lý luận rằng cái phần số thứ tự là công việc hoa lá cảnh cho nên tôi tách nó riêng ra. Và ở trường hợp này, hàm Evaluate rất hiệu quả.

Chú thích: hàm Evaluate vốn nằm trong nhóm "nguy hiểm". Vì vậy MS không để cho nó nổi bật lắm, phải mò từ Excel đời từ Macro 4. Khi sử dụng phải thử trước xem có đúng ý.
Hàm này dùng để tính một biểu thức ở dạng chuỗi. Vì nó có thể tính dọc (hoặc ngang) tùy theo bên cần gán cho nên dùng nó để tính các biểu thức đơn giản trên bảng tính thì rất nhanh.
Chú thích 2:
Tính chất của Evaluate là nhận tham số theo dạng chuỗi chi nên ta có thể tạo chuỗi với đầy đủ thông số. Khác với dạng viết tắt của nó là cặp ngoặc vuông ([...]). Tất cả thông số bên trong cặp này thì phải viết in hệt như trên bảng tính, không có biến gì cả.
Ví dụ:
arr = [A1:B5] : copy value ở range từ A1 đến B5
arr = Evaluate("A1:B5"), cũng như trên nhưng tham số là chuỗi cho nên nếu:
a = "A"
b = "B"
thì ta có thể viết
arr = Evaluate(a & "1" & ":" & b & "5")
Lưu ý: đây tôi chỉ dùng ví dụ giản dị. Trên thực tế với ví dụ này thì dùng thẳng thuộc tính Range nhanh hơn nhiều.

ptm0412 · 10/5/23

Hoàng Nhật Phương đã viết:
Chào chú Mỹ,
Ở trên con cũng có đồng ý là STT không quan trọng rồi mà.
Nhưng đã lỡ hỏi rồi thì con hỏi luôn tham khảo để mở mang thêm mà chú.

Yêu thì nhận là yêu chứ gì mà ngại. Với công thức của bạn Thóc_Sama =IF(B2="","",IF(ISNUMBER(A1),A1+1,1)), không dùng evaluate:

Mã:

[A2:A10] = ("=IF(RC[1]="""","""",if(isnumber(R[-1]C),R[-1]C + 1,1))")
[A2:A10]=[A2:A10].value

Quang_Hải · 10/5/23

Hoàng Nhật Phương đã viết:
Xin chào tất cả mọi người,
Vậy trong trường hợp dữ liệu tại cột B có dòng trống xen kẽ như dạng ảnh kèm,
OT muốn đánh STT theo cột B nếu có dòng trống thì sẽ bắt đầu lại từ 1.
Thì với cách sử dụng "Evaluate" công thức sẽ như thế nào ạ?

View attachment 289937

Tại sao không dùng vòng lặp For Next cho đơn giản??? Tại sao cứ phải Evaluate???

Hoàng Nhật Phương · 10/5/23

ptm0412 đã viết:
Yêu thì nhận là yêu chứ gì mà ngại. Với công thức của bạn Thóc_Sama =IF(B2="","",IF(ISNUMBER(A1),A1+1,1)), không dùng evaluate:

Mã:

[A2:A10] = ("=IF(RC[1]="""","""",if(isnumber(R[-1]C),R[-1]C + 1,1))") [A2:A10]=[A2:A10].value

Ngày xưa mới biết code con cũng hay viết kiểu này nhưng thời buổi này con thấy quê rồi chú , đó là con không thích kiểu này nữa thôi

Quang_Hải đã viết:
Tại sao không dùng vòng lặp For Next cho đơn giản??? Tại sao cứ phải Evaluate???

Chào anh Quang Hải
Dạ, vì for next dài dòng:

Mã:

Dim i As Long
Dim lastRow As Long
lastRow = wsResult.Cells(wsResult.Rows.Count, 2).End(xlUp).Row

Dim lastNumber As Long
lastNumber = 0

For i = 2 To lastRow
    If IsEmpty(wsResult.Cells(i, 2)) Then
        wsResult.Cells(i, 1).Value = ""
        lastNumber = 0
    Else
        lastNumber = lastNumber + 1
        wsResult.Cells(i, 21).Value = lastNumber
    End If
Next i

còn Evaluate thì là OT thấy gọn và lạ nên muốn tham khảo xem với dữ liệu xen kẽ dạng này thì xử lý thế nào thôi ạ nếu hay thì với OT là mốt mới

.

Quang_Hải · 10/5/23

Hoàng Nhật Phương đã viết:
Chào anh Quang Hải
Dạ, vì for next dài dòng:

Mã:

Dim i As Long Dim lastRow As Long lastRow = wsResult.Cells(wsResult.Rows.Count, 2).End(xlUp).Row Dim lastNumber As Long lastNumber = 0 For i = 2 To lastRow If IsEmpty(wsResult.Cells(i, 2)) Then wsResult.Cells(i, 1).Value = "" lastNumber = 0 Else lastNumber = lastNumber + 1 wsResult.Cells(i, 21).Value = lastNumber End If Next i

còn Evaluate thì là OT thấy gọn và lạ nên muốn tham khảo xem với dữ liệu xen kẽ dạng này thì xử lý thế nào thôi ạ nếu hay thì với OT là mốt mới .

Theo mình thì:
- Nếu chỉ đơn giản đánh số thứ tự thì dùng công thức cho gọn
- Nếu xử lý gì đó thì chắc sẽ có dùng vòng lặp, lúc đó kết hợp đánh stt luôn.

ptm0412 · 10/5/23

Hoàng Nhật Phương đã viết:
Ngày xưa mới biết code con cũng hay viết kiểu này nhưng thời buổi này con thấy quê rồi chú , đó là con không thích kiểu này nữa thôi

Có mỗi chuyện đánh số thứ tự mà hết yêu đến ngại, hết quê đến tỉnh. Mà chẳng thà quê mùa mà gọn, viết nhanh, còn hơn viết nửa tiếng mà cũng chỉ ăn được 5 ngàn đồng bạc như người khác viết 1 phút.

VetMini · 10/5/23

Quang_Hải đã viết:
Tại sao không dùng vòng lặp For Next cho đơn giản??? Tại sao cứ phải Evaluate???

Tại vì cách ấy là chính các tay chuyên trong nghề VBA đưa ra.
Họ lý luận rằng nó nhanh và gọn hơn vòng lặp nhiều.
Nhanh thì đối vớitôi không quan tronbgj lắm. Nhưng gọn là tôi khoái. Ứng dụng tôi đưa ở chỗ đánh STT là rất gọn, và đáp ứng tôn chỉ "việc nào ra việc ấy" của tôi (không nhét chung với code truy xuất dữ liệu)

TongDe · 11/5/23

Hoàng Nhật Phương đã viết:
...thấy gọn và lạ nên muốn tham khảo xem với dữ liệu xen kẽ dạng này thì xử lý thế nào...

Đi ngang qua thấy vui quá nên góp vui chút nha...

Nhờ anh chị giúp Dictionary thay hàm Sumif (2 người xem)

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

GTVT

File đính kèm

Đăng ký hôm qua

GTVT

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

＿/＿/＿/＿/＿/＿/＿/

GTVT

＿/＿/＿/＿/＿/＿/＿/

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

GTVT

Thành viên gắn bó

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

GTVT

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

GTVT

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

Thành viên tiêu biểu

File đính kèm

GTVT

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

Thành viên mới

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

|||||||||||||

Thành viên mới

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

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

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

Thành viên gắn bó

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

GTVT

Bad Excel Member

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

Bad Excel Member

Chuyên gia GPE

Thành viên gắn bó

File đính kèm

＿/＿/＿/＿/＿/＿/＿/

Thành viên gắn bó

Bad Excel Member

Thành viên gắn bó

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

Bad Excel Member

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

Thành viên gắn bó

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

Bad Excel Member

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

Thành viên tiêu biểu

File đính kèm

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