Cách Sử Dụng Hàm SUMIF Trong VBA | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Cách sử dụng hàm SUMIF trong VBA

• Thread starter Thong Hoang Tien 250691
• Ngày gửi 19/1/20

Thong Hoang Tien 250691

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

Tham gia 14/5/17 Bài viết 141 Được thích 125 Giới tính Nam Em đang gặp một vấn đề: Em viết hàm SUMIF trong VBA với đoạn mã như sau: Mã:Sao chép. Sub GPE_HELP() Dim ws1 As Worksheet, ws2 As Worksheet Dim lRw1, lRw2 As Integer Set ws1 = ThisWorkbook.Sheets(1) Set ws2 = ThisWorkbook.Sheets(2) lRw1 = ws1.Range("A" & Rows.Count).End(xlUp).Row lRw2 = ws2.Range("A" & Rows.Count).End(xlUp).Row ws2.Range("C2:C" & lRw2).Value = Application.WorksheetFunction.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2:B" & lRw1)) End Sub Thì bị lỗi ở dòng cuối cùng. trong excel em viết hàm tương tự trong cells thì trả về kết quả bình thường. Em không muốn dùng for-next vì dữ liệu là khá lớn Anh/Chị kiểm tra em đã viết sai ở đâu và cách sửa ạ ?

File đính kèm

• GPE_HELP.xlsm 22.4 KB · Đọc: 61

Sắp xếp theo thời gian sắp xếp theo bầu chọn B

batman1

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

Tham gia 8/9/14 Bài viết 5,774 Được thích 9,768

Thong Hoang Tien 250691 đã viết: Em đang gặp một vấn đề: Em viết hàm SUMIF trong VBA với đoạn mã như sau: Mã:Sao chép. Sub GPE_HELP() Dim ws1 As Worksheet, ws2 As Worksheet Dim lRw1, lRw2 As Integer Set ws1 = ThisWorkbook.Sheets(1) Set ws2 = ThisWorkbook.Sheets(2) lRw1 = ws1.Range("A" & Rows.Count).End(xlUp).Row lRw2 = ws2.Range("A" & Rows.Count).End(xlUp).Row ws2.Range("C2:C" & lRw2).Value = Application.WorksheetFunction.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2:B" & lRw1)) End Sub Thì bị lỗi ở dòng cuối cùng. trong excel em viết hàm tương tự trong cells thì trả về kết quả bình thường. Em không muốn dùng for-next vì dữ liệu là khá lớn Anh/Chị kiểm tra em đã viết sai ở đâu và cách sửa ạ ? Nhấp chuột vào đây để mở rộng...

Thử sửa thành Mã:Sao chép. ws2.Range("C2:C" & lRw2).Value = Application.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2:B" & lRw1)) Hoặc như sau cũng được Mã:Sao chép. ws2.Range("C2:C" & lRw2).Value = Application.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2")) Upvote 0

Thong Hoang Tien 250691

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

Tham gia 14/5/17 Bài viết 141 Được thích 125 Giới tính Nam

batman1 đã viết: Thử sửa thành Mã:Sao chép. ws2.Range("C2:C" & lRw2).Value = Application.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2:B" & lRw1)) Hoặc như sau cũng được Mã:Sao chép. ws2.Range("C2:C" & lRw2).Value = Application.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2")) Nhấp chuột vào đây để mở rộng...

Cám ơn Anh, Em đã thực hiện được. Nhân tiện em gặp vấn đề tương tự, nhưng với hàm điều kiện IF (không liên quan đến chủ đề lắm). nhưng mong Anh và mọi người kiểm tra và giải thích giúp em ạ. Em cám ơn !

File đính kèm

• GPE_HELP.xlsm 22.4 KB · Đọc: 34

Upvote 0

phulien1902

GPE - My love

Tham gia 6/7/13 Bài viết 3,543 Được thích 4,424

Thong Hoang Tien 250691 đã viết: Cám ơn Anh, Em đã thực hiện được. Nhân tiện em gặp vấn đề tương tự, nhưng với hàm điều kiện IF (không liên quan đến chủ đề lắm). nhưng mong Anh và mọi người kiểm tra và giải thích giúp em ạ. Em cám ơn ! Nhấp chuột vào đây để mở rộng...

Bạn thử: PHP:Sao chép. Sub abc() Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=IF($A$2:$A$5=$B$2:$B$5,""Ok"",""NG"")" End Sub Hoặc: PHP:Sao chép. Sub test() Dim lastRow As Long Range("D2").Formula = "=IF($A$2:$A$5=$B$2:$B$5,""Ok"",""NG"")" lastRow = Range("a" & Rows.Count).End(xlUp).Row Range("D2").AutoFill Destination:=Range("D2:D" & lastRow) End Sub Upvote 0

Thong Hoang Tien 250691

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

Tham gia 14/5/17 Bài viết 141 Được thích 125 Giới tính Nam

