Xin giúp đỡ về hàm đếm có điều kiện
- Thread starter xanhlacay
- Ngày gửi
Syn.nguyen
Thành viên mới
- Tham gia
- 1/2/19
- Bài viết
- 23
- Được thích
- 8
Bạn dùng thử tool đính kèm này nhé, viết bằng delphi XE6, thư viện XLSSpreadSheet:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
c,r,r1,l:Integer;
_sName:string;
begin
c:=0;
l:=1;
r:=1;
while r<=XLSSpreadSheet1.XLS.Sheets[0].LastRow do
begin
c:=0;
if UpperCase(XLSSpreadSheet1.XLS.Sheets[0].AsString[1,r])='X' then
begin
Inc(c);
_sName:=XLSSpreadSheet1.XLS.Sheets[0].AsString[0,r];
for r1 := r+1 to XLSSpreadSheet1.XLS.Sheets[0].LastRow do
begin
if (_sName=XLSSpreadSheet1.XLS.Sheets[0].AsString[0,r1])and(UpperCase(XLSSpreadSheet1.XLS.Sheets[0].AsString[1,r1])='X') then
begin
Inc(c);
end
else if _sName<>XLSSpreadSheet1.XLS.Sheets[0].AsString[0,r1] then
begin
XLSSpreadSheet1.XLS.Sheets[0].AsString[2,r]:=c.ToString();
r:=r1-1;
Break;
end;
end;
end;
Inc(r);
end;
XLSSpreadSheet1.InvalidateSheet;
Application.ProcessMessages;
vanthinh3101
Thành viên tích cực
- Tham gia
- 24/1/15
- Bài viết
- 1,112
- Được thích
- 1,436
- Giới tính
- Nam
- Nghề nghiệp
- Finance
Để giải quyết bài toán này bạn làm theo các bước sau:
1. Lọc ra danh sách SOPHIEU duy nhất từ danh sách ở cột A: có 2 cách là
- Cách 1: Copy, paste dữ liệu cột A sang 1 cột trống mới trong bảng tính, chọn Data/Remove Duplicate (ưu tiên dùng cách này vì đơn giản, dữ liệu khá nhiều).
- Cách 2: Sử dụng công thức (giả sử lấy danh sách duy nhất từ cột A ra cột F), công thức cho ô F2 (cách này sẽ bị chậm vì dữ liệu khá nhiều):
PHP:
F2=IFERROR(INDEX($A$2:$A$2784,MATCH(0,COUNTIF(F1:$F$1,$A$2:$A$2784),0),),"")
Ctrl + Shift + Enter, Fill xuống cho đến khi kết quả ra ô trống
Hoặc
F2=IFERROR(LOOKUP(2,1/(COUNTIF(F1:$F$1,$A$2:$A$2784)=0),$A$2:$A$2784),"")
Enter, Fill xuống cho đến khi kết quả ra ô trống
PHP:
G2=COUNTIFS($A$2:$A$2784,F2,$B$2:$B$2784,"x")
Enter, Fill xuốngcho mình hỏi 1 chút, mình muốn copy dữ liệu từ tool vào file ecxel của mình thì thế nào ạ
Syn.nguyen
Thành viên mới
- Tham gia
- 1/2/19
- Bài viết
- 23
- Được thích
- 8
Mình quên add button save vào tool, bạn thử lại tool mới nhé.
Cám ơn bạn nhiều
CÓ THỂ CHO MÌNH HỎI THÊM 1 CHÚT Ạ
BẠN CÓ THỂ MỞ RỘNG TOOL RA MỘT CHÚT ĐƯỢC KHÔNG, Ý MÌNH LÀ MÌNH COPY DỮ LIỆU KHÁC VÀO TOOL ĐỂ BỘ ĐẾM TỰ CHẠY Í Ạ, VÀ CŨNG NHỜ BẠN CHỈ CHO MÌNH CÁCH TÍNH TỔNG TIỀN CỦA 1 ĐƠN THUỐC NHƯ TRONG FILE ĐÍNH KÈM CỦA MÌNH Í. CÁM ƠN BẠN
Syn.nguyen
Thành viên mới
- Tham gia
- 1/2/19
- Bài viết
- 23
- Được thích
- 8
Bạn cập nhật tool mới này nhé.
bạn ơi, tool mới này chỉ có nút load file mà không có nút tính như tool trước ạ
Syn.nguyen
Thành viên mới
- Tham gia
- 1/2/19
- Bài viết
- 23
- Được thích
- 8
Vẫn tự động tính kết quả sau khi bạn load file mà
1.Load file giống như câu hỏi 1
2.Load file để tính toán giống câu hỏi 2:
File đính kèm
mình chỉ load dduocj tính tổng tiền thôi, còn đếm số lượng nó không ra bạn ạ, xem lại giúp mình với
File đính kèm
Syn.nguyen
Thành viên mới
- Tham gia
- 1/2/19
- Bài viết
- 23
- Được thích
- 8
Ah. Mình hiểu ý bạn rồi. Bạn muốn combine tính cả vào một file như câu hỏi 2 ah. Ok tý nữa mình modify lại tool cho
Syn.nguyen
Thành viên mới
- Tham gia
- 1/2/19
- Bài viết
- 23
- Được thích
- 8
Bạn dùng cái mới này nhé
Hic đúng thứ mình cần, cám ơn bạn nhiều lắm, hôm nay là hạn cuối, mình loay hoay cả tuần rồi mà mãi không ra
Lần chỉnh sửa cuối:
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,975
- Được thích
- 9,860
- Nghề nghiệp
- Công chức
Bạn nên đọc lại nội quy tại khoản 3, mục II. Hình thức của bài viết:
Quy định là không nên viết Hoa.
Lần chỉnh sửa cuối:
cám ơn bạn, mình không đọc kỹ, mình sửa lại rồi
