|
A3の
Sheets("4")がアクティブでA3の科目がない場合、G=G+1とすると途中までうまくいくのデバックが出てしまいます。
どこがいけないのでしょうか、よろしくお願いいたします。
Private Sub Button集計_Click()
Set wf = Application.WorksheetFunction
Set myR1 = Sheets("【仕訳帳】").Range("C2:C65536") '借方金額
Set myR2 = Sheets("【仕訳帳】").Range("D2:D65536") '借方科目
Set myR3 = Sheets("【仕訳帳】").Range("F2:F65536") '貸方科目
Set myR4 = Sheets("【仕訳帳】").Range("G2:G65536") '貸方金額
G = 3
For Each i In myR2
If Cells(G, 1).Value = "" Then
'G=G+1と入れるとエラーがでてしまいます。
Else
If Cells(G, 1).Value = i.Value Then
tr1 = wf.SumIf(Sheets("【仕訳帳】").Range("D2:D65536"), Cells(G, 1).Value, Sheets("【仕訳帳】").Range("C2:C65536"))
Cells(G, 3).Value = tr1
MsgBox tr1
G = G + 1
Else
G = G + 1
End If
End If
Next
|
|