麻辣家族討論版版 » Excel程式區 » sumifs 轉成 vba 語法

12 3 4 下一頁

返回列表下一主題上一主題發帖

sumifs 轉成 vba 語法

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2017-5-30 18:29 | 只看該作者

sumifs 轉成 vba 語法

Dear 各位先進，
我有寫了函數
=SUMIFS(R5:R50,O5:O50,A5,P5:P50,B5,Q5:Q50,C5)

有找了網路寫成VBA的作業，但仍不懂該如何寫VBA

是否可請教各位先進，教導一下 SUMIFS VBA 語法

感恩!

樓主熱帖

收藏

Just do it.

中學生 Rank: 2

帖子: 159
主題: 44
精華: 0
積分: 241
點名: 15
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-4-16

33^#

發表於 2022-4-26 14:27 | 只看該作者

本帖最後由 mdr0465 於 2022-4-26 14:33 編輯

回復 32# samwang

samwang師兄,你好

受教了, 原來是我在運算上做了多餘的事情,

萬分感激指導我的錯處, 日後如果不懂的地方,再看samwang 師兄請教

謝謝

大學生 Rank: 4

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

32^#

發表於 2022-4-26 13:28 | 只看該作者

回復 31# mdr0465

請看附件，謝謝

Sumif VBA_0426.zip (23.3 KB)

中學生 Rank: 2

帖子: 159
主題: 44
精華: 0
積分: 241
點名: 15
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-4-16

31^#

發表於 2022-4-26 13:05 | 只看該作者

本帖最後由 mdr0465 於 2022-4-26 13:07 編輯

回復 30# samwang

SAMWANG 師兄,你好

我都看到資料回填時也有錯位問題, 但我用愚蠢的方法我修正了(請看以下紅字的地方), 這一點我始終不明白當中是為何這樣設定就可以解決, 請SAMWANG 指教

.[A20:A21].EntireRow.Clear
.[B20].Resize(1, xD2.Count) = xD2.Keys
Crr = .[B20].CurrentRegion
For x = 1 To UBound(Crr, 2)
Crr(1, x) = xD(Crr(1, x) & "")
Next

.[B21].Resize(UBound(Crr), xD.Count - 4) = Crr
.[A20] = "XX"
.[A21] = "YY"

Sumif VBA.rar (24.6 KB)

SUMIF

大學生 Rank: 4

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

30^#

發表於 2022-4-26 12:19 | 只看該作者

回復 29# mdr0465

另外，資料回填時也有錯位問題，多善用F8就可知道問題在哪裡，謝謝

中學生 Rank: 2

帖子: 159
主題: 44
精華: 0
積分: 241
點名: 15
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-4-16

29^#

發表於 2022-4-26 12:13 | 只看該作者

回復 28# samwang

SAMWANG師兄,你好

謝謝你的指導, 我想想怎樣在回填資料時先舊的答案先清除,

謝謝你耐心教導, 謝謝

大學生 Rank: 4

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

28^#

發表於 2022-4-26 11:57 | 只看該作者

回復 samwang

samwang你好
我借用你的完成品修改一下, 將sumif變成橫向的,第一次運算是成功的, 但 ...
mdr0465 發表於 2022-4-26 10:30

回填資料時要先舊的答案先清除，我想你應該知道如何做，寫得很好，自己在試試看，謝謝

中學生 Rank: 2

帖子: 159
主題: 44
精華: 0
積分: 241
點名: 15
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-4-16

27^#

發表於 2022-4-26 10:30 | 只看該作者

本帖最後由 mdr0465 於 2022-4-26 10:31 編輯

回復 26# samwang

samwang你好
我借用你的完成品修改一下, 將sumif變成橫向的,第一次運算是成功的, 但不知為何當第二次運算時就會失敗, 請幫忙查看並指點我錯在那里,

謝謝

Sumif VBA.rar (24.19 KB)

高中生 Rank: 3 Rank: 3

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

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

26^#

發表於 2021-12-10 20:56 | 只看該作者

回復 25# samwang
Dear samwang,
Thank you so much.感謝您囉！ ^_^

Just do it.

大學生 Rank: 4

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

25^#

發表於 2021-12-10 15:35 | 只看該作者

回復 samwang
Dear samwang,
OK，可以用。在與您請教一下，執行後H1欄位的"VBA"都會變成空白。
是否可 ...
jsc0518 發表於 2021-12-10 15:03

.[h1].Resize(UBound(Brr)) = Brr
.[h1] = "VBA"
End With

靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。

12 3 4 下一頁

返回列表下一主題上一主題