sumifs 轉成 vba 語法

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

11^# 跳轉到 »

發表於 2021-12-7 20:47 | 只看該作者

回復 10# jsc0518

方便附上檔案且說明一下問題需求，謝謝

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 231
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-21

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

12^#

發表於 2021-12-7 21:08 | 只看該作者

本帖最後由 jsc0518 於 2021-12-7 21:13 編輯

回復 11# samwang

我希望將 F2欄位Sumif公式轉成VBA

1111.rar (19.63 KB)

Just do it.

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

13^#

發表於 2021-12-7 21:43 | 只看該作者

回復 12# jsc0518

請測試看看，謝謝
Sub Sumif()
For I = 2 To [a65536].End(3).Row
Cells(I, "G") = Application.Sumif(Sheets("ROUND").Range("A2:A65536"), Cells(I, "A"), Sheets("ROUND").Range("M2:M65536"))
Next
End Sub

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 231
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-21

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

14^#

發表於 2021-12-8 08:57 | 只看該作者

回復 13# samwang
Dear samwang,
正常可以使用，感謝您！ ^^

Just do it.

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

15^#

發表於 2021-12-8 11:36 | 只看該作者

回復 14# jsc0518

如果資料多的話，13#會比較慢一點，謝謝

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 231
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-21

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

16^#

發表於 2021-12-8 15:24 | 只看該作者

本帖最後由 jsc0518 於 2021-12-8 15:26 編輯

回復 15# samwang
Dear samwang,
您好！資料一多真的會跑很久，另外我套用的EXCEL檔案內有我有寫很多的函數，在執行sumif、sumifs這2個VBA語法都跑很慢，是否可以再簡化語法或是運算時間縮短呢？
Thank you.

Excel 執行VBA 時的畫面

Sub Sumif()

For I = 2 To [a65536].End(3).Row
Cells(I, "H") = Application.Sumif(Sheets("ROUND").Range("A2:A65536"), Cells(I, "A"), Sheets("ROUND").Range("M2:M65536"))
Next

End Sub

Sub Sumifs()

For I = 2 To [a65536].End(3).Row
Cells(I, "G") = Application.Sumifs((Sheets("ROUND").[M2:M10000]), (Sheets("ROUND").[A2:A10000]), Cells(I, "A"))
Next

End Sub

Just do it.

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

17^#

發表於 2021-12-8 15:56 | 只看該作者

回復 samwang
Dear samwang,
您好！資料一多真的會跑很久，另外我套用的EXCEL檔案內有我有寫很多的函數 ...
jsc0518 發表於 2021-12-8 15:24

請問方便可以附上檔案嗎?
以利測試用
謝謝

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

18^#

發表於 2021-12-8 17:09 | 只看該作者

回復 samwang
Dear samwang,
您好！資料一多真的會跑很久，另外我套用的EXCEL檔案內有我有寫很多的函數 ...
jsc0518 發表於 2021-12-8 15:24

因為沒有附檔，只能用12#的檔案去寫，請測試看看，謝謝

Sub test()
Dim Arr, Brr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
Tm = Timer
Arr = [ROUND!a1].CurrentRegion
For i = 2 To UBound(Arr)
T = Arr(i, 1)
xD(T) = Val(xD(T)) + Val(Arr(i, 13))
Next
With Sheets("Sumifs")
Brr = .Range(.[a1], .[a65536].End(3))
For i = 1 To UBound(Brr)
Brr(i, 1) = xD(Arr(i, 1) & "")
Next
.[g1].Resize(UBound(Brr)) = Brr
End With
MsgBox Timer - Tm
End Sub