sumifs 轉成 vba 語法

jsc0518

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

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

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

感恩!

mdr0465

回復 32# samwang

samwang師兄,你好

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

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

謝謝

samwang

回復 31# mdr0465

請看附件，謝謝

mdr0465

回復 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"

samwang

回復 29# mdr0465


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

mdr0465

回復 28# samwang

SAMWANG師兄,你好

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

謝謝你耐心教導, 謝謝

samwang

回復  samwang


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

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

mdr0465

回復 26# samwang


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




謝謝

jsc0518

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

samwang

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

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