Sửa giúp em code dùng vòng lặp For-Next để tính tổng số lượng (1 người xem)

Elx Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Q

quoc nhat

Thành viên tiêu biểu
Tham gia
8/3/12
Bài viết
567
Được thích
43
Nghề nghiệp
cán bộ ngành y tế
Chào các anh chị
EM có đoạn code như sau:

Dim i As Long, j As Long
For j = 3 To 20000 ' cac o chua ma thuoc '
i = WorksheetFunction.Match(Sheet11.Range("w" & j), Sheet1.[B:B], 0)
Sheet1.Cells(i, 8) = Sheet1.Cells(i, 8) + Sheet11.Range("x" & j)
Next



dùng để tính tổng số lượng của các mặt hàng
Dữ liệu của em tối đa khoảng 20000 dòng
Nhưng em không biết sửa code lại thế nào để code chạy nhanh hơn

Các anh chị giúp em một tay với
Em cảm ơn!
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
quoc nhat đã viết:
Chào các anh chị
EM có đoạn code như sau:

Dim i As Long, j As Long
For j = 3 To 20000 ' cac o chua ma thuoc '
i = WorksheetFunction.Match(Sheet11.Range("w" & j), Sheet1.[B:B], 0)
Sheet1.Cells(i, 8) = Sheet1.Cells(i, 8) + Sheet11.Range("x" & j)
Next



dùng để tính tổng số lượng của các mặt hàng
Dữ liệu của em tối đa khoảng 20000 dòng
Nhưng em không biết sửa code lại thế nào để code chạy nhanh hơn

Các anh chị giúp em một tay với
Em cảm ơn!
Nhấp chuột vào đây để mở rộng...

Cũng nên có cái file tạm kèm theo thì sẽ dễ dàng hơn rất nhiều.
Dạng bài này chắc cũng đơn giản mà, nhưng code không có file thì gần như khó nhai.
 
Upvote 0
quanghai1969 đã viết:
Cũng nên có cái file tạm kèm theo thì sẽ dễ dàng hơn rất nhiều.
Dạng bài này chắc cũng đơn giản mà, nhưng code không có file thì gần như khó nhai.
Nhấp chuột vào đây để mở rộng...
Xin lỗi anh em quên gủi kèm File lên mất

Dữ liệu em mới ghi tạm được mấy trăm dòng thôi
anh xem file rồi giúp em
ps: trong sheet thẻ kho nút lệnh màu đỏ đó anh
 

File đính kèm

Upvote 0
quoc nhat đã viết:
Xin lỗi anh em quên gủi kèm File lên mất

Dữ liệu em mới ghi tạm được mấy trăm dòng thôi
anh xem file rồi giúp em
ps: trong sheet thẻ kho nút lệnh màu đỏ đó anh
Nhấp chuột vào đây để mở rộng...
Hãy cảm nhận tốc độ của Dictionary và Array
PHP: 
Private Sub CommandButton1_Click()
Dim MaThuoc(), Data(), Res(), i&, n&, k&
Data = Sheet11.Range("W3", Sheet11.[X65536].End(3)).Value
MaThuoc = Sheet1.Range("B9:B214").Value
ReDim Res(1 To UBound(MaThuoc), 1 To 1)
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(MaThuoc)
        If Not .exists(MaThuoc(i, 1)) Then
            k = k + 1
            .Add MaThuoc(i, 1), k
        End If
    Next
    For i = 1 To UBound(Data)
        If .exists(Data(i, 1)) Then
            n = .Item(Data(i, 1))
            Res(n, 1) = Res(n, 1) + Data(i, 2)
        End If
    Next
End With
Sheet1.[H9:H214].Value = Res
End Sub
 
Upvote 0
quanghai1969 đã viết:
Hãy cảm nhận tốc độ của Dictionary và Array
PHP: 
Private Sub CommandButton1_Click()
Dim MaThuoc(), Data(), Res(), i&, n&, k&
Data = Sheet11.Range("W3", Sheet11.[X65536].End(3)).Value
MaThuoc = Sheet1.Range("B9:B214").Value
ReDim Res(1 To UBound(MaThuoc), 1 To 1)
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(MaThuoc)
        If Not .exists(MaThuoc(i, 1)) Then
            k = k + 1
            .Add MaThuoc(i, 1), k
        End If
    Next
    For i = 1 To UBound(Data)
        If .exists(Data(i, 1)) Then
            n = .Item(Data(i, 1))
            Res(n, 1) = Res(n, 1) + Data(i, 2)
        End If
    Next
