code chạy chậm trong power query

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài
Có
H

Hoale85

Thành viên mới
Tham gia
2/8/24
Bài viết
48
Được thích
1
Em nhờ các Anh/ Chị sửa giúp em code này với ạ. code này chạy chậm quá ạ. Em cảm ơn ạ.
let
Source = Excel.CurrentWorkbook(){[Name="neuw"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Mã KH", type text}, {"Mã KH.1", type text}, {"Tổng tiền", Int64.Type}, {"Hạn mức", Int64.Type}, {"Luyke", Int64.Type}, {"Countif", Int64.Type}}),

Sort = Table.Sort(#"Changed Type",{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
Types = Table.TransformColumnTypes(Sort,{{"Tổng tiền", type number}}),
Index = Table.AddIndexColumn(Types, "STT", 1, 1, Int64.Type),
Custom2 = Table.AddColumn(Index, "Ct2", each Table.SelectColumns(Table.FirstN(Index,[STT]),{"Mã KH", "Tổng tiền"})),
Custom3 = List.Transform (Custom2[Ct2], each
let
a = Table.LastN(_, 1)[Mã KH]{0},
Filter = Table.SelectRows(_, each [Mã KH] = a),
SumTien = List.Sum(Filter[Tổng tiền])
in SumTien),
Result = Table.AddColumn(Table.SelectColumns(Custom2,{"STT","Mã KH","Tổng tiền","Luyke"}), "Luyke1", each Custom3{[STT] - 1}),


//Sort1 = Table.Sort(Result,{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
// Types1 = Table.TransformColumnTypes(Sort1,{{"Tổng tiền", type number}}),
Index1 = Table.AddIndexColumn(Result, "STT1", 1, 1, Int64.Type),
Custom2_1 = Table.AddColumn(Index1, "Ct2", each Table.SelectColumns(Table.FirstN(Index1,[STT1]),{"Mã KH", "Luyke"})),

Custom3_1 = List.Transform (Custom2_1[Ct2], each
let
a = Table.LastN(_, 1)[Mã KH]{0},
Filter = Table.SelectRows(_, each [Mã KH] = a),
SumTien = List.Sum(Filter[Luyke])
in SumTien),
Result1 = Table.AddColumn(Table.SelectColumns(Custom2_1,{"STT","Mã KH","Luyke","Luyke1","Tổng tiền"}), "Luyke2", each Custom3_1{[STT] - 1}),
#"Reordered Columns" = Table.ReorderColumns(Result1,{"STT", "Mã KH", "Tổng tiền", "Luyke", "Luyke1", "Luyke2"})
in
#"Reordered Columns"Đính kèm file
 
Hoale85 đã viết:
Em nhờ các Anh/ Chị sửa giúp em code này với ạ. code này chạy chậm quá ạ. Em cảm ơn ạ.
let
Source = Excel.CurrentWorkbook(){[Name="neuw"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Mã KH", type text}, {"Mã KH.1", type text}, {"Tổng tiền", Int64.Type}, {"Hạn mức", Int64.Type}, {"Luyke", Int64.Type}, {"Countif", Int64.Type}}),

Sort = Table.Sort(#"Changed Type",{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
Types = Table.TransformColumnTypes(Sort,{{"Tổng tiền", type number}}),
Index = Table.AddIndexColumn(Types, "STT", 1, 1, Int64.Type),
Custom2 = Table.AddColumn(Index, "Ct2", each Table.SelectColumns(Table.FirstN(Index,[STT]),{"Mã KH", "Tổng tiền"})),
Custom3 = List.Transform (Custom2[Ct2], each
let
a = Table.LastN(_, 1)[Mã KH]{0},
Filter = Table.SelectRows(_, each [Mã KH] = a),
SumTien = List.Sum(Filter[Tổng tiền])
in SumTien),
Result = Table.AddColumn(Table.SelectColumns(Custom2,{"STT","Mã KH","Tổng tiền","Luyke"}), "Luyke1", each Custom3{[STT] - 1}),


//Sort1 = Table.Sort(Result,{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
// Types1 = Table.TransformColumnTypes(Sort1,{{"Tổng tiền", type number}}),
Index1 = Table.AddIndexColumn(Result, "STT1", 1, 1, Int64.Type),
Custom2_1 = Table.AddColumn(Index1, "Ct2", each Table.SelectColumns(Table.FirstN(Index1,[STT1]),{"Mã KH", "Luyke"})),

Custom3_1 = List.Transform (Custom2_1[Ct2], each
let
a = Table.LastN(_, 1)[Mã KH]{0},
Filter = Table.SelectRows(_, each [Mã KH] = a),
SumTien = List.Sum(Filter[Luyke])
in SumTien),
Result1 = Table.AddColumn(Table.SelectColumns(Custom2_1,{"STT","Mã KH","Luyke","Luyke1","Tổng tiền"}), "Luyke2", each Custom3_1{[STT] - 1}),
#"Reordered Columns" = Table.ReorderColumns(Result1,{"STT", "Mã KH", "Tổng tiền", "Luyke", "Luyke1", "Luyke2"})
in
#"Reordered Columns"Đính kèm file
Nhấp chuột vào đây để mở rộng...

Hoale85 đã viết:
Em nhờ các Anh/ Chị sửa giúp em code này với ạ. code này chạy chậm quá ạ. Em cảm ơn ạ.
let
Source = Excel.CurrentWorkbook(){[Name="neuw"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Mã KH", type text}, {"Mã KH.1", type text}, {"Tổng tiền", Int64.Type}, {"Hạn mức", Int64.Type}, {"Luyke", Int64.Type}, {"Countif", Int64.Type}}),

Sort = Table.Sort(#"Changed Type",{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
Types = Table.TransformColumnTypes(Sort,{{"Tổng tiền", type number}}),
Index = Table.AddIndexColumn(Types, "STT", 1, 1, Int64.Type),
Custom2 = Table.AddColumn(Index, "Ct2", each Table.SelectColumns(Table.FirstN(Index,[STT]),{"Mã KH", "Tổng tiền"})),
Custom3 = List.Transform (Custom2[Ct2], each
let
a = Table.LastN(_, 1)[Mã KH]{0},
Filter = Table.SelectRows(_, each [Mã KH] = a),
SumTien = List.Sum(Filter[Tổng tiền])
in SumTien),
Result = Table.AddColumn(Table.SelectColumns(Custom2,{"STT","Mã KH","Tổng tiền","Luyke"}), "Luyke1", each Custom3{[STT] - 1}),


//Sort1 = Table.Sort(Result,{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
// Types1 = Table.TransformColumnTypes(Sort1,{{"Tổng tiền", type number}}),
Index1 = Table.AddIndexColumn(Result, "STT1", 1, 1, Int64.Type),
Custom2_1 = Table.AddColumn(Index1, "Ct2", each Table.SelectColumns(Table.FirstN(Index1,[STT1]),{"Mã KH", "Luyke"})),

Custom3_1 = List.Transform (Custom2_1[Ct2], each
let
a = Table.LastN(_, 1)[Mã KH]{0},
Filter = Table.SelectRows(_, each [Mã KH] = a),
SumTien = List.Sum(Filter[Luyke])
in SumTien),
Result1 = Table.AddColumn(Table.SelectColumns(Custom2_1,{"STT","Mã KH","Luyke","Luyke1","Tổng tiền"}), "Luyke2", each Custom3_1{[STT] - 1}),
#"Reordered Columns" = Table.ReorderColumns(Result1,{"STT", "Mã KH", "Tổng tiền", "Luyke", "Luyke1", "Luyke2"})
in
#"Reordered Columns"Đính kèm fil
Nhấp chuột vào đây để mở rộng...

Hoale85 đã viết:
Em nhờ các Anh/ Chị sửa giúp em code này với ạ. code này chạy chậm quá ạ. Em cảm ơn ạ.
let
Source = Excel.CurrentWorkbook(){[Name="neuw"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Mã KH", type text}, {"Mã KH.1", type text}, {"Tổng tiền", Int64.Type}, {"Hạn mức", Int64.Type}, {"Luyke", Int64.Type}, {"Countif", Int64.Type}}),

Sort = Table.Sort(#"Changed Type",{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
Types = Table.TransformColumnTypes(Sort,{{"Tổng tiền", type number}}),
Index = Table.AddIndexColumn(Types, "STT", 1, 1, Int64.Type),
Custom2 = Table.AddColumn(Index, "Ct2", each Table.SelectColumns(Table.FirstN(Index,[STT]),{"Mã KH", "Tổng tiền"})),
Custom3 = List.Transform (Custom2[Ct2], each
let
a = Table.LastN(_, 1)[Mã KH]{0},
Filter = Table.SelectRows(_, each [Mã KH] = a),
SumTien = List.Sum(Filter[Tổng tiền])
in SumTien),
Result = Table.AddColumn(Table.SelectColumns(Custom2,{"STT","Mã KH","Tổng tiền","Luyke"}), "Luyke1", each Custom3{[STT] - 1}),


//Sort1 = Table.Sort(Result,{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
// Types1 = Table.TransformColumnTypes(Sort1,{{"Tổng tiền", type number}}),
Index1 = Table.AddIndexColumn(Result, "STT1", 1, 1, Int64.Type),
Custom2_1 = Table.AddColumn(Index1, "Ct2", each Table.SelectColumns(Table.FirstN(Index1,[STT1]),{"Mã KH", "Luyke"})),

Custom3_1 = List.Transform (Custom2_1[Ct2], each
let
a = Table.LastN(_, 1)[Mã KH]{0},
Filter = Table.SelectRows(_, each [Mã KH] = a),
SumTien = List.Sum(Filter[Luyke])
in SumTien),
Result1 = Table.AddColumn(Table.SelectColumns(Custom2_1,{"STT","Mã KH","Luyke","Luyke1","Tổng tiền"}), "Luyke2", each Custom3_1{[STT] - 1}),
#"Reordered Columns" = Table.ReorderColumns(Result1,{"STT", "Mã KH", "Tổng tiền", "Luyke", "Luyke1", "Luyke2"})
in
#"Reordered Columns"Đính kèm file
Nhấp chuột vào đây để mở rộng...
Nhờ các bác khắc phục giúp em với ạ. Em cảm ơn ạ
 
@Hoale85 Chị xinh đẹp có thể cho code vào thẻ code và gắn file đính kèm tử tế chút được hông? Chứ không có file cũng chẳng biết làm thế nào để giúp luôn ấy
 

File đính kèm

  • cong no 2.xlsm
    77.6 KB · Đọc: 4
BuiQuangThuan đã viết:
Em chỉ tiếp nối cho chị phần nội dung để có thể tiếp cận tới khả năng có nhiều sự giúp đỡ hơn thôi. Chứ SQL với em vẫn còn mới lắm
Nhấp chuột vào đây để mở rộng...
Nội dung em nối được rồi ạ, nhưng code chạy hơi chậm ạ. Em muốn xử lý để code chạy nhanh hơn ạ
 

File đính kèm

  • cong no 3.xlsm
    65.5 KB · Đọc: 14
Rút lại bài viết vì không đúng chủ đề...
 
Lần chỉnh sửa cuối:
Hoale85 đã viết:
Nội dung em nối được rồi ạ, nhưng code chạy hơi chậm ạ. Em muốn xử lý để code chạy nhanh hơn ạ
Nhấp chuột vào đây để mở rộng...
Vì sao phải tính 2 lần cột lũy kế? Mà lại tính bằng cùng 1 phương thức, cùng 1 số step y hệt nhau và lập lại?
 
ptm0412 đã viết:
Vì sao phải tính 2 lần cột lũy kế? Mà lại tính bằng cùng 1 phương thức, cùng 1 số step y hệt nhau và lập lại?
Nhấp chuột vào đây để mở rộng...
Dạ, Lúc đầu em chỉ tính luỹ kế 1 cột, nhưng suy nghĩ cho bài toán rộng hơn: là 2, hoặc nhiều cột hơn. Nên em mới nối code thêm để xem chạy được không ạ. Nhưng code chạy chậm quá ạ.
 
Hoale85 đã viết:
Dạ, Lúc đầu em chỉ tính luỹ kế 1 cột, nhưng suy nghĩ cho bài toán rộng hơn: là 2, hoặc nhiều cột hơn. Nên em mới nối code thêm để xem chạy được không ạ. Nhưng code chạy chậm quá ạ.
Nhấp chuột vào đây để mở rộng...
Nếu muốn mở rộng lũy kế thì gộp trong 1 vòng lặp thôi
JavaScript: 
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    RemovedColumns = Table.SelectColumns(Source,{"Tổng tiền", "Công nợ", "Mã KH"}),
    Sort = Table.Sort(RemovedColumns,{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
    Types = Table.TransformColumnTypes(Sort,{{"Tổng tiền", type number},{"Công nợ", type number}}),
    Index = Table.AddIndexColumn(Types, "STT", 1, 1, Int64.Type),
    Custom2 = Table.AddColumn(Index, "Ct2", each Table.SelectColumns(Table.FirstN(Index,[STT]),{"Mã KH", "Tổng tiền", "Công nợ"})),
    Custom3 = List.Transform (Custom2[Ct2], each
        let
            a = Table.LastN(_, 1)[Mã KH]{0},
            Filter = Table.SelectRows(_, each [Mã KH] = a),
            SumTien = List.Sum(Filter[Tổng tiền]),
            SumCno = List.Sum(Filter[Công nợ])
        in Text.From(SumTien) & "|" & Text.From(SumCno)),
    Result = Table.AddColumn(Table.SelectColumns(Custom2,{"STT","Mã KH","Công nợ","Tổng tiền"}), "Luyke", each Custom3{[STT] - 1}),
    SplitColumn = Table.SplitColumn(Result, "Luyke", Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), {"LuykeTien", "LuykeCno"}),
    Types2 = Table.TransformColumnTypes(SplitColumn,{{"LuykeTien", type number}, {"LuykeCno", type number}})
in
    Types2
 
ptm0412 đã viết:
Nếu muốn mở rộng lũy kế thì gộp trong 1 vòng lặp thôi
JavaScript: 
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    RemovedColumns = Table.SelectColumns(Source,{"Tổng tiền", "Công nợ", "Mã KH"}),
    Sort = Table.Sort(RemovedColumns,{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
    Types = Table.TransformColumnTypes(Sort,{{"Tổng tiền", type number},{"Công nợ", type number}}),
    Index = Table.AddIndexColumn(Types, "STT", 1, 1, Int64.Type),
    Custom2 = Table.AddColumn(Index, "Ct2", each Table.SelectColumns(Table.FirstN(Index,[STT]),{"Mã KH", "Tổng tiền", "Công nợ"})),
    Custom3 = List.Transform (Custom2[Ct2], each
        let
            a = Table.LastN(_, 1)[Mã KH]{0},
            Filter = Table.SelectRows(_, each [Mã KH] = a),
            SumTien = List.Sum(Filter[Tổng tiền]),
            SumCno = List.Sum(Filter[Công nợ])
        in Text.From(SumTien) & "|" & Text.From(SumCno)),
    Result = Table.AddColumn(Table.SelectColumns(Custom2,{"STT","Mã KH","Công nợ","Tổng tiền"}), "Luyke", each Custom3{[STT] - 1}),
    SplitColumn = Table.SplitColumn(Result, "Luyke", Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), {"LuykeTien", "LuykeCno"}),
    Types2 = Table.TransformColumnTypes(SplitColumn,{{"LuykeTien", type number}, {"LuykeCno", type number}})
in
    Types2
Nhấp chuột vào đây để mở rộng...
Dạ anh, em cũng nghĩ tới phương án gộp vòng lặp, nhưng em mới tập viết code nên ko biết gộp thế nào. Em cảm ơn anh ạ.
 
Code này gọn hơn 1 xíu
JavaScript: 
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    RemovedColumns = Table.SelectColumns(Source,{"Tổng tiền", "Công nợ", "Mã KH"}),
    Sort = Table.Sort(RemovedColumns,{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
    Types = Table.TransformColumnTypes(Sort,{{"Tổng tiền", type number},{"Công nợ", type number}}),
    Index = Table.AddIndexColumn(Types, "STT", 1, 1, Int64.Type),
    Custom2 = Table.AddColumn(Index, "Ct2", each Table.SelectColumns(Table.FirstN(Index,[STT]),{"Mã KH", "Tổng tiền", "Công nợ"})),
    Custom3 = List.Transform (Custom2[Ct2], each
        let
            a = Table.LastN(_, 1)[Mã KH]{0},
            Filter = Table.SelectRows(_, each [Mã KH] = a),
            SumTien = List.Sum(Filter[Tổng tiền]),
            SumCno = List.Sum(Filter[Công nợ])
        in {SumTien,SumCno}),
    Result = Table.AddColumn(Table.SelectColumns(Custom2,{"STT","Mã KH","Công nợ","Tổng tiền"}), "LuykeTien", each Custom3{[STT] - 1}{0}, type number),
    Result2 = Table.AddColumn(Result, "LuykeCno", each Custom3{[STT]-1}{1},type number)
   in
    Result2
 
ptm0412 đã viết:
Code này gọn hơn 1 xíu
JavaScript: 
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    RemovedColumns = Table.SelectColumns(Source,{"Tổng tiền", "Công nợ", "Mã KH"}),
    Sort = Table.Sort(RemovedColumns,{{"Mã KH", Order.Ascending}, {"Tổng tiền", Order.Ascending}}),
    Types = Table.TransformColumnTypes(Sort,{{"Tổng tiền", type number},{"Công nợ", type number}}),
    Index = Table.AddIndexColumn(Types, "STT", 1, 1, Int64.Type),
    Custom2 = Table.AddColumn(Index, "Ct2", each Table.SelectColumns(Table.FirstN(Index,[STT]),{"Mã KH", "Tổng tiền", "Công nợ"})),
    Custom3 = List.Transform (Custom2[Ct2], each
        let
            a = Table.LastN(_, 1)[Mã KH]{0},
            Filter = Table.SelectRows(_, each [Mã KH] = a),
            SumTien = List.Sum(Filter[Tổng tiền]),
            SumCno = List.Sum(Filter[Công nợ])
        in {SumTien,SumCno}),
    Result = Table.AddColumn(Table.SelectColumns(Custom2,{"STT","Mã KH","Công nợ","Tổng tiền"}), "LuykeTien", each Custom3{[STT] - 1}{0}, type number),
    Result2 = Table.AddColumn(Result, "LuykeCno", each Custom3{[STT]-1}{1},type number)
   in
    Result2
Nhấp chuột vào đây để mở rộng...
Em cảm ơn Các Anh/ Chị nhiều ạ.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

gaydary
Chữ nhảy dưới table Word khi nhấn enter
Trả lời
0
Đọc
1
gaydary
gaydary
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
    • Yêu thích
2
Trả lời
30
Đọc
613
PhanTuHuong
PhanTuHuong
HUYBOY
Tính trung bình trọng số
Trả lời
1
Đọc
49
huuthang_bd
huuthang_bd
GPE-Trợ Lý
TP.HCM - Đăng ký tham dự sinh nhật GIAIPHAPEXCEL lần thứ 18 ngày 06/10/2024
    • Thích
Trả lời
7
Đọc
382
PhanTuHuong
PhanTuHuong
Kiều Mạnh
Lấy dữ liệu cổ phiếu từ Website Cafef.vn về Excel
    • Thích
Trả lời
13
Đọc
290
Kiều Mạnh
Kiều Mạnh
thaihung85
Điền giá trị từ bảng tham chiếu vào cột theo nhiều điều kiện
Trả lời
9
Đọc
149
thaihung85
thaihung85
N
  • Question
Com Add-Ins trong VBA
Trả lời
3
Đọc
219
HeSanbi
HeSanbi
LuuGiaPhúc
Code để lọc theo nhiều điều kiện
2 3
Trả lời
57
Đọc
1K
ptm0412
ptm0412
NguyenTai1003
  • Question
Code lọc nội lực VBA
2
Trả lời
22
Đọc
3K
cantl
C
N
  • Question
Thuộc tính ActiveWindow
Trả lời
0
Đọc
36
n.n.Tien
N
hong9762
2 file excel cùng phông chữ, kích thước chữ, độ rộng của hàng và cột giống nhau nhưng in ra lại khác nhau
Trả lời
1
Đọc
45
vanle33
vanle33
GPE-Trợ Lý
HN - Thông báo hủy sự kiện sinh nhật lần thứ 18 tại HN ngày 29/09/2024
    • Thích
Trả lời
0
Đọc
54
GPE-Trợ Lý
GPE-Trợ Lý
B
  • Question
Chuyển dữ liệu từ cột sang dòng bằng vba excel
Trả lời
16
Đọc
249
ptm0412
ptm0412
P
Tính thể tích hình trụ ngang
    • Thích
3 4 5
Trả lời
95
Đọc
124K
Long.ngth
L
T
  • Question
Chuyển ảnh từ File Excel lên Form
2
Trả lời
21
Đọc
574
Yêu thich VBA
Y
PhanTuHuong
Các địa phương thiệt hại nặng nề do bão Yagi (số 3)
    • Thích
Trả lời
7
Đọc
182
SA_DQ
SA_DQ
V
Tiếng Tây
    • Cười
Trả lời
7
Đọc
190
cantl
C
H
Tổng hợp dữ liệu từ nhiều sheet theo điều kiện
Trả lời
1
Đọc
94
HUONGHCKT
H
haidang3245
Xin trợ giúp - Làm lại code cho mượt mà hơn
Trả lời
1
Đọc
101
VetMini
V
Y
  • Question
Bạn có phải dịch các báo giá sang tiếng Anh Nhật Hàn Trung không ?
    • Thích
Trả lời
0
Đọc
60
Yêu thich VBA
Y
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

Back
Top Bottom