エクセルマクロ初心者です、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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) ExcelVBAの転記について 1 2022/03/23 20:13
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Excel(エクセル) VBAのエラーが直せません 4 2023/06/12 22:10
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
15%増しの計算方法
-
前年比の%の計算式を教えてく...
-
パーセントの計算
-
3分2の計算教えて下さい
-
エクセルで関数計算後の値を数...
-
ラジアン値を°′″(度・分・秒)...
-
「出来型」と「出来形」の使い...
-
3割アップとは、どうのように...
-
同じ時間なのに、60進と10...
-
250gを8割と2割に分けると
-
一定倍したある数を元に戻すには?
-
一日ずつ2倍の金額をもらい続...
-
6畳間は何立方メートル?
-
(かっこ)^2のかっこ内の符号を...
-
算数で質問です よろしくお願い...
-
πがついた整数と普通の整数って...
-
8の4分の3乗は?
-
割引率の計算を教えてください。
-
算数の比 0:1
-
日にちの計算が解からないらし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
15%増しの計算方法
-
前年比の%の計算式を教えてく...
-
3分2の計算教えて下さい
-
パーセントの計算
-
ラジアン値を°′″(度・分・秒)...
-
日にちの計算が解からないらし...
-
エクセルで関数計算後の値を数...
-
ある数値の回復率の計算につい...
-
教えて下さい
-
250gを8割と2割に分けると
-
指数計算 2^n-1
-
6畳間は何立方メートル?
-
一日ずつ2倍の金額をもらい続...
-
3割アップとは、どうのように...
-
「出来型」と「出来形」の使い...
-
πがついた整数と普通の整数って...
-
毎日10%ずつお金が増える時...
-
Excelの反復計算がわかりません。
-
一定倍したある数を元に戻すには?
-
1÷無限=0ということは数(大き...
おすすめ情報