phulien1902 đã viết: Bạn thử: PHP:Sao chép. Sub abc() Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=IF($A$2:$A$5=$B$2:$B$5,""Ok"",""NG"")" End Sub Hoặc: PHP:Sao chép. Sub test() Dim lastRow As Long Range("D2").Formula = "=IF($A$2:$A$5=$B$2:$B$5,""Ok"",""NG"")" lastRow = Range("a" & Rows.Count).End(xlUp).Row Range("D2").AutoFill Destination:=Range("D2:D" & lastRow) End Sub Nhấp chuột vào đây để mở rộng...

Cám ơn Anh đã quan tâm. Ở đây dữ liệu khá lớn và em không muốn sử dụng công thức trong cell (code trả về giá trị, không gắn công thức vào cells) thì có cách nào khác không ạ? Upvote 0 P

ppc0312

whom?

Tham gia 2/4/08 Bài viết 623 Được thích 319

Thong Hoang Tien 250691 đã viết: Cám ơn Anh đã quan tâm. Ở đây dữ liệu khá lớn và em không muốn sử dụng công thức trong cell (code trả về giá trị, không gắn công thức vào cells) thì có cách nào khác không ạ? Nhấp chuột vào đây để mở rộng...

Không muốn VBA-hóa công thức, không muốn fornext ... vậy thì có cách thuê người viết ngôn ngữ lập trình mới thôi, Tôi nghi rằng for next còn nhanh hơn VBA-hóa công thức nữa. Upvote 0

Thong Hoang Tien 250691

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

Tham gia 14/5/17 Bài viết 141 Được thích 125 Giới tính Nam

ppc0312 đã viết: Không muốn VBA-hóa công thức, không muốn fornext ... vậy thì có cách thuê người viết ngôn ngữ lập trình mới thôi, Tôi nghi rằng for next còn nhanh hơn VBA-hóa công thức nữa. Nhấp chuột vào đây để mở rộng...

ForNext hoặc formular với dữ liệu khoảng 1k dòng đổ lại thì ok. Dữ liệu của em khoảng hơn 50k dòng và vẫn tiếp tục tăng. E rằng for next hiệu năng không đáp ứng được. Upvote 0 P

ppc0312

whom?

Tham gia 2/4/08 Bài viết 623 Được thích 319

Thong Hoang Tien 250691 đã viết: ForNext hoặc formular với dữ liệu khoảng 1k dòng đổ lại thì ok. Dữ liệu của em khoảng hơn 50k dòng và vẫn tiếp tục tăng. E rằng for next hiệu năng không đáp ứng được. Nhấp chuột vào đây để mở rộng...

700K người ta còn dùng VBA bình thường , có chi phải lo Upvote 0

Thong Hoang Tien 250691

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

Tham gia 14/5/17 Bài viết 141 Được thích 125 Giới tính Nam

ppc0312 đã viết: 700K người ta còn dùng VBA bình thường , có chi phải lo Nhấp chuột vào đây để mở rộng...

Vậy anh có thể viết theo ý anh đang diễn đạt vào file ở bài #3 được không? Sau đó em sẽ thử chạy với dữ liệu khoảng 50 nghìn dòng. Xem có thể đáp ứng được không? Cám ơn Anh trước. Upvote 0 P

ppc0312

whom?

Tham gia 2/4/08 Bài viết 623 Được thích 319

Thong Hoang Tien 250691 đã viết: Vậy anh có thể viết theo ý anh đang diễn đạt vào file ở bài #3 được không? Sau đó em sẽ thử chạy với dữ liệu khoảng 50 nghìn dòng. Xem có thể đáp ứng được không? Cám ơn Anh trước. Nhấp chuột vào đây để mở rộng...

Không phải thử cứ post file đầy đủ lên Tôi không thích làm thử 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

Nhờ hướng dẫn các xử lý hiển thị

• noisy
• Thứ bảy lúc 09:19
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 3 Đọc 146 20 phút trước noisy B

• Question

Windows Form Làm thế nào để định vị cột và dòng nhập dữ liệu

• binhtv69
• 22/11/24
• Lập Trình với Excel

2 3 Trả lời 43 Đọc 984 23 phút trước test1986

• Question

Xóa dòng trùng.

• DMQ
• Thứ tư lúc 21:16
• Lập Trình với Excel

Trả lời 13 Đọc 256 30 phút trước thien-16 T N Định mức nguyên vật liệu

• nghiemcongdien
• 9/11/24
• Google Spreadsheets

2 Trả lời 37 Đọc 1K Hôm nay lúc 12:31 yeudoi

• Question

Tìm hiểu về việc tạo note bằng vba

• test1986
• Hôm nay lúc 11:09
• Lập Trình với Excel

Trả lời 2 Đọc 44 Hôm nay lúc 12:18 test1986 Giúp về xử lý số liệu trong excel!

• heocondethuong1235
• Hôm qua, lúc 13:45
• Những vấn đề chung