End With
Sheet1.[H9:H214].Value = Res
End Sub
Nhấp chuột vào đây để mở rộng...
Quá tuyệt nhanh không tưởng tưởng được
Cảm ơn anh nhiều lắm
 
Upvote 0
quoc nhat đã viết:
Quá tuyệt nhanh không tưởng tưởng được
Cảm ơn anh nhiều lắm
Nhấp chuột vào đây để mở rộng...
bài này lâu rồi nhưng hôm nay em đang vướng một chổ là mã thuốc nào số lượng = 0 thì thêm số 0 vào sheet 1
và phải thêm Code như nào ạ?

giúp em lần nữa với ạ!
Em cảm ơn nhiều!
 
Lần chỉnh sửa cuối:
Upvote 0
giúp em với mọi người ơi!
 
Upvote 0
hoặc giacatdu đại, thì thử như sau, thêm dòng có ghi chú:
Mã: 
[COLOR=#000000][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub CommandButton1_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]Dim MaThuoc[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]Data[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]Res[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700]&, [/COLOR][COLOR=#0000BB]n[/COLOR][COLOR=#007700]&, [/COLOR][COLOR=#0000BB]k[/COLOR][COLOR=#007700]&
[/COLOR][COLOR=#0000BB]Data [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet11[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"W3"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Sheet11[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]X65536[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700])).[/COLOR][COLOR=#0000BB]Value
MaThuoc [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B9:B214"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
ReDim Res[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1 To UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]MaThuoc[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]1 To 1[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]With CreateObject[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"scripting.dictionary"[/COLOR][COLOR=#007700])
    For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]MaThuoc[/COLOR][COLOR=#007700])
        If [/COLOR][COLOR=#0000BB]Not [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exists[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]MaThuoc[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Then
            k [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]k [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1
            [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Add MaThuoc[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]k
        End [/COLOR][COLOR=#007700]If
[/COLOR][/COLOR][COLOR=#ff0000]        Res(i,1)=0  ''2015 them dong nay vao code[/COLOR][COLOR=#000000][COLOR=#007700]
    [/COLOR][COLOR=#0000BB]Next
    [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Data[/COLOR][COLOR=#007700])
        If .[/COLOR][COLOR=#0000BB]exists[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Data[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Then
            n [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000BB]Item[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Data[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]))
            [/COLOR][COLOR=#0000BB]Res[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]n[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Res[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]n[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#0000BB]Data[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700])
        [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
    [/COLOR][COLOR=#0000BB]Next
End With
Sheet1[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]H9[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]H214[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Res
End Sub 
[/COLOR][/COLOR]
 
Upvote 0
giola đã viết:
hoặc giacatdu đại, thì thử như sau, thêm dòng có ghi chú:
Mã: 
[COLOR=#000000][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub CommandButton1_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]Dim MaThuoc[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]Data[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]Res[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700]&, [/COLOR][COLOR=#0000BB]n[/COLOR][COLOR=#007700]&, [/COLOR][COLOR=#0000BB]k[/COLOR][COLOR=#007700]&
[/COLOR][COLOR=#0000BB]Data [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet11[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"W3"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Sheet11[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]X65536[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700])).[/COLOR][COLOR=#0000BB]Value
MaThuoc [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B9:B214"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
ReDim Res[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1 To UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]MaThuoc[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]1 To 1[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]With CreateObject[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"scripting.dictionary"[/COLOR][COLOR=#007700])
    For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]MaThuoc[/COLOR][COLOR=#007700])
        If [/COLOR][COLOR=#0000BB]Not [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exists[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]MaThuoc[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Then
            k [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]k [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1
            [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Add MaThuoc[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]k
        End [/COLOR][COLOR=#007700]If
[/COLOR][/COLOR][COLOR=#ff0000]        Res(i,1)=0  ''2015 them dong nay vao code[/COLOR][COLOR=#000000][COLOR=#007700]
    [/COLOR][COLOR=#0000BB]Next
    [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Data[/COLOR][COLOR=#007700])
        If .[/COLOR][COLOR=#0000BB]exists[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Data[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Then
            n [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000BB]Item[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Data[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]))
            [/COLOR][COLOR=#0000BB]Res[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]n[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Res[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]n[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#0000BB]Data[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700])
        [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
    [/COLOR][COLOR=#0000BB]Next
End With
Sheet1[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]H9[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]H214[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Res
End Sub 
[/COLOR][/COLOR]
Nhấp chuột vào đây để mở rộng...
đúng ý em rồi anh ơi
cảm ơn anh nhiều lắm!
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

L
Tính thời gian làm việc thực tế
Trả lời
66
Đọc
14K
YenTon
Y
H
Chia sẻ file in Phiếu điều tra PCGD
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
13
Đọc
626
Phuong7686
P
GPE-Trợ Lý
  • Dán lên cao
[KHẨN] HƯỚNG VỀ ĐỒNG BÀO CHỊU ẢNH HƯỞNG CỦA BÃO YAGI - BẢO YÊN, LÀO CAI
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
91
Đọc
14K
SA_DQ
SA_DQ
SA_DQ
Copilot bình luận về một ván cờ vua
    • Thích
Trả lời
6
Đọc
409
SA_DQ
SA_DQ
92nguyenthanh
  • Question Question
Vba cho file nhập xuất kho (1 người xem)
Trả lời
4
Đọc
106
HUONGHCKT
H
C
Fix lỗi Application.InputBox Type:=8
    • Cười
Trả lời
25
Đọc
617
ptm0412
ptm0412
GPE-Trợ Lý
[GPE] TALK SHOW 08: GIẢI QUYẾT VẤN ĐỀ TỐI ƯU HÓA TRONG EXCEL VỚI CÔNG CỤ SOLVER
    • Thích
    • Cảm ơn
Trả lời
4
Đọc
3K
DuongLeHung
D
Gà Công Nghệ
Chế độ chính sách cho giáo viên mầm non giữ trẻ khuyết tật
Trả lời
1
Đọc
56
vanle33
vanle33
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
56
Đọc
22K
dunghtgiga
dunghtgiga
L
  • Question Question
Viết code tìm kiếm các file trong Folder
Trả lời
40
Đọc
12K
lan nguyen0987
L
P
Hyperlink_Cách chuyển cả thư mục và file tổng hợp sang máy khác không bị lỗi
Trả lời
5
Đọc
107
phongvanvu
P
HeSanbi
Tiện ích Web: Tự động nhấn nút "Bỏ qua" quảng cáo Youtube
    • Thích
    • Yêu thích
Trả lời
14
Đọc
1K
ongke0711
ongke0711
ptm0412
Quá tin tưởng vào AI các thể loại (1 người xem)
    • Cười
Trả lời
4
Đọc
218
Maika8008
Maika8008
A
  • Question Question
Không tìm được lỗi code
Trả lời
6
Đọc
158
ptm0412
ptm0412
W
Tham chiếu theo chuỗi ký tự
Trả lời
8
Đọc
312
dungpham01
D
tritv.dad
Lấy dữ liệu từ folder các tờ khai thông quan để theo dõi hiệu suất công việc.
Trả lời
8
Đọc
284
BlueSphere
B
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11 (1 người xem)
    • Thích
Trả lời
0
Đọc
2K
GPE-Trợ Lý
GPE-Trợ Lý
SA_DQ
Xin chúc mừng các thầy cô giáo trên cộng đồng nhân 20/11
    • Thích
    • Yêu thích
Trả lời
1
Đọc
134
BuiQuangThuan
B
M
chuyển đổi số thành chữ
Trả lời
15
Đọc
369
dungpham01
D
V
Lỗi copy sheet: the name already exists.
Trả lời
7
Đọc
702
nghiabros
N
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

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

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom