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 Featured content 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 đề Note 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

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 (1 người xem)

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

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

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

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 GPE_HELP.xlsm 22.4 KB · Đọc: 64

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,776 Được thích 9,819

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 GPE_HELP.xlsm 22.4 KB · Đọc: 36

Upvote 0

phulien1902

GPE - My love

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

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

D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (1 người xem)

• dieppk.nb92
• Chủ nhật lúc 01:22
• Hàm và công thức Excel

Trả lời 14 Đọc 349 30 phút trước dieppk.nb92 D Nếu diễn đàn GPE đóng cửa? (2 người xem)

• • 
  • 

• PhanTuHuong
• Chủ nhật lúc 23:46
• Thư giãn

Trả lời 17 Đọc 457 Hôm nay lúc 09:21 anhtuanle123 A CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025 (1 người xem)

• • 

• GPE-Trợ Lý
• 24/11/25
• Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 826 Hôm nay lúc 07:38 PhanTuHuong

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (1 người xem)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Hôm qua, lúc 19:57 Maika8008 P Lỗi hàm VBA phải add-in sau mỗi lần mở file (1 người xem)

• phamdinh.huy.aladin@gmail
• Thứ hai lúc 10:18
• Hàm và công thức Excel

Trả lời 5 Đọc 146 Hôm qua, lúc 13:59 phamdinh.huy.aladin@gmail P K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ... (1 người xem)

• kaoehtkid
• Thứ hai lúc 19:04
• Những vấn đề chung

Trả lời 4 Đọc 101 Hôm qua, lúc 13:49 ptm0412 D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• Thứ sáu lúc 15:39
• Lập Trình với Excel

Trả lời 14 Đọc 288 Hôm qua, lúc 09:00 ptm0412

• Question Question

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

• • 
  • 
  • 

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

4 5 6 Trả lời 580 Đọc 82K Hôm qua, lúc 08:39 pycckuu410 E

• Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10 (1 người xem)

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 518 Thứ hai lúc 16:19 eagle12 E Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự (1 người xem)

• HeSanbi
• Thứ bảy lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 1 Đọc 147 Thứ hai lúc 10:34 jonythanht J H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

• H_P
• Thứ bảy lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 120 Thứ hai lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên (1 người xem)

• Ngựa con 2002
• Thứ bảy lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 7 Đọc 147 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện (2 người xem)

• QUANSUNG
• Thứ bảy lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 141 Chủ nhật lúc 00:02 dungpham01 D Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (1 người xem)

• Dinh Hong Nhung
• Thứ năm lúc 10:36
• Hàm và công thức Excel

Trả lời 14 Đọc 770 Thứ bảy lúc 10:43 Cúc Hr C CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ (1 người xem)

• • 
  • 

• PhanTuHuong
• 4/10/22
• Thư giãn

Trả lời 8 Đọc 2K Thứ bảy lúc 00:09 PhanTuHuong D

• Question Question

IN TỰ ĐỘNG TỪ DỮ LIỆU CÓ SẴN

• duongnhuxuyen
• 12/11/25
• Lập Trình với Excel

Trả lời 14 Đọc 485 Thứ sáu lúc 19:42 duongnhuxuyen D V Biểu diễn số đếm theo hình vẽ từ Shape

• Vũ Hải Sơn
• 2/12/25
• Hàm và công thức Excel

Trả lời 34 Đọc 753 Thứ sáu lúc 15:31 Vũ Hải Sơn V T Xử lý lỗi xuất hiện màu cam khi chọn 1 ô trong excel.

• Thúy Sa
• Thứ năm lúc 17:17
• Những vấn đề chung

Trả lời 1 Đọc 120 Thứ năm lúc 20:29 Maika8008 L

• Question Question

Tạo ComboBox để tìm kiếm tên (1 người xem)

• lyvanthang
• Thứ năm lúc 10:36
• Lập Trình với Excel

Trả lời 4 Đọc 222 Thứ năm lúc 20:26 HUONGHCKT H Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn 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

• Maika8008 33
• thanthanhan 20
• dungpham01 18
• eagle12 16
• ongke0711 16
• nguyenanhtruong2409 14
• Phan Thế Hiệp 13
• HUONGHCKT 12
• vic_it 11
• ptm0412 11
• nhhnam 10
• pycckuu410 10
• Vũ Hải Sơn 9
• HeSanbi 8
• dieppk.nb92 8
• bsbnhh 7
• Gà Con yêu VBA 7
• Hana2610 6
• duongnhuxuyen 6
• Mr.hieudoanxd 5

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

• Phan Thế Hiệp 63
• Maika8008 26
• thanthanhan 17
• ongke0711 17
• ptm0412 15
• HeSanbi 12
• HUONGHCKT 9
• dungpham01 9
• Cúc Hr 8
• eagle12 8
• dieppk.nb92 6
• befaint 5
• Mr.hieudoanxd 5
• pycckuu410 5
• SA_DQ 4
• nguyenanhtruong2409 4
• Phuocam 4
• nhhnam 2
• Gà Con yêu VBA 2
• huuthang_bd 2

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

• Trang chủ
• Diễn đàn
• 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