Lọc và tách dữ liệu theo điều kiện? (2 người xem)

Hoàng Nhật Phương · 6/8/19

Xin chào các Bạn,
Hiện tôi đang có dữ liệu trong Sheet "DuLieu" như sau:

Nhờ các bạn giúp đỡ đoạn code xử lý tách dữ liệu trong cột MaID ngăn cách nhau bởi dấu "/" thành nhiều dòng
và lọc theo cột thời gian và cột ca, lọc duy nhất 4 cột cho ra Sheet"KQ" như sau:

SA_DQ · 6/8/19

Bước 1 là 'lọc' (AdvancedFilter), nếu bạn đồng ý ta tiếp phần 'tách'

Hoàng Nhật Phương · 6/8/19

SA_DQ đã viết:
Bước 1 là 'lọc' (AdvancedFilter), nếu bạn đồng ý ta tiếp phần 'tách'

Con chào Bác SA,
Cách nào cũng được hết Bác ạ, miễn sao tốc độ nhanh nhanh là OK hết Bác ah, vì dữ liệu của con lấy từ SQL ra nên tương đối nhiều.
Nhờ Bác xem giúp ạ.
Chúc Bác ngày mới vui khỏe.

ThangCuAnh · 6/8/19

Khoảng bao nhiêu dòng mà nhiều bạn OverTime ?

Hoàng Nhật Phương · 6/8/19

ThangCuAnh đã viết:
Khoảng bao nhiêu dòng mà nhiều bạn OverTime ?

Chào Bạn,
Cảm ơn Bạn đã quan tâm,thực sự OT hay làm việc với bảng tính nhiều dữ liệu. Đối với dữ liệu thực trong file này nhiều khoảng 6 tháng và tất cả các khách hàng chắc tầm mấy chục ngàn dòng thôi ạ, vì dữ liệu lấy từ SQL vào nên cũng lấy theo từng thời điểm tùy thuộc nhu cầu người muốn lấy ạ.
Rất mong nhận được sự giúp đỡ của AnhCU

Bài đã được tự động gộp: 6/8/19

Xin lỗi mọi người, hỏi bài về khuya nên OT quên mất một điều kiện nữa là lọc duy nhất ạ.
Hiện đã bổ sung và gửi lại file ở bài 1.
Rất mong nhận được sự giúp đỡ của các Bạn.

SA_DQ · 6/8/19

Cho hỏi thêm là lọc duy nhất (theo ca) rồi mới tách (theo cột MaiD) hay tách trước rồi lọc duy nhất?

Nếu lọc duy nhất trước thì chỉ sửa lại tí thôi:

Mã:

Sub LocToanBo()
' Keyboard Shortcut: Ctrl+Shift+L
Dim Rws As Long   ' +    '
Rws = Sheets("DuLieu").[B2].CurrentRegion.Rows.Count    ' +     '
Sheets("DuLieu").Range("A1:F" & Rws).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("G1:I2"), CopyToRange:=Range("A4:E4"), Unique:=True
End Sub

Hoàng Nhật Phương · 6/8/19

SA_DQ đã viết:
Cho hỏi thêm là lọc duy nhất (theo ca) rồi mới tách (theo cột MaiD) hay tách trước rồi lọc duy nhất?

Nếu lọc duy nhất trước thì chỉ sửa lại tí thôi:

Mã:

Sub LocToanBo() ' Keyboard Shortcut: Ctrl+Shift+L Dim Rws As Long ' + ' Rws = Sheets("DuLieu").[B2].CurrentRegion.Rows.Count ' + ' Sheets("DuLieu").Range("A1:F" & Rws).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("G1:I2"), CopyToRange:=Range("A4:E4"), Unique:=True End Sub

Bác ơi, còn trường hợp tách MaID nữa Bác xem giúp con ạ. T_T

SA_DQ · 6/8/19

Lý ra chuyện này phải tự làm mới phải, may mà hôm nay mát trời:

PHP:

Sub TachMaID()
Dim Rws As Long, J As Integer, W As Long, Col As Byte, VTr As Byte
Dim Arr():                                              Const FC As String = "/"
Dim MaID As String

With Sheets("KQ")
    Rws = .[A5].CurrentRegion.Rows.Count:    Arr() = .[A5].Resize(Rws, 4).Value
    ReDim dArr(1 To 9 * Rws, 1 To 4) As String
End With
For J = 1 To UBound(Arr())
    MaID = Arr(J, 1):                                  If MaID = "" Then Exit For
    VTr = InStr(MaID, FC)
    If VTr Then
        MaID = MaID & FC
        Do
            W = W + 1:                                 dArr(W, 1) = Left(MaID, VTr - 1)
            For Col = 2 To 4
                dArr(W, Col) = Arr(J, Col)
            Next Col
            MaID = Mid(MaID, VTr + 1, Len(MaID)):      VTr = InStr(MaID, FC)
            If VTr < 1 Then Exit Do
        Loop
    Else
        W = W + 1:
        For Col = 1 To 4
            dArr(W, Col) = Arr(J, Col)
        Next Col
    End If
Next J
MsgBox W
End Sub

ongke0711 · 6/8/19

Nguyễn Hoàng Oanh Thơ đã viết:
Chào Bạn,
Cảm ơn Bạn đã quan tâm,thực sự OT hay làm việc với bảng tính nhiều dữ liệu. Đối với dữ liệu thực trong file này nhiều khoảng 6 tháng và tất cả các khách hàng chắc tầm mấy chục ngàn dòng thôi ạ, vì dữ liệu lấy từ SQL vào nên cũng lấy theo từng thời điểm tùy thuộc nhu cầu người muốn lấy ạ.
Rất mong nhận được sự giúp đỡ của AnhCU

Bài đã được tự động gộp: 6/8/19

Xin lỗi mọi người, hỏi bài về khuya nên OT quên mất một điều kiện nữa là lọc duy nhất ạ.
Hiện đã bổ sung và gửi lại file ở bài 1.
Rất mong nhận được sự giúp đỡ của các Bạn.

Em có dùng Power Query không? Anh thấy có tính năng tách Chuỗi (phân cách nhau bằng các ký hiệu) trong Cell thành từng dòng rất nhanh đó.

batman1 · 6/8/19

SA_DQ đã viết:
Lý ra chuyện này phải tự làm mới phải, may mà hôm nay mát trời:

Nếu sau khi lọc có kết quả

ID00000528 P0043 SP43 KH 280
ID00000529 P0043 SP43 KH 280
ID00000528/ID00000529 P0043 SP43 KH 280

thì sau khi chạy TachMaID sẽ có 4 kết quả - 2 kết quả bị lặp lại.

SA_DQ · 6/8/19

Biết đâu nà. . . !, phải chờ ý của chủ bài đăng thôi!

batman1 · 6/8/19

SA_DQ đã viết:
Biết đâu nà. . . !, phải chờ ý của chủ bài đăng thôi!

lọc duy nhất 4 cột cho ra Sheet"KQ" như sau

Hoàng Nhật Phương · 6/8/19

ongke0711 đã viết:
Em có dùng Power Query không? Anh thấy có tính năng tách Chuỗi (phân cách nhau bằng các ký hiệu) trong Cell thành từng dòng rất nhanh đó.

Xin chào Anh ongke0711,
Cảm ơn anh đã góp ý, cách nào cũng được anh ạ, miễn là kết quả xuất ra nhanh chóng và chính xác ạ.
Có thể có nhều cách làm và mỗi người một sở thích để tham khảo và lựa chọn anh ạ.
Anh có thể chỉ dẫn thêm được không ạ.

SA_DQ đã viết:

Lý ra chuyện này phải tự làm mới phải, may mà hôm nay mát trời:

PHP:

Sub TachMaID()
Dim Rws As Long, J As Integer, W As Long, Col As Byte, VTr As Byte
Dim Arr():                                              Const FC As String = "/"
Dim MaID As String

With Sheets("KQ")
    Rws = .[A5].CurrentRegion.Rows.Count:    Arr() = .[A5].Resize(Rws, 4).Value
    ReDim dArr(1 To 9 * Rws, 1 To 4) As String
End With
For J = 1 To UBound(Arr())
    MaID = Arr(J, 1):                                  If MaID = "" Then Exit For
    VTr = InStr(MaID, FC)
    If VTr Then
        MaID = MaID & FC
        Do
            W = W + 1:                                 dArr(W, 1) = Left(MaID, VTr - 1)
            For Col = 2 To 4
                dArr(W, Col) = Arr(J, Col)
            Next Col
            MaID = Mid(MaID, VTr + 1, Len(MaID)):      VTr = InStr(MaID, FC)
            If VTr < 1 Then Exit Do
        Loop
    Else
        W = W + 1:
        For Col = 1 To 4
            dArr(W, Col) = Arr(J, Col)
        Next Col
    End If
Next J
MsgBox W
End Sub

Xin chào Bác SA_DQ,
Cảm ơn Bác đã dành thời gian giúp đỡ ạ. Thực sự vấn đề này con chưa thể thực hiện được.
Code này hiện chưa ra kết quả con mong muốn Bác ạ.
Hiện con đang làm thủ công như sau lọc theo ngày và ca cần lấy thông tin sau đó tách từng mã trong cột MaID, mỗi mã một dòng, rồi cuối cùng là lọc duy nhất 4 cột cho ra kết quả như ảnh và file kèm bài 1 ạ. Nếu không phiền mong Bác xử lý thêm cho con ạ.

batman1 đã viết:
lọc duy nhất 4 cột cho ra Sheet"KQ" như sau

Xin chào Bác Siwtom
Cảm ơn Bác đã luôn quan tâm và giúp đỡ.
Đúng như vậy Bác ạ,tiện đây nếu Bác có thời gian và hứng thú mong Bác chỉ dẫn thêm một cách làm khác ạ.

batman1 · 6/8/19

Bạn thử test xem đúng ý không. Tôi làm với lọc duy nhất. Có đúng lọc duy nhất không hay liệt kê hết?

Code đòi hỏi MaID, MaSP, TenSP, MaKH đều có độ dài cố định. Dài bao nhiêu cũng được miễn là luôn như thế. Vd. MaID luôn có 12 ký tự, MaSP - luôn 7, TenSP - luôn 6, MaKH - luôn 8. Hiện thời chúng luôn có 10, 5, 5, 5 ký tự. Nếu khác thì sửa trong code.

Dấu phân cách các MaID có thể bất kỳ, thậm chí chỗ này là "/", chỗ khác là "," - dấu phẩy, chỗ khác nữa là ";" - dấu chấm phẩy, chỗ nọ lại là "*". Yêu cầu chỉ là không được có dấu cách trong chuỗi. Vd. ID00001729<dấu cách>/ID00001730 là không hợp lệ.

Tôi viết cho tập tin đính kèm của bạn. Vd. cho 3 ca thì bạn dùng "All".

Tôi viết xong chỉ test 1 lần. Thấy ra kết quả nhưng ngại dò xem kết quả đúng hay không. Vậy bạn tự kiểm tra. Thuật toán thì rõ ràng rồi. Chỉ sợ nhầm lẫn khi viết code thôi.

Nếu bạn có tầm trăm, vài trăm ngàn dòng dữ liệu thì báo cáo tốc độ nhé. Tôi hơi tò mò.

Mã:

Sub FilterAndUnique()
Dim lastRow As Long, r As Long, ngay As Long, pos As Long, size As Long, currRow As Long
Dim MaID As String, s As String, ca As String, text As String, data(), dic As Object
    With ThisWorkbook.Worksheets("DuLieu")
        lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
        If lastRow < 2 Then Exit Sub
        data = .Range("A2:F" & lastRow).Value
    End With
    text = String(25, "a")
    With ThisWorkbook.Worksheets("KQ")
        ngay = .Range("C1").Value
        ca = LCase(.Range("C2").Value)
        .Range("A5:D10000").ClearContents
    End With
    
    Set dic = CreateObject("Scripting.Dictionary")
    currRow = 0
    For r = 1 To UBound(data)
        If (CDbl(data(r, 4)) >= ngay) And (CDbl(data(r, 4)) <= ngay + 1) Then
            If ca = "all" Or ca = LCase(data(r, 5)) Then
                s = data(r, 1)
                pos = 1
                size = Len(s)
                Mid(text, 11, 5) = data(r, 2)
                Mid(text, 16, 5) = data(r, 3)
                Mid(text, 21, 5) = data(r, 6)
                Do While pos < size
                    MaID = Mid(s, pos, 10)
                    Mid(text, 1, 10) = MaID
                    pos = pos + 11
                    If Not dic.exists(text) Then
                        currRow = currRow + 1
                        dic.Add text, ""
                        data(currRow, 1) = MaID
                        data(currRow, 2) = data(r, 2)
                        data(currRow, 3) = data(r, 3)
                        data(currRow, 4) = data(r, 6)
                    End If
                Loop
            End If
        End If
    Next r
    ThisWorkbook.Worksheets("KQ").Range("A5").Resize(currRow, 4).Value = data
    Set dic = Nothing
End Sub

Hoàng Nhật Phương · 6/8/19

batman1 đã viết:
Bạn thử test xem đúng ý không. Tôi làm với lọc duy nhất. Có đúng lọc duy nhất không hay liệt kê hết?

Code đòi hỏi MaID, MaSP, TenSP, MaKH đều có độ dài cố định. Dài bao nhiêu cũng được miễn là luôn như thế. Vd. MaID luôn có 12 ký tự, MaSP - luôn 7, TenSP - luôn 6, MaKH - luôn 8. Hiện thời chúng luôn có 10, 5, 5, 5 ký tự. Nếu khác thì sửa trong code.

Dấu phân cách các MaID có thể bất kỳ, thậm chí chỗ này là "/", chỗ khác là "," - dấu phẩy, chỗ khác nữa là ";" - dấu chấm phẩy, chỗ nọ lại là "*". Yêu cầu chỉ là không được có dấu cách trong chuỗi. Vd. ID00001729<dấu cách>/ID00001730 là không hợp lệ.

Tôi viết cho tập tin đính kèm của bạn. Vd. cho 3 ca thì bạn dùng "All".

