プロが教えるわが家の防犯対策術!

エクセルマクロ初心者です、cellsで範囲指定してsumができません、何が問題でしょう?どなたかチェックをお願いいたします。

Sub 計算する()
Dim a

Dim n As Long
n = 21
Dim w
Set w = Worksheets("内訳明細")

Range("e21:f20000").Select
Selection.ClearContents

Do Until w.Cells(n, 1) = ""
If w.Cells(n, 1) = "" Then
Else
a = WorksheetFunction.Sum(Range(Cells(n, 7), Cells(n, 9)).Select)
w.Cells(n, 5) = a
' w.Cells(n, 5) = w.Cells(n, 7) + w.Cells(n, 8) + w.Cells(n, 9)
w.Cells(n, 6) = w.Cells(n, 4) - w.Cells(n, 5)
End If
n = n + 1
Loop

End Sub

A 回答 (1件)

WorksheetFunction.Sum(Range(Cells(n, 7), Cells(n, 9)).Select)



.Selectは要らない。

WorksheetFunction.Sum(Range(Cells(n, 7), Cells(n, 9)))
    • good
    • 0
この回答へのお礼

超素早い回答ありがとうございます!
いきなりできちゃいました!感動です!
ありがとうございます♪

お礼日時:2016/06/21 14:19

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!