返回列表 上一主題 發帖

sumifs 轉成 vba 語法

sumifs 轉成 vba 語法

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

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

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

感恩!
Just do it.

我是直接寫成

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

但有錯誤

01.jpg
2017-5-30 18:37
Just do it.

TOP

回復 2# jsc0518

'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"))
改為
Cells(I, "G") = Application.SumIfs([R5:R50], [O5:O50], Cells(I, "A"), [P5:P50], Cells(I, "B"), [Q5:Q50], Cells(I, "C"))
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 3# ML089

感謝您的回覆,可以使用!
再次謝謝!
Just do it.

TOP

回復 3# ML089

請問這樣的函數要怎麼改
=SUMIF(入庫單!$O$2:$O$1001,倉庫庫存!A4,入庫單!$R$2:$R$1001)
感謝~

TOP

= Application.SumIf(Sheet1.Range("Q"), Sheet1.Cells(4, 1), Sheet1.Range("R:R"))

TOP

回復 6# rouber590324


    感謝!!~~

TOP

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題