Trả lời 7 Đọc 164 Hôm nay lúc 11:37 ngocbaovu T Ký tự đặc biệt đại diện cho các ký tự khác trong vba là gì

• tueyennhi
• 4/11/24
• VBA trong Excel – Cải thiện và tăng tốc

Trả lời 8 Đọc 345 Hôm nay lúc 10:51 tueyennhi T K Tự động nhập dữ liệu tăng ca

• Ks.longvandinh1988
• Hôm qua, lúc 14:17
• Excel và Kế Toán

Trả lời 3 Đọc 96 Hôm nay lúc 10:51 Ks.longvandinh1988 K 0 anh chị giúp em chỉnh file excel 2016

• 0377853935
• Hôm nay lúc 10:50
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 0 Đọc 27 Hôm nay lúc 10:50 0377853935 0 Trích xuất file *.xml sang Excel cho hóa đơn điện tử áp dụng nghị định 123/2020

• • 
  • 
  • 

• hoamattroicoi
• 12/3/22
• Excel và Kế Toán

5 6 7 Trả lời 120 Đọc 30K Hôm nay lúc 10:40 _sworm_ S T Cách gán ảnh cố định vào ô trong excel

• todesgott
• 29/3/10
• Định dạng, trình bày, in ấn bảng tính

2 Trả lời 32 Đọc 138K Hôm nay lúc 10:26 0377853935 0

• Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

• • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

12 13 14 Trả lời 261 Đọc 16K Hôm nay lúc 09:29 _sworm_ S J Hàm tách dữ liệu ra nhiều cột

• jusend
• Thứ tư lúc 16:43
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 6 Đọc 194 Hôm nay lúc 09:25 vanthuan986 V L lập công thức cho lịch làm và ngày nghỉ tự động thay đổi theo từng tháng

• Lan Ny
• Hôm qua, lúc 11:55
• Hàm và công thức Excel

Trả lời 2 Đọc 102 Hôm nay lúc 08:06 Lan Ny L L Chuyển 600 câu hỏi trắc nghiệm sang excel theo mẫu

• linhxinhthat
• Thứ tư lúc 15:52
• Hàm và công thức Excel

Trả lời 5 Đọc 196 Hôm nay lúc 08:05 huuthang_bd Hướng dẫn lập trình với Google Sheets và Excel Online bằng Excel VBA và Add-in A-Tools v10

• • 

• Nguyễn Duy Tuân
• Hôm qua, lúc 09:21
• BLUESOFTS: A-Excel, A-Tools

Trả lời 2 Đọc 139 Hôm nay lúc 07:54 Nguyễn Duy Tuân Lỗi mở file excel đã được lưu trên USB

• luuviettrung
• Hôm qua, lúc 16:31
• Hỏi đáp những vấn đề khác

Trả lời 0 Đọc 43 Hôm qua, lúc 16:31 luuviettrung H Code lấy đáp án từ file word

• • 

• Hoale85
• Hôm qua, lúc 11:16
• Những vấn đề chung

Trả lời 7 Đọc 164 Hôm qua, lúc 16:20 Hoale85 H A Nhờ mọi người làm giúp công thức Thống kê đếm ngày

• acrox84
• Thứ tư lúc 11:03
• Làm việc với ngày tháng và thời gian

Trả lời 8 Đọc 211 Hôm qua, lúc 15:23 acrox84 A [GPE] TALK SHOW ĐỊNH KỲ

• • 
  • 
  • 

• GPE-Trợ Lý
• Hôm qua, lúc 10:07
• Học tập Online

Trả lời 0 Đọc 127 Hôm qua, lúc 10:07 GPE-Trợ Lý Xem thêm… Chia sẻ: Facebook X (Twitter) Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

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

• Hoàng Tuấn 868 152
• ptm0412 81
• VetMini 47
• HUONGHCKT 42
• ongke0711 42
• hoangtuaotrang_hp_vn 35
• SA_DQ 34
• befaint 33
• Tuấn Bụng Bự 31
• bebo021999 31
• BuiQuangThuan 28
• HeSanbi 25
• huuthang_bd 25
• HieuCD 18
• DeTong 17
• huhumalu 17
• CHAOQUAY 16
• Nguyễn Diêu Hiền 15
• phuongnam366377 13
• nghiemcongdien 13

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

• Hoàng Tuấn 868 131
• ptm0412 79
• HUONGHCKT 77
• VetMini 66
• HeSanbi 63
• ongke0711 60
• HieuCD 44
• SA_DQ 44
• BuiQuangThuan 42
• befaint 41
• huuthang_bd 39
• GPE-Trợ Lý 34
• bebo021999 32
• hoangtuaotrang_hp_vn 32
• Phuocam 19
• DeTong 18
• huhumalu 15
• PhanTuHuong 13
• Duy Tùng 9x 12
• phuongnam366377 12

• Trang chủ
• Diễn đàn
• Lập Trình với Excel
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom