Cách tăng tốc độ chạy của chương trình ? (1 người xem)

Nguyen Rem · 10/5/22

Em chào các anh chị trên diễn đàn!! . Lại em đây ^^
Hiện tại em đang gặp rắc rối về tốc độ chạy của chương trình , mong anh chị giúp em để cho chương trình chạy nhanh hơn(cụ thể là chạy được dựa vào code em viết) . Mong các anh chị giải thích cách các anh chị tư duy và code của các anh chị . Em cảm ơn anh chị rất nhiều .
Các anh chị vào module5 chạy và Sub thứ hai giúp em nhé ^^

BuiQuangThuan · 10/5/22

Nguyen Rem đã viết:
Em chào các anh chị trên diễn đàn!! . Lại em đây ^^
Hiện tại em đang gặp rắc rối về tốc độ chạy của chương trình , mong anh chị giúp em để cho chương trình chạy nhanh hơn(cụ thể là chạy được dựa vào code em viết) . Mong các anh chị giải thích cách các anh chị tư duy và code của các anh chị . Em cảm ơn anh chị rất nhiều .
Các anh chị vào module5 chạy và Sub thứ hai giúp em nhé ^^
View attachment 275737

Phải công nhận bạn hỏi bài kinh thật. Cái này là học à

Nguyen Rem · 10/5/22

BuiQuangThuan đã viết:
Phải công nhận bạn hỏi bài kinh thật. Cái này là học à

Em tự học ấy anh

)) . Hiện tại em thấy mỗi GPE là thầy thôi ^^ . Còn bài tập thì em tự chế với tham khảo trên mạng

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

BuiQuangThuan đã viết:
Phải công nhận bạn hỏi bài kinh thật. Cái này là học à

^^ Chắc từ giờ đến lúc em đạt được mục tiêu sẽ cần anh chị giúp nhiều hi

bebo021999 · 10/5/22

Code của bạn có 2 vấn đề lớn:
1) Hơn 11K dòng dữ liệu mà dùng for cho từng dòng, và ghi lên sheet từng dòng
2) Range("B2:B" & Rows.Count) tức là vùng B2:B1048576, loop qua từng ô chắc tới sáng mai mới xong
Mình làm thử với hàm SUMIF, kết quả khoảng 0.1s

PHP:

Sub Sumrevenue()
Application.ScreenUpdating = False
Range("B1:C1").Value = Array("SReve", "SCust")
Dim A1 As Range, A2 As Range
Dim y As Range
    With Application.ThisWorkbook
        Set A1 = .Worksheets("rev").Range("B2:B" & .Worksheets("rev").Cells(Rows.Count, "B").End(xlUp).Row)
        Set A2 = .Worksheets("ucity").Range("A2:A" & .Worksheets("ucity").Cells(Rows.Count, "A").End(xlUp).Row)
        For Each y In A2
            y.Offset(0, 1).Value = WorksheetFunction.SumIf(A1, y, A1.Offset(0, 9)) 
            y.Offset(0, 2).Value = WorksheetFunction.SumIf(A1, y, A1.Offset(0, 10))
        Next
    End With
Application.ScreenUpdating = True
End Sub

Nguyen Rem · 10/5/22

bebo021999 đã viết:
Code của bạn có 2 vấn đề lớn:
1) Hơn 11K dòng dữ liệu mà dùng for cho từng dòng, và ghi lên sheet từng dòng
2) Range("B2:B" & Rows.Count) tức là vùng B2:B1048576, loop qua từng ô chắc tới sáng mai mới xong
Mình làm thử với hàm SUMIF, kết quả khoảng 0.1s

PHP:

Sub Sumrevenue() Application.ScreenUpdating = False Range("B1:C1").Value = Array("SReve", "SCust") Dim A1 As Range, A2 As Range Dim y As Range With Application.ThisWorkbook Set A1 = .Worksheets("rev").Range("B2:B" & .Worksheets("rev").Cells(Rows.Count, "B").End(xlUp).Row) Set A2 = .Worksheets("ucity").Range("A2:A" & .Worksheets("ucity").Cells(Rows.Count, "A").End(xlUp).Row) For Each y In A2 y.Offset(0, 1).Value = WorksheetFunction.SumIf(A1, y, A1.Offset(0, 9)) y.Offset(0, 2).Value = WorksheetFunction.SumIf(A1, y, A1.Offset(0, 10)) Next End With Application.ScreenUpdating = True End Sub

Dạ vâng ạ ^^ . Em cảm ơn anh nhiều . Để em thử viết rồi có gì em báo anh sau ạ

))

Nhattanktnn · 10/5/22

Nguyen Rem đã viết:
Dạ vâng ạ ^^ . Em cảm ơn anh nhiều . Để em thử viết rồi có gì em báo anh sau ạ ))

Mình chỉ nói số liệu ước lượng thôi chứ không tính chi tiết nhé:
A1 khoảng 1 triệu dòng, A2 cũng bằng A1 là 1 triệu dòng
Xong bạn lặp lồng nhau thì = A1 dòng x A2 dòng = 1.000.000 x 1.000.000 = 1.000.000.000.000 lần chạy

,

bebo021999 · 10/5/22

Nhattanktnn đã viết:
Xong bạn lặp lồng nhau thì = A1 dòng x A2 dòng = 1.000.000 x 1.000.000 = 1.000.000.000.000 lần chạy ,

Sao ít thế, nhiều hơn rất rất nhiều nhé

)

Nhattanktnn · 10/5/22

bebo021999 đã viết:
Sao ít thế, nhiều hơn rất rất nhiều nhé )

Bác chỉ điểm chỗ nào em tham khảo, bác đừng nói là offset bác cũng tính lặp đó nhé

bebo021999 · 10/5/22

Nhattanktnn đã viết:
Bác chỉ điểm chỗ nào em tham khảo, bác đừng nói là offset bác cũng tính lặp đó nhé

Thay dấu x bằng ^ mới đúng chứ

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

Hiii, mình nhầm . 1.000.000x1.000.000 là đúng rồi.

snow25 · 10/5/22

Nguyen Rem đã viết:
Em chào các anh chị trên diễn đàn!! . Lại em đây ^^
Hiện tại em đang gặp rắc rối về tốc độ chạy của chương trình , mong anh chị giúp em để cho chương trình chạy nhanh hơn(cụ thể là chạy được dựa vào code em viết) . Mong các anh chị giải thích cách các anh chị tư duy và code của các anh chị . Em cảm ơn anh chị rất nhiều .
Các anh chị vào module5 chạy và Sub thứ hai giúp em nhé ^^
View attachment 275737

Bạn nên sử học mảng(array) và Dictionary để tồi ưu vòng lặp.

Nguyen Rem · 10/5/22

snow25 đã viết:
Bạn nên sử học mảng(array) và Dictionary để tồi ưu vòng lặp.

Em học mảng rồi còn Dictionary thì em vẫn chưa ^^ . Nhưng mà em vẫn chưa hiểu ý anh lắm , anh có thể minh họa dựa vào code ở #1 giúp em được không ạ . "Tối ưu vòng lặp" là làm nó ngắn gọn hơn hay là giúp nó chạy được ạ (code #1 chưa chạy được vì nó lặp quá nhiều^^)

namvu230397 · 10/5/22

Nguyen Rem đã viết:
Em học mảng rồi còn Dictionary thì em vẫn chưa ^^ . Nhưng mà em vẫn chưa hiểu ý anh lắm , anh có thể minh họa dựa vào code ở #1 giúp em được không ạ . "Tối ưu vòng lặp" là làm nó ngắn gọn hơn hay là giúp nó chạy được ạ (code #1 chưa chạy được vì nó lặp quá nhiều^^)

Code làm việc với object sẽ bị chậm, trong excel mỗi cell được tính là 1 object, 1 range có 1 triệu dòng x 1 triệu cột thì khi chạy vòng lặp sẽ lặp qua từ ô một làm code bị chậm. Với mảng nó chỉ là một biến duy nhất, lại không phải là object nên tốc độ sẽ nhanh hơn nhiều, code có thể không ngắn hơn thậm chí có thể dài hơn nhưng tốc độ sẽ nhanh hơn rất nhiều

Nhattanktnn · 10/5/22

Nguyen Rem đã viết:
Em học mảng rồi còn Dictionary thì em vẫn chưa ^^ . Nhưng mà em vẫn chưa hiểu ý anh lắm , anh có thể minh họa dựa vào code ở #1 giúp em được không ạ . "Tối ưu vòng lặp" là làm nó ngắn gọn hơn hay là giúp nó chạy được ạ (code #1 chưa chạy được vì nó lặp quá nhiều^^)

Dic thì nó lấy được giá trị duy nhất cho bạn chứ không cần phải ghi các thành phố sẵn vào sheet như vậy. Và duyệt trên xuống 1 vòng lặp là đủ

Nguyen Rem · 10/5/22

Em cảm ơn mọi người nhiều lắm ^^ Nhưng mà em vẫn cần một ví dụ cho nó trực quan chứ nói không em vẫn không hiểu được :> . Kiểu ví dụ như: khi áp dụng kiến thức mảng vào code của bài #1 để cho nó chạy nhanh được chẳng hạn , tương tự với Dictionary

Maika8008 · 11/5/22

Nguyen Rem đã viết:
Em cảm ơn mọi người nhiều lắm ^^ Nhưng mà em vẫn cần một ví dụ cho nó trực quan chứ nói không em vẫn không hiểu được :> . Kiểu ví dụ như: khi áp dụng kiến thức mảng vào code của bài #1 để cho nó chạy nhanh được chẳng hạn , tương tự với Dictionary

Với Dictionary thì mổ xẻ 1 cái code cơ bản như trong link này ra rồi áp dụng vào dữ liệu của bạn:

Bài 11. Dictionary

Bài 11. Dictionary (Danh sách các bài viết về VBA xem ở đây Index - Các bài viết về VBA) Dictionary (Dic) là một phần trong thư viện Microsoft Scripting Runtime (scrrun.dll), cho phép lưu trữ và truy xuất số lượng lớn Item theo Key duy nhất tương ứng. 1. Khai báo 1.1. Kiểu khai báo sớm (Có...

www.giaiphapexcel.com

Tất nhiên khi dùng Dic thì phải nắm được cơ bản về mảng.

Vào chuyên mục Lập trình với Excel sẽ thấy mấy bài viết quan trọng kiểu này được neo lên đầu chuyên mục. Đọc đến đâu làm đến đó thì sẽ nắm được vấn đề.

Nguyen Rem · 11/5/22

Maika8008 đã viết:
Với Dictionary thì mổ xẻ 1 cái code cơ bản như trong link này ra rồi áp dụng vào dữ liệu của bạn:

Bài 11. Dictionary

Bài 11. Dictionary (Danh sách các bài viết về VBA xem ở đây Index - Các bài viết về VBA) Dictionary (Dic) là một phần trong thư viện Microsoft Scripting Runtime (scrrun.dll), cho phép lưu trữ và truy xuất số lượng lớn Item theo Key duy nhất tương ứng. 1. Khai báo 1.1. Kiểu khai báo sớm (Có...

www.giaiphapexcel.com

Tất nhiên khi dùng Dic thì phải nắm được cơ bản về mảng.

Vào chuyên mục Lập trình với Excel sẽ thấy mấy bài viết quan trọng kiểu này được neo lên đầu chuyên mục. Đọc đến đâu làm đến đó thì sẽ nắm được vấn đề.

Dạ vâng ạ ! Em cảm ơn anh nhiều ^^ để em đọc ạ hi

CHAOQUAY · 11/5/22

Nguyen Rem đã viết:
Em cảm ơn mọi người nhiều lắm ^^ Nhưng mà em vẫn cần một ví dụ cho nó trực quan chứ nói không em vẫn không hiểu được :> . Kiểu ví dụ như: khi áp dụng kiến thức mảng vào code của bài #1 để cho nó chạy nhanh được chẳng hạn , tương tự với Dictionary

Thử xem cả mảng cả dic

Mã:

Option Explicit

Sub xxx()
Dim Nguon
Dim Tam
Dim i, k

Nguon = Sheet1.Range("A1").CurrentRegion

With CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(Nguon)
        k = Nguon(i, 2)
        If .exists(k) = False Then
            .Item(k) = Array(Nguon(i, 9), Nguon(i, 10))
        Else
            Tam = .Item(k)
            Tam(0) = Tam(0) + Nguon(i, 9)
            Tam(1) = Tam(1) + Nguon(i, 10)
            .Item(k) = Tam
        End If
    Next i
    
    Sheet9.Range("B1").Value = "SReve"
    Sheet9.Range("C1").Value = "SCust"
    For i = 2 To Sheet9.Range("A" & Rows.Count).End(xlUp).Row
        If .exists(Sheet9.Range("A" & i).Value) Then
            Sheet9.Range("B" & i).Resize(1, 2) = .Item(Sheet9.Range("A" & i).Value)
        End If
    Next i
End With
End Sub

VetMini · 11/5/22

Khi dữ liệu nhiều thì không có cấu trúc nào nhanh hơn mảng cả.
Bài #17 sử dụng chưa hết chức năng của mảng cho nên hơi luộm thuộm.
Nếu thớt biết rằng mình đã học qua mảng thì thử chỉnh sửa lại xem.
Gợi ý: kỹ thuật kết hợp mảng và đít sần đơn giản hơn ở trên, tuy rằng nó cần một mẹo nhỏ mà ở GPE này người ta sử dụng rất nhiều, chịu khó tìm sẽ thấy.

manhtuan452 · 30/5/22

em cũng có file tương tự ntn. chỉ có điều file của em có khoảng 100k sản phẩm. Tổng dòng của file doanh số khoảng 150k. giờ e muốn tính tổng doanh số của từng sản phẩm thôi ạ. các code trên em test chạy vẫn treo.

Nguyen Rem · 30/5/22

manhtuan452 đã viết:
em cũng có file tương tự ntn. chỉ có điều file của em có khoảng 100k sản phẩm. Tổng dòng của file doanh số khoảng 150k. giờ e muốn tính tổng doanh số của từng sản phẩm thôi ạ. các code trên em test chạy vẫn treo.

Anh phải gửi file lên thì mọi người mới hình dung ra vấn đề anh đang gặp phải chứ ^^ .
Về bài này của em thì em tính tổng doanh thu của mỗi thành phố:
Ý tưởng của em là :
Lọc tất cả các giá trị trùng nhau dựa trên thành phố rồi in ra một sheet mới

Sau đó anh có thể áp dụng code của bài số #4 để dùng hàm sumif để tính dựa trên các điều kiện mà mình in vừa nãy ở sheet mới

VetMini · 30/5/22

Maika8008 đã viết:
...Tất nhiên khi dùng Dic thì phải nắm được cơ bản về mảng.

Không hẳn đúng.
Đã lập trình thì phải nắm được cơ bản về mảng. Trình độ vững về mảng phải đi đôi với trình độ lập trình.
Đít sần chuyện khác hoàn toàn. Đít sần là cù-lét-sần, cấu trúc không hề có chút xíu mảng. Việc hai thuộc tính Keys và Items của nó có thể ép thành mảng không có nghĩa rằng nó liên hệ đến mảng.

BuiQuangThuan · 30/5/22

VetMini đã viết:
Đít sần là cù-lét-sần

Nhiều khi đọc bài của chú mà cứ phải cố gắng căng não hiểu xem là chú nói cái gì. Chú có thể đừng Việt hóa được không?

Hoàng Tuấn 868 · 30/5/22

BuiQuangThuan đã viết:
đừng Việt hóa được không?

Khả năng là sẽ như vậy nếu hết tình trạng Tây hóa.

ptm0412 · 30/5/22

manhtuan452 đã viết:
em cũng có file tương tự ntn. chỉ có điều file của em có khoảng 100k sản phẩm. Tổng dòng của file doanh số khoảng 150k. giờ e muốn tính tổng doanh số của từng sản phẩm thôi ạ. các code trên em test chạy vẫn treo.

Nếu chỉ có vậy thì dùng pivot table.

VetMini · 30/5/22

ptm0412 đã viết:
Nếu chỉ có vậy thì dùng pivot table.

Sẽ lên 1 triệu sản phẩm.
(hỉnh như từ viết tắt ntn vừa là "nào" vừa là "này"

. Chắc không bao lâu nữa nó sẽ thêm "nữa", "nốt",... )

ptm0412 · 30/5/22

VetMini đã viết:
Sẽ lên 1 triệu sản phẩm.
(hỉnh như từ viết tắt ntn vừa là "nào" vừa là "này" . Chắc không bao lâu nữa nó sẽ thêm "nữa", "nốt",... )

Tôi ghi có chữ nếu (nếu chỉ có vậy). Khi "nếu" xảy ra tôi không chịu trách nhiệm.

VetMini · 30/5/22

ptm0412 đã viết:
Tôi ghi có chữ nếu (nếu chỉ có vậy). Khi "nếu" xảy ra tôi không chịu trách nhiệm.

Có ai bắt bẻ bạn đâu. Thấy vui nói vậy thôi.

Parkingson Law: work expands so as to fill the time available for its completion.

GPE Law: spreadsheet expands so as to make the most complex solution unavoidable.

VetMini · 31/5/22

Người có kinh nghiệm làm việc luôn luôn có một văn bản biểu kế phạm vi và tầm vực của công việc (scope).
Phạm vi: công việc bao gồm các phần A, B, C, và không bao gồm D, E.
Tầm vực: công việc sẽ liên hệ đến X, Y, Z nhưng không liên hệ đến U, V, W. Nói cách khác, sẽ có giao diện với X, Y, Z và không có giao diện với U, V, W.

Học cũng vậy, bắt đầu là cái biểu kế scope. Sau đó mới đến cái kế hoạch thực hiện (plan).

Lúc học mà có người mách thêm thông tin này nọ thì cũng tốt, thêm phần phong phú. Nhưng để cho đi xa ra ngoài cái phạm vi ban đầu thì:
Phải xem lại cho kỹ cái đó có thực sự tốt trong thời điểm hiện tại hay không?
- Nếu có thì chỉnh lại bảng biểu kế.
- Nếu không thì quên đi.

Phần bảng tóm lược ở đầu một quyển sách (table of contents) chính là cái bieur kế này. Chỉ khác là rất ít tác giả chịu khó viết phần "không bao gồm", "ngoài phạm vi và tầm vực".

Cách tăng tốc độ chạy của chương trình ? (1 người xem)

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

Tất cả chỉ là đưa ra quyết định đúng đắn

File đính kèm

❆❆❆❆❆❆❆❆❆❆❆❆

Tất cả chỉ là đưa ra quyết định đúng đắn

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

File đính kèm

Tất cả chỉ là đưa ra quyết định đúng đắn

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

Tất cả chỉ là đưa ra quyết định đúng đắn

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

Thành viên gắn bó

Tất cả chỉ là đưa ra quyết định đúng đắn

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

Tất cả chỉ là đưa ra quyết định đúng đắn

Thành viên gắn bó

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

Thành viên mới

Tất cả chỉ là đưa ra quyết định đúng đắn

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

❆❆❆❆❆❆❆❆❆❆❆❆

Đăng ký hôm qua

Bad Excel Member

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

Bad Excel Member

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

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

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