エラーながら

Question

Sub sumtotal_of_month() 
Dim a As Integer 
a = 0 

For i = 2 To 365 
    If (Sheets("Sheet1").Range("F" & i).Value = 1 And Sheets("Sheet1").Range("D" & i).Value <> "") Then 
    a = a + Sheets("Sheet1").Range("D" & i).Value 
End If 
Next i 
MsgBox (a) 
End Sub 

上記のコードは正常に動作しますが、私は、パラメータ月でを「1」を代用しようとすると、それは任意の出力を提供していません。私は初心者なので、このコードは非常にアマチュアです。私が使用してエクセル2007

Sub sumtotal_of_month(month As Integer) 
Dim a As Integer 
a = 0 

For i = 2 To 365 
    If (Sheets("Sheet1").Range("F" & i).Value = month And Sheets("Sheet1").Range("D" & i).Value <> "") Then 
    a = a + Sheets("Sheet1").Range("D" & i).Value 
End If 
Next i 
MsgBox (a) 
End Sub 

Answer 1

あなたは次のように、あなたのサブを簡素化することができ、あなたのサブにmonthパラメータとして渡している値かどうか確認する必要があるとします。

Sub sumtotal_of_month(month As Integer) 
    Dim a As Double 

    With Worksheets("Sheet1") 
     a = WorksheetFunction.SumIf(.Range("F2:F365"), month, .Range("D2:D365")) 
    End With 
    MsgBox a 
End Sub