Tôi viết xong chỉ test 1 lần. Thấy ra kết quả nhưng ngại dò xem kết quả đúng hay không. Vậy bạn tự kiểm tra. Thuật toán thì rõ ràng rồi. Chỉ sợ nhầm lẫn khi viết code thôi.

Nếu bạn có tầm trăm, vài trăm ngàn dòng dữ liệu thì báo cáo tốc độ nhé. Tôi hơi tò mò.

Mã:

Sub FilterAndUnique() Dim lastRow As Long, r As Long, ngay As Long, pos As Long, size As Long, currRow As Long Dim MaID As String, s As String, ca As String, text As String, data(), dic As Object With ThisWorkbook.Worksheets("DuLieu") lastRow = .Cells(Rows.Count, "A").End(xlUp).Row If lastRow < 2 Then Exit Sub data = .Range("A2:F" & lastRow).Value End With text = String(25, "a") With ThisWorkbook.Worksheets("KQ") ngay = .Range("C1").Value ca = LCase(.Range("C2").Value) .Range("A5:D10000").ClearContents End With Set dic = CreateObject("Scripting.Dictionary") currRow = 0 For r = 1 To UBound(data) If (CDbl(data(r, 4)) >= ngay) And (CDbl(data(r, 4)) <= ngay + 1) Then If ca = "all" Or ca = LCase(data(r, 5)) Then s = data(r, 1) pos = 1 size = Len(s) Mid(text, 11, 5) = data(r, 2) Mid(text, 16, 5) = data(r, 3) Mid(text, 21, 5) = data(r, 6) Do While pos < size MaID = Mid(s, pos, 10) Mid(text, 1, 10) = MaID pos = pos + 11 If Not dic.exists(text) Then currRow = currRow + 1 dic.Add text, "" data(currRow, 1) = MaID data(currRow, 2) = data(r, 2) data(currRow, 3) = data(r, 3) data(currRow, 4) = data(r, 6) End If Loop End If End If Next r ThisWorkbook.Worksheets("KQ").Range("A5").Resize(currRow, 4).Value = data Set dic = Nothing End Sub

Con cảm ơn Bác Siwtom nhiều ạ,
Code nhanh quá và kết quả đúng ý con rồi, tuy nhiên trường hợp ở đây là số lý tự (độ dài các ký tự ở trong cùng cột và ở giữa các cột trong thực tế sẽ không giống nhau ạ),sản phẩm này mã dài tên dài, sản phẩm khác tên dài mã ngắn v.v... Nếu phải chỉnh lại trong code thì chỉnh lại như thế nào để với độ dài bất kỳ của mã sản phẩm hoặc tên sản phẩm napf cũng có thể xử lý được ạ Bác
Con gửi file dữ liệu giả lập trên 200k dòng ạ. Tốc độ thực sự rất nhanh ạ.

Tach va Loc

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Chúc Bác nhiều sức khỏe.

batman1 · 7/8/19

Nguyễn Hoàng Oanh Thơ đã viết:
tuy nhiên trường hợp ở đây là số lý tự (độ dài các ký tự ở trong cùng cột và ở giữa các cột trong thực tế sẽ không giống nhau ạ),sản phẩm này mã dài tên dài, sản phẩm khác tên dài mã ngắn v.v...

Thực ra code bài trước của tôi có lỗi mà bạn không phát hiện ra.
Do tôi không nghĩ kỹ nên dùng 1 mảng data. Do code ghi kết quả vào mảng nguồn data nên có thể (không luôn luôn) ở vòng lặp nào đó dữ liệu đọc ra từ mảng nguồn data sẽ sai và dẫn tới lỗi.

Bây giờ tôi dùng thêm mảng kết quả.

Điều kiện: MaID, MaSP, TenSP có ít nhất là 1 ký tự, nhiều nhất là 15 ký tự, và MaKH có nhiều nhất là 10 ký tự. Tôi nghĩ là quá đủ. Nếu chưa đủ thì bạn hãy cho biết mỗi trường có thể có nhiều nhất là bao nhiêu ký tự. Cứ cho dư ra cũng được.

Hãy test kỹ.

Mã:

Sub FilterAndUnique()
Dim lastRow As Long, k As Long, r As Long, ngay As Long, pos As Long, size As Long, currRow As Long
Dim MaID As String, s As String, ca As String, text As String, data(), result(), dic As Object
    With ThisWorkbook.Worksheets("DL")
        lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
        If lastRow < 2 Then Exit Sub
        data = .Range("A2:F" & lastRow).Value
    End With
    ReDim result(1 To 10000, 1 To 4)
    With ThisWorkbook.Worksheets("KQ")
        ngay = .Range("C1").Value
        ca = LCase(.Range("C2").Value)
        .Range("A5:D10000").ClearContents
    End With

    Set dic = CreateObject("Scripting.Dictionary")
    currRow = 0
    For r = 1 To UBound(data)
        If (CDbl(data(r, 4)) >= ngay) And (CDbl(data(r, 4)) <= ngay + 1) Then
            If ca = "all" Or ca = LCase(data(r, 5)) Then
                s = data(r, 1) & "/"
                pos = 1
                size = Len(s)
                text = String(58, Chr(0))
                
                Mid(text, 17, Len(data(r, 2))) = data(r, 2)
                Mid(text, 33, Len(data(r, 3))) = data(r, 3)
                Mid(text, 49, Len(data(r, 6))) = data(r, 6)
                Do While pos < size
                    k = InStr(pos, s, "/")
                    MaID = Mid(s, pos, k - pos)
                    Mid(text, 1, Len(MaID)) = MaID
                    pos = k + 1
                    If Not dic.exists(text) Then
                        currRow = currRow + 1
                        dic.Add text, ""
                        result(currRow, 1) = MaID
                        result(currRow, 2) = data(r, 2)
                        result(currRow, 3) = data(r, 3)
                        result(currRow, 4) = data(r, 6)
                    End If
                Loop
            End If
        End If
    Next r
    If currRow Then ThisWorkbook.Worksheets("KQ").Range("A5").Resize(currRow, 4).Value = result
    Set dic = Nothing
End Sub

Hoàng Nhật Phương · 7/8/19

batman1 đã viết:
Thực ra code bài trước của tôi có lỗi mà bạn không phát hiện ra.
Do tôi không nghĩ kỹ nên dùng 1 mảng data. Do code ghi kết quả vào mảng nguồn data nên có thể (không luôn luôn) ở vòng lặp nào đó dữ liệu đọc ra từ mảng nguồn data sẽ sai và dẫn tới lỗi.

Bây giờ tôi dùng thêm mảng kết quả.

Điều kiện: MaID, MaSP, TenSP có ít nhất là 1 ký tự, nhiều nhất là 15 ký tự, và MaKH có nhiều nhất là 10 ký tự. Tôi nghĩ là quá đủ. Nếu chưa đủ thì bạn hãy cho biết mỗi trường có thể có nhiều nhất là bao nhiêu ký tự. Cứ cho dư ra cũng được.

Hãy test kỹ.

Mã:

Sub FilterAndUnique() Dim lastRow As Long, k As Long, r As Long, ngay As Long, pos As Long, size As Long, currRow As Long Dim MaID As String, s As String, ca As String, text As String, data(), result(), dic As Object With ThisWorkbook.Worksheets("DL") lastRow = .Cells(Rows.Count, "A").End(xlUp).Row If lastRow < 2 Then Exit Sub data = .Range("A2:F" & lastRow).Value End With ReDim result(1 To 10000, 1 To 4) With ThisWorkbook.Worksheets("KQ") ngay = .Range("C1").Value ca = LCase(.Range("C2").Value) .Range("A5:D10000").ClearContents End With Set dic = CreateObject("Scripting.Dictionary") currRow = 0 For r = 1 To UBound(data) If (CDbl(data(r, 4)) >= ngay) And (CDbl(data(r, 4)) <= ngay + 1) Then If ca = "all" Or ca = LCase(data(r, 5)) Then s = data(r, 1) & "/" pos = 1 size = Len(s) text = String(58, Chr(0)) Mid(text, 17, Len(data(r, 2))) = data(r, 2) Mid(text, 33, Len(data(r, 3))) = data(r, 3) Mid(text, 49, Len(data(r, 6))) = data(r, 6) Do While pos < size k = InStr(pos, s, "/") MaID = Mid(s, pos, k - pos) Mid(text, 1, Len(MaID)) = MaID pos = k + 1 If Not dic.exists(text) Then currRow = currRow + 1 dic.Add text, "" result(currRow, 1) = MaID result(currRow, 2) = data(r, 2) result(currRow, 3) = data(r, 3) result(currRow, 4) = data(r, 6) End If Loop End If End If Next r If currRow Then ThisWorkbook.Worksheets("KQ").Range("A5").Resize(currRow, 4).Value = result Set dic = Nothing End Sub

Xin chào Bác Siwtom
Cảm ơn Bác đã giúp đỡ con ạ, code chạy nhanh và kết quả OK so với dữ liệu con gửi lên ạ.Hiện đối với mã sản phẩm thì quy định tối thiểu là 18 ký tự và tối đa là 25.Còn tên sản phẩm thì không có quy định có lúc thì dưới 10 có tên thì dài nhưng không quá 35 ký tự nếu số ký tự bị vượt quá trong code quy định thì con cần phải sửa con số nào trong code vậy Bác, nhờ Bác chú thích giúp con các con số 58,17,33,49 trong các dòng code sau với ạ.

Mã:

text = String(58, Chr(0))
Mid(text, 17, Len(data(r, 2))) = data(r, 2)
Mid(text, 33, Len(data(r, 3))) = data(r, 3)
Mid(text, 49, Len(data(r, 6))) = data(r, 6)

Chúc Bác nhiều sức khỏe.

ongke0711 · 7/8/19

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào Bác Siwtom
Cảm ơn Bác đã giúp đỡ con ạ, code chạy nhanh và kết quả OK so với dữ liệu con gửi lên ạ.Hiện đối với mã sản phẩm thì quy định tối thiểu là 18 ký tự và tối đa là 25.Còn tên sản phẩm thì không có quy định có lúc thì dưới 10 có tên thì dài nhưng không quá 35 ký tự nếu số ký tự bị vượt quá trong code quy định thì con cần phải sửa con số nào trong code vậy Bác, nhờ Bác chú thích giúp con các con số 58,17,33,49 trong các dòng code sau với ạ.

Em xem lại qui định tạo mã các trường làm khoá. Đúng ra là phải cố định số ký tự đó em, chỉ có trường tên, diễn giải là không cố định thôi.

@batman1: Em nghĩ không cần dùng tới trường TenSP đâu anh, MaSP là đủ đại diện rồi.

batman1 · 7/8/19

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào Bác Siwtom
Cảm ơn Bác đã giúp đỡ con ạ, code chạy nhanh và kết quả OK so với dữ liệu con gửi lên ạ.Hiện đối với mã sản phẩm thì quy định tối thiểu là 18 ký tự và tối đa là 25.Còn tên sản phẩm thì không có quy định có lúc thì dưới 10 có tên thì dài nhưng không quá 35 ký tự nếu số ký tự bị vượt quá trong code quy định thì con cần phải sửa con số nào trong code vậy Bác, nhờ Bác chú thích giúp con các con số 58,17,33,49 trong các dòng code sau với ạ.

Mã:

text = String(58, Chr(0)) Mid(text, 17, Len(data(r, 2))) = data(r, 2) Mid(text, 33, Len(data(r, 3))) = data(r, 3) Mid(text, 49, Len(data(r, 6))) = data(r, 6)

Chúc Bác nhiều sức khỏe.

Mã:

text = String("độ lớn", Chr(0))

với "độ lớn" = max(MaID) + max(MaSP) + max(TenSP) + max(MaKH) + 3 (3 ký tự 0 phân cách 4 thành phần)

Với max(MaID) = max(MaSP) = max(TenSP) = 15 và max(MaKH) = 10 thì "độ lớn " = 58

text có dạng: = <MaID><một loạt ký tự 0 thứ nhất><ký tự 0 phân cách><MaSP><một loạt ký tự 0 thứ hai><ký tự 0 phân cách><TenSP><một loạt ký tự 0 thứ ba><ký tự 0 phân cách><MaKH><một loạt ký tự 0 thứ tư>

Trong đó:

<MaID><một loạt ký tự 0 thứ nhất> = max(MaID)
<MaSP><một loạt ký tự 0 thứ hai> = max(MaSP)
<TenSP><một loạt ký tự 0 thứ ba> = max(TenSP)
<MaKH><một loạt ký tự 0 thứ tư> = max(MaKH)

Mã:

Mid(text, max(MaID) + 2, Len(data(r, 2))) = data(r, 2)
Mid(text, max(MaID) + max(MaSP) + 3, Len(data(r, 3))) = data(r, 3)
Mid(text, max(MaID) + max(MaSP) + max(TenSP) + 4, Len(data(r, 6))) = data(r, 6)

Hoàng Nhật Phương · 7/8/19

ongke0711 đã viết:
Em xem lại qui định tạo mã các trường làm khoá. Đúng ra là phải cố định số ký tự đó em, chỉ có trường tên, diễn giải là không cố định thôi.

@batman1: Em nghĩ không cần dùng tới trường TenSP đâu anh, MaSP là đủ đại diện rồi.

Xin chào anh ongke0711,
Cảm ơn Anh đã quan tâm ạ.
Đúng là xét trong csdl thì mã phần mềm cần phải qui định chuẩn 10 là 10 và 18 là 18 không có chuyện 10~18 ạ. Ocn tên sản phẩm là phần diễn giải (cột phụ đi kèm) như anh đã nêu đó ạ.
Và cái mã OT gửi lên là theo quy định mã phần mềm, còn theo mã khách hàng thì giao động trong khoảng 18~25 ký tự anh ạ, từ ký tự 18 trở đi họ có các ký tự khác để phân biệt, do đó OT muôn hỏi thêm nếu trong trường hợp lọc theo mã khách hàng hoặc tên sản phẩm có số ký tự giao động lớn hơn code quy định thì sẽ xử lý chỗ nào ạ. Về cơ bản code của Bác Siwtom đã xử lý được vấn đề của OT rồi ạ, nhưng cần chuẩn hóa lại dữ liệu về độ dài ký tự mã và tên sản phẩm.

Bài đã được tự động gộp: 7/8/19

batman1 đã viết:
Mã:

text = String("độ lớn", Chr(0))

với "độ lớn" = max(MaID) + max(MaSP) + max(TenSP) + max(MaKH) + 3 (3 ký tự 0 phân cách 4 thành phần)

Với max(MaID) = max(MaSP) = max(TenSP) = 15 và max(MaKH) = 10 thì "độ lớn " = 58

text có dạng: = <MaID><một loạt ký tự 0 thứ nhất><ký tự 0 phân cách><MaSP><một loạt ký tự 0 thứ hai><ký tự 0 phân cách><TenSP><một loạt ký tự 0 thứ ba><ký tự 0 phân cách><MaKH><một loạt ký tự 0 thứ tư>

Trong đó:

<MaID><một loạt ký tự 0 thứ nhất> = max(MaID)
<MaSP><một loạt ký tự 0 thứ hai> = max(MaSP)
<TenSP><một loạt ký tự 0 thứ ba> = max(TenSP)
<MaKH><một loạt ký tự 0 thứ tư> = max(MaKH)

Mã:

Mid(text, max(MaID) + 2, Len(data(r, 2))) = data(r, 2) Mid(text, max(MaID) + max(MaSP) + 3, Len(data(r, 3))) = data(r, 3) Mid(text, max(MaID) + max(MaSP) + max(TenSP) + 4, Len(data(r, 6))) = data(r, 6)

Cảm ơn Bác Siwtom nhiều ạ,
Đến đây con có thể tự xử lý theo ý mình được rồi ạ.

batman1 · 7/8/19

ongke0711 đã viết:
@batman1: Em nghĩ không cần dùng tới trường TenSP đâu anh, MaSP là đủ đại diện rồi.

Tôi không làm những việc đó nên không rõ thế nào. Vậy khi người ta nói là lọc duy nhất theo 4 cột thì tôi làm theo 4 cột. Nếu không cần TenSP thì sao người ta không nói lọc theo 3 cột mà lại nói theo 4 cột? Mình không làm chuyên môn của người ta thì cứ theo yêu cầu mà làm. Có góp ý thì góp ý cho người ta chứ không phải cho tôi.

batman1 · 7/8/19

Nguyễn Hoàng Oanh Thơ đã viết:
Cảm ơn Bác Siwtom nhiều ạ,
Đến đây con có thể tự xử lý theo ý mình được rồi ạ.

Lọc duy nhất 4, 3, 2 hay 1 cột thì nguyên tắc như nhau thôi.

Vd. lọc duy nhất theo MaID, MaSP, MaKH.

text có dạng <khúc dành cho MaID><ký tự 0><khúc dành cho MaSP><ký tự 0><khúc dành cho MaKH>

Trong đó
<khúc dành cho MaID> dùng để ghi MaID và có độ lớn = max(MaID)
<khúc dành cho MaSP> dùng để ghi MaSP và có độ lớn = max(MaSP)
<khúc dành cho MaKH> dùng để ghi MaKH và có độ lớn = max(MaKH)

Mã:

text = String("độ lớn", Chr(0))

với "độ lớn" = max(MaID) + max(MaSP) + max(MaKH) + 2 (2 ký tự 0 phân cách 3 khúc)

MaID được copy vào text bắt đầu từ 1

MaSP được copy vào text bắt đầu từ max(MaID) + 2 (trước khúc 2 có khúc 1 với độ lớn = max(MaID) và 1 ký tự 0. Vậy khúc 2 bắt đầu từ max(MaID) + 2)

MaKH được copy vào text bắt đầu từ max(MaID) + max(MaSP) + 3 (trước khúc 3 có khúc 1 với độ lớn = max(MaID), khúc 2 với độ lớn = max(MaSP), và 2 ký tự 0. Vậy khúc 3 bắt đầu từ max(MaID) + max(MaSP) + 3)

Cứ nhìn vào dạng của text rồi đếm như đứa trẻ thôi.

ThangCuAnh · 8/8/19

Để minh họa cho 2 topic của tui về Undocument VBA và Optimize VBA, tui xin mạn phép lấy file của bạn OT để minh họa kết quả áp dụng.
Dù thấy cái tên OT là muốn chạy làng, tránh ra xa rồi

Nhưng file bạn OverTime có data dài, bự bự, nên tui khoái.

File tui up lên là file data của bạn OT, có code của bác batman1 và tui thêm 1 code của tui, chỉ dùng đôla Mẽo $ thần thánh và vài tips Optimize nho nhỏ, xíu xíu. Áp dụng vào code của bác batman1 100%, không hề thay đổi gì cả, kết quả như nhau 100%.

Và, kết quả, xin chia "BUỒM", code đôla Mẽo của bác Trump nhanh gấp đôi code của bác batman1. Tui chọn máy trong VP chậm nhất để test, code bác batman1 chạy mất khoang 2500 ms, code bác Trump đôla chỉ chạy có 1200 ms à

Đố các bạn tìm ra chổ mấu chốt làm đẩy nhanh tốc độ lên vậy, dùng nhiều tips, có tips chỉ giảm vài %, có 2 tip quan trong kéo xuống tới 50%.

Bạn OT cứ tiếp tục dùng code của bác batman1, nhanh hơn vậy không quan trong. Đèn đỏ vài giây còn không chờ được mà

Optimize thì biết cho vui thôi.

File bạn OT bự quá, up lên diễn đàn không cho, ai chỉ tui chổ nào úp với

ongke0711 · 8/8/19

ThangCuAnh đã viết:
File bạn OT bự quá, up lên diễn đàn không cho, ai chỉ tui chổ nào úp với

Tach va Loc.xlsm

Microsoft Excel Workbook

1drv.ms

Dùng Mediafire.com đi bác.
Cái link trên không download được nhé.

ThangCuAnh · 8/8/19

Share tui account đi bác

ongke0711 · 8/8/19

ThangCuAnh đã viết:
Share tui account đi bác

Không cần đăng ký, cứ upload lên. Tồn tại được 14 ngày. Sau đó tôi up lại cho bác.

Hoàng Nhật Phương · 8/8/19

ThangCuAnh đã viết:
Share tui account đi bác

Xin chào AnhCU,
Cảm ơn bạn đã quan & giúp đỡ.
Nếu không phiền bạn có thể gửi cho OT qua email: nguyenhoangoanhtho0305@gmail.com
Sau đó OT sẽ Up lên GPE ạ.

ThangCuAnh · 8/8/19

Phiền ơi nà phiền, có chút xíu đó mà không xong

Các bạn làm ơn download lại nhé. Sorry nhiều.

Tach va Loc

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

VetMini · 8/8/19

Ai là người chủ xướng việc tách riêng mấy bài "không liên quan chủ đề" này ra thành thớt khác vậy?
Tôi xin gửi lời với chủ thớt "Lọc và tách dữ liệu theo điều kiện?"
Nếu do bạn chủ xướng việc này thì cứ nói thẳng ra, kể từ rày tôi không tham gia bất cứ thớt nào của bạn nữa.

Hoàng Nhật Phương · 8/8/19

VetMini đã viết:
Ai là người chủ xướng việc tách riêng mấy bài "không liên quan chủ đề" này ra thành thớt khác vậy?
Tôi xin gửi lời với chủ thớt "Lọc và tách dữ liệu theo điều kiện?"
Nếu do bạn chủ xướng việc này thì cứ nói thẳng ra, kể từ rày tôi không tham gia bất cứ thớt nào của bạn nữa.

Con chào Bác VetMini,
Dạ, đúng là do con Bác ạ.
Con thấy không khí đang dần nóng lên mà trước đó con cũng có thông tin là vấn đề khó khăn của con đã đã được giải quyết. VÌ vậy mà con đã thông tin nhờ sự hỗ trợ của BQT.
Có thể do con quá lo xa vì thiếu kinh nghiệm... Tất cả mọi vấn đề xuất phát từ con, kính mong Bác và tất cả mọi người bỏ qua ạ..
Con cảm ơn Bác.
Oanh Thơ

Bài đã được tự động gộp: 8/8/19

Con cảm ơn Bác VetMini đã góp ý về việc tiếp xúc với CSDL ạ. Thực sự khi tiếp xúc với CSDL con cảm thấy như bước sang một thế giới mới chuẩn chỉnh và ngăn lắp hơn.
Mong từ nay về sau được Bác chỉ dẫn cho con hiểu hơn.
Con chúc Bác nhiều sức khỏe.
Oanh Thơ

ThangCuAnh · 8/8/19

He he, ngọt quá à. Kết cô OT này rồi đó

Cho xin số zalo nhen. Hì hì, nói thật, người yêu cũ hồi xưa thật là xưa của mình trùng tên 100% với OT. Nên giờ mà thấy OT là loạn nhịp, lộn tùng phèo.
Đăng lộn chỗ rồi, OT move qua kia giúp nhé

VetMini · 8/8/19

Nguyễn Hoàng Oanh Thơ đã viết:
Con chào Bác VetMini,
Dạ, đúng là do con Bác ạ.
Con thấy không khí đang dần nóng lên mà trước đó con cũng có thông tin là vấn đề khó khăn của con đã đã được giải quyết. VÌ vậy mà con đã thông tin nhờ sự hỗ trợ của BQT.
Có thể do con quá lo xa vì thiếu kinh nghiệm... Tất cả mọi vấn đề xuất phát từ con, kính mong Bác và tất cả mọi người bỏ qua ạ..
Con cảm ơn Bác.
Oanh Thơ
...

Tôi yêu cầu bạn nhờ BQT xoá luôn cái thớt kia đi.
Những lời tôi nói có ngữ cảnh của nó. Đem sang chỗ khác là làm lạc ngữ cảnh.
Tôi là người văn cho nên lời lẽ đối với tôi rất quan trọng. Trâu ngựa mang đi chuồng nào thì cũng là trâu ngựa nhưng lời mà sửa ngữ cảnh thì chúng là tai hoạ cho người nói.

batman1 · 9/8/19

VetMini đã viết:
Tôi yêu cầu bạn nhờ BQT xoá luôn cái thớt kia đi.
Những lời tôi nói có ngữ cảnh của nó. Đem sang chỗ khác là làm lạc ngữ cảnh.
Tôi là người văn cho nên lời lẽ đối với tôi rất quan trọng. Trâu ngựa mang đi chuồng nào thì cũng là trâu ngựa nhưng lời mà sửa ngữ cảnh thì chúng là tai hoạ cho người nói.

Tôi cũng không hiểu chủ thớt.

Người ta lấy bài của tôi ra để biểu diễn mấy hàm đô la. Thực ra người ta có thể tự tạo code của mình để biểu diễn. Nhưng ngưười ta chọn bài của tôi để biểu diễn. Vậy tôi phải có quyền nói lên quan điểm của mình. Rằng nhanh hơn thì đúng, không ai phủ định điều này. Chỉ có điều tôi cho sự nhanh hơn ấy nó ở mức không đáng quan tâm trong Excel văn phòng. Thế rồi người ta lại vu cho tôi là coi thường tốc độ. Tôi cũng từng nói là tốc độ cũng quan trọng nhưng tùy ở mức độ nào. Có những cải thiện nó ở mức quá nhỏ so với tổng thể và không đáng quan tâm. Người ta nói tôi coi thường tốc độ vậy thì viết CPU, compiler, hệ điều hành Windows ... Trời ạ, chủ đề về Excel và người ta thêm vào mấy hàm đô la mà lại nói lái sang CPU, compiler, hđh Windows? Về những cái đó thì thiếu gì diễn đàn khác để biểu diễn. Chỉ có điều chắc chắn ở những diễn đàn về viết compiler, hđh Windows người ta không sử dụng VBA và mấy hàm đô la kia.

Nếu những quan điểm của tôi bị tách rời khỏi ngữ cảnh thì rất buồn cười, khó hiểu, thậm chí bị hiểu sai.

Nếu chủ thớt đã xong việc và không muốn tranh luận thì đừng vào nữa. Hoặc vào nhưng im lặng, chỉ trả lời khi bị "gọi lên bảng". Thế thôi. Tại sao phải yêu cầu tách các bài viết?
---------
Riêng về chủ đề này tôi có lời khuyên cho chủ thớt.
Nếu công việc của bạn chỉ thực hiện với vài nghìn, thậm chí vài chục nghìn dòng dữ liệu thì không đáng quan tâm mấy hàm $ vì chúng chỉ cải thiện ở mức nhỏ hơn cái chớp mắt, bạn không cảm nhận được thay đổi đâu. Chỉ có "đồng hồ" tinh vi mới phát hiện ra. Còn nếu công việc luôn thao tác với hàng trăm nghìn, hàng triệu dòng dữ liệu, và số lần thao tác đó là nhiều trong mỗi ngày làm việc, thì nên làm theo lời khuyên của bác VetMini chứ không phải cải thiện bằng mấy hàm $. Còn nếu có tham vọng viết compiler, hđh gì đó thì nên vào những diễn đàn thích hợp vì khi viết chúng người ta không dùng VBA và mấy hàm $ kia đâu.

befaint · 9/8/19

batman1 đã viết:
If (CDbl(data(r, 4)) >= ngay) And (CDbl(data(r, 4)) <= ngay + 1) Then

Em xem bài #1 cần lọc theo 1 ngày chỉ định, chỗ này (CDbl(data(r, 4)) <= ngay + 1) sẽ lấy dữ liệu của ngày kế tiếp tại thời điểm 00:00:00 (Thời điểm này là hoàn toàn xảy ra thực tế).

befaint · 9/8/19

ThangCuAnh đã viết:
Các bạn làm ơn download lại nhé

Bài của anh có chỗ chưa đúng ấy.

Gợi ý cho anh.

PHP:

Sub vidu()
    Dim a As Long
    a = 1.5
    MsgBox a
End Sub

.
---------------
Giờ đăng 2 bài liên tiếp phải ngồi chờ 20 phút không lại bị gộp bài. Khổ nhục kế.

(
Em tự nói với em, không nói với anh đâu nhé, hiểu lầm thì tội em.

Hoàng Nhật Phương · 9/8/19

batman1 đã viết:
Tôi cũng không hiểu chủ thớt.

Người ta lấy bài của tôi ra để biểu diễn mấy hàm đô la. Thực ra người ta có thể tự tạo code của mình để biểu diễn. Nhưng ngưười ta chọn bài của tôi để biểu diễn. Vậy tôi phải có quyền nói lên quan điểm của mình. Rằng nhanh hơn thì đúng, không ai phủ định điều này. Chỉ có điều tôi cho sự nhanh hơn ấy nó ở mức không đáng quan tâm trong Excel văn phòng. Thế rồi người ta lại vu cho tôi là coi thường tốc độ. Tôi cũng từng nói là tốc độ cũng quan trọng nhưng tùy ở mức độ nào. Có những cải thiện nó ở mức quá nhỏ so với tổng thể và không đáng quan tâm. Người ta nói tôi coi thường tốc độ vậy thì viết CPU, compiler, hệ điều hành Windows ... Trời ạ, chủ đề về Excel và người ta thêm vào mấy hàm đô la mà lại nói lái sang CPU, compiler, hđh Windows? Về những cái đó thì thiếu gì diễn đàn khác để biểu diễn. Chỉ có điều chắc chắn ở những diễn đàn về viết compiler, hđh Windows người ta không sử dụng VBA và mấy hàm đô la kia.

Nếu những quan điểm của tôi bị tách rời khỏi ngữ cảnh thì rất buồn cười, khó hiểu, thậm chí bị hiểu sai.

Nếu chủ thớt đã xong việc và không muốn tranh luận thì đừng vào nữa. Hoặc vào nhưng im lặng, chỉ trả lời khi bị "gọi lên bảng". Thế thôi. Tại sao phải yêu cầu tách các bài viết?
---------
Riêng về chủ đề này tôi có lời khuyên cho chủ thớt.
Nếu công việc của bạn chỉ thực hiện với vài nghìn, thậm chí vài chục nghìn dòng dữ liệu thì không đáng quan tâm mấy hàm $ vì chúng chỉ cải thiện ở mức nhỏ hơn cái chớp mắt, bạn không cảm nhận được thay đổi đâu. Chỉ có "đồng hồ" tinh vi mới phát hiện ra. Còn nếu công việc luôn thao tác với hàng trăm nghìn, hàng triệu dòng dữ liệu, và số lần thao tác đó là nhiều trong mỗi ngày làm việc, thì nên làm theo lời khuyên của bác VetMini chứ không phải cải thiện bằng mấy hàm $. Còn nếu có tham vọng viết compiler, hđh gì đó thì nên vào những diễn đàn thích hợp vì khi viết chúng người ta không dùng VBA và mấy hàm $ kia đâu.

Xin chào Bác Siwtom,
Vâng, con biết thế nào Bác cũng sẽ tham gia nên con cũng đã chuẩn bị tinh thần để được nghe mắng thêm một lần nữa ạ.

Thực sự do con quá lo xa vì thiếu kinh nghiệm.. nên con đã nhờ BQT can thiệp xóa các bài viết nhưng BQT xét thấy mức độ chưa có gì nên mới tách ra như vậy..
Dù sao tất cả mọi vấn đề xuất phát từ con, kính mong Bác và tất cả mọi người bỏ qua ạ.

Về vấn đề tốc độ nhanh chậm và giây con cũng đâu có để ý, đối với con code nào dễ dùng dễ hiểu thì con sẽ dùng thôi ạ chứ đâu có tính toán đến đơn vị ms đâu ạ.

Cảm ơn Bác đã luôn quan tâm và giúp đỡ ạ.
Chúc Bác nhiều sức khỏe.
Oanh Thơ

batman1 · 9/8/19

befaint đã viết:
Em xem bài #1 cần lọc theo 1 ngày chỉ định, chỗ này (CDbl(data(r, 4)) <= ngay + 1) sẽ lấy dữ liệu của ngày kế tiếp tại thời điểm 00:00:00 (Thời điểm này là hoàn toàn xảy ra thực tế).

Cái này dễ hiểu. Đúng là sơ ý. Bạn chủ thớt sửa thành

Mã:

If (CDbl(data(r, 4)) >= ngay) And (CDbl(data(r, 4)) < ngay + 1) Then

Tức bỏ dấu =

ThangCuAnh · 9/8/19

Hì hì, hoan hô bạn @befaint, vậy là có người chịu khó tìm tòi, đọc code và so sánh 2 code rồi đó.
Như cu anh tui đã nói ban đầu, code và thuật toán của người ta, tui giữ nguyên 100%, không đụng, change gì cả, cả mấy cái dấu >= <=. Mục đích minh họa là cùng 1 code, cùng 1 thuật toán, nếu cách khai báo biến, cách dùng hàm đúng thì sẽ cải thiện đáng kể tốc độ, mà hoàn toàn không phải làm gì cao xa cả.
Thực tế đa dạng, nên sẽ còn gặp nhiều. Các bạn có nhớ bài toán đọc file text 600 ngàn dòng của bạn nào đó không ? Bạn ấy đã nói là trên máy bạn ấy chạy mất 60s. Nhưng tiếc là bạn ấy không úp data và code được. Nên thua. Nếu optimize theo cách dùng khai báo biến đúng, dùng hàm đúng thì may lắm xuống được 1/2, còn 30s thôi. Trong VBA có những cái ngưỡng giới hạn phải chấp nhận, không thể vượt qua được nếu dùng thuần và đúng VBA. Nên tôi mới nghĩ giải pháp dùng DLL viết = C hay Delphi, memory mapping file đó và parse trực tiếp trên map file, không phải read all lên bộ nhớ, trả về Variant array, thì mới hy vọng cải tiến tốc độ xuống ngưỡng 1/3 hay dưới được.
Quay lại vấn đề bạn @befaint phát hiện, đúng đấy @befaint. Thật ra là lúc đầu code mình comment nhiều lắm, nhưng sau đó nghĩ lại, thôi xóa hết đi,để các bạn vọc, đo và tìm ra, nó mới thú.

Về vấn đề Long, Double, có các chú ý sau:
1. Tại sao không dùng Double mà dùng Long: Hì hì, dùng Long thì VBA xử lý trên nó phải nhanh hơn xử lý số thực rồi chứ.
2. Thế dùng Long bị ép từ kiểu Date về có đúng không. Hì hì, đúng chứ, vì các bạn không xem kỹ document của VBA. Date trong VBA lưu thành số Double 8 byte, phần nguyên chứa ngày, phần lẽ chứa time. Mà ở đây mình chỉ quan tâm tới ngày, nên lấy phần nguyên, đưa qua biến Long thôi.
3. Thế tại sao không dùng hàm CDbl hay hàm CLng. Dùng làm chi, dùng thì VBA phải truyền vào stack biến variant rồi gọi hàm convert, trả về gán vào Long. Còn viết thằng l = data(xxx, xxx) thì VBA tự chuyển kiểu cho mình luôn, đỡ tốn time cho lời gọi.
4. Thế nếu data(xxx, xxx) không phải kiểu Date thì sao. Thì văng hết chứ sao, Long, Double, CLng, CDbl gì văng hết

5. Thế tại sao đưa biến Long ra ngoài, trên lệnh If. Vì tránh nó bị tính, convert 2 lần từ trong lệnh If. Các bạn có nhớ topic về VBA không nối tắt logic chứ ? Và VBA compiler nó đâu đủ thông minh để cache giá trị đã tính từ lần 1 dùng cho lần 2 đâu.
VBA thì biểu sao nó làm vậy à, chính xác 100% như những gì các bạn viết ra thôi.
6. Mới nhớ ra, bổ sung thêm: Thế dùng hàm VBA Val được không. Nếu dữ liệu sai Val không chết. OK, nhưng cuối cùng Val lại chậm hơn hết, vì tham số của Val là Val(String): Double. Nên VBA phải convert data(xxx, xxx) từ Variant sang string, call Val, convert ngược double lại thành Long.
Nên châm, bỏ

Còn rất nhiều cái nho nhỏ trong đó nữa, mà mình đã xóa hết comment. Các bạn phải chịu khó dùng beginTiming và EndTiming đặt vào từng đoạn để xem thời gian chạy cho từng đoạn đó hết bao nhiêu, chiếm bao nhiêu % trong tổng thời gian cả hàm. Một cái thay đổi, thêm bớt nhỏ chạy mất bao nhiêu, nhanh hơn hay chậm hơn, được bao nhiêu %. Nhưng đừng đặt vào bên trong vòng For nhé, click OK mệt nghĩ luôn đó.

Vòng For nhìn tưởng chậm nhất, nhưng không phải, nó chỉ chiếm gần 1/3 thôi. Trong vòng for đó, 2 cái chạy chậm nhất là ông nội VBA InStr và vòng While tìm Pos. Mình có thể viết lại nhanh hơn nhiều, nhưng không được vì phải dùng đúng code của người ta, không thì người ta la làng lên là đổi thuật toán. Như InStr thay bằng StrStrI API của shlwapi.dll chẳng hạn, While thì thay bằng Split, nhanh hơn nhiều.

Ngoài các cách chính thống, còn nhiều cách "tà đạo" nữa để giảm xuống nữa, 1/3 thôi, nhưng sẽ làm rắc rối code, bạn OT xinh đẹp sẽ không hiểu và fix được nếu bug khi dị dạng dữ liệu hay phát sinh thêm yêu cầu. Nên mình giữ nguyên và đã nói bạn OT giữ nguyên, cứ dùng code cũ. Code optimize xem để biết chơi thôi, kkk

Chỉ có 2 điểm thay đổi rất rất nhỏ thôi mà cải thiện tốc độ đáng kể nhất, các bạn cố tìm ra nhé.

ThangCuAnh · 9/8/19

Bạn @befaint nói mình mới nhìn kỹ lại đoạn If này. Hì hì, nếu đổi là Long rồi thì so sánh = 1 cái luôn chứ >= với < + 1 gì nữa ?

VetMini · 9/8/19

batman1 đã viết:
Tôi cũng không hiểu chủ thớt.

Người ta lấy bài của tôi ra để biểu diễn mấy hàm đô la. Thực ra người ta có thể tự tạo code của mình để biểu diễn. Nhưng ngưười ta chọn bài của tôi để biểu diễn. Vậy tôi phải có quyền nói lên quan điểm của mình. ...

Xin lỗi bác, tôi nghĩ có lẽ tại tôi mà xảy ra chuyện "loãng bài".

Xin phép cho trần tình, diễn đàng này mang tên Excel, và cái tên đó tạo cho tôi ấn tượng rằng quản lý dữ liệu là tiêu chí chung.
Hồi tôi còn làm việc với các đồ án, nhìn những người chung quanh hăm hở với cơ hội học hỏi CSDL nói chung và CSDLLH nói riêng mà tôi thong cảm cho họ. Thấy ở đây có người cơ hội ấy ngay trước mắt mà lo chú vào chỗ khác thì tôi thử cảnh tỉnh.
SQL Server thì không hiếm. Nhưng đó là nếu bạn chịu học với cái Northwind (hay tương tự); một cái CSDL với dữ liệu thực tế và cho phép bạn truy vấn sửa đổi tuỳ ý là cơ hội hiếm có.
Nhưng thôi, người ta đã tỏ rõ ý thức về con đường sự nghiệp của mình hướng khác rồi.

Anh tưởng giếng sâu anh nối sợi dây dài,
Ai ngờ giếng cạn anh tiếc hoài sợi dây. (Ca Dao)

Lời nhắn thêm cho các bạn còn phân vân chọn lựa con đường để học:
- Đào sâu vào code là con đường đi lên vinh quang. Nhưng cần nhớ rằng nếu con đường ấy ai cũng theo được thì ai cũng vinh quang hết rồi.
- Con đường tôi đi là con đường chẳng có gì cao cả. Nhưng chính vì sự tầm thường ấy mà nó bảo đảm bất cứ ai có đủ kiên nhẫn là theo được.

batman1 · 9/8/19

Có lẽ chưa hiểu ý chăng?

Nếu người ta xét ngày 2019-08-09 = 43686 thì ngày 2019-08-09 06:00:00 = 43686,25 và 2019-08-09 18:00:00 = 43686,75 đều lấy. Nhưng với

Mã:

Dim lNgay As Long
...
lNgay = data(r, 4)

thì lNgay = 43686 và lNgay = 43687

Lúc này thì so sánh bằng niềm tin à?

batman1 · 9/8/19

VetMini đã viết:
một cái CSDL với dữ liệu thực tế và cho phép bạn truy vấn sửa đổi tuỳ ý là cơ hội hiếm có.

Có cái thực tế để mà "vọc" thì còn gì bằng. Đúng là thực tập ngay trên cơ thể bệnh nhân khác với trên xác chết. Cơ hội hiếm lắm.

Lọc và tách dữ liệu theo điều kiện? (2 người xem)

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

Thành viên gắn bó

File đính kèm

/(hông là gì!

File đính kèm

Thành viên gắn bó

Mới rờ Ét xeo

Thành viên gắn bó

/(hông là gì!

Thành viên gắn bó

/(hông là gì!

Thành viên gắn bó

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

/(hông là gì!

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

Thành viên gắn bó

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

Thành viên gắn bó

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

Thành viên gắn bó

Thành viên gắn bó

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

Thành viên gắn bó

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

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

Mới rờ Ét xeo

Thành viên gắn bó

Mới rờ Ét xeo

Thành viên gắn bó

Thành viên gắn bó

Mới rờ Ét xeo

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

Thành viên gắn bó

Mới rờ Ét xeo

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

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

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

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

Thành viên gắn bó

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

Mới rờ Ét xeo

Mới rờ Ét xeo

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

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

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

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