sumifs 轉成 vba 語法

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

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

2^#

發表於 2017-5-30 18:37 | 顯示全部帖子

我是直接寫成

Sub S40()
For I = 5 To [a65536].End(3).Row
Cells(I, "G") = SumIfs(Cells(I, "R"), Cells(I, "O"), Cells(I, "A"), Cells(I, "P"), Cells(I, "B"), Cells(I, "Q"), Cells(I, "C"))
Next
End Sub

但有錯誤

Just do it.

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

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

3^#

發表於 2017-5-31 07:50 | 顯示全部帖子

回復 3# ML089

感謝您的回覆，可以使用!
再次謝謝!

Just do it.

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

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

4^#

發表於 2021-12-7 16:46 | 顯示全部帖子

回復 3# ML089
Dear ML,
抱歉，可以再幫我解一下疑惑嗎？

此段為excel函數，我想把他轉VBA，因有跨工作表的問題，所以自己run不出來
=SUMIFS(ROUND!M2:M10000,ROUND!A2:A10000,A2)

下方是我改過的語法，但有問題

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.

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

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

5^#

發表於 2021-12-7 19:47 | 顯示全部帖子

回復 9# samwang
Dear samwang,
晚上好！感謝您的回覆歐，剛用了測試OK。

再請教您一個問題
我若改成 Sumif (語法如下) ，但會發生 400 錯誤，是否可幫我解惑，哪個語法有問題
Thank you very much.

Sub Sumif()

For I = 2 To [a65536].End(3).Row
Cells(I, "G") = Application.Sumif(工作表2.Range("A"), 工作表3.Cells(I, "A"), 工作表2.Range("M:M"))
Next

End Sub

Just do it.

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

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

6^#

發表於 2021-12-7 21:08 | 顯示全部帖子

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

回復 11# samwang

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

1111.rar (19.63 KB)

Just do it.

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

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

7^#

發表於 2021-12-8 08:57 | 顯示全部帖子

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

Just do it.

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

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

8^#

發表於 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.

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

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

9^#

發表於 2021-12-8 20:56 | 顯示全部帖子

回復 18# samwang
Dear samwang,
晚上好！感謝您的熱心回復。因主要檔案資料內容為公司的資料，所以僅能用示範檔案給您，抱歉 ><"
剛剛是RUN了一下，有錯誤訊息！

Just do it.

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

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

10^#

發表於 2021-12-8 22:03 | 顯示全部帖子

回復 20# samwang
Dear samwang,
您好！您所附的檔案測試正常。我改了您的VBA至我的EXCEL上，有問題，畫面如下

紅字是我改過的
----------------------------------------------------------------------
Sub test22()
Dim Arr, Brr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
Tm = Timer
Arr = [繳庫量!g1].CurrentRegion
For i = 2 To UBound(Arr)
T = Arr(i, 1)
xD(T) = Val(xD(T)) + Val(Arr(i, 13))
Next
With Sheets("Analysis")
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
----------------------------------------------------------------------

Just do it.