質問編集履歴
2
コードの補足
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -4,7 +4,7 @@
|
|
|
4
4
|
ExcelVBA
|
|
5
5
|
コード
|
|
6
6
|
Sub 売上金は出せたが､累計金額をどうにかして出したい()
|
|
7
|
-
Dim i As Long
|
|
7
|
+
Dim i As Long, j as long
|
|
8
8
|
lastrow = cells(rows.Count, 1).End(xlUp).Row
|
|
9
9
|
For i = 2 To lastrow
|
|
10
10
|
For j = 2 To lastrow
|
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -9,7 +9,7 @@
|
|
|
9
9
|
For i = 2 To lastrow
|
|
10
10
|
For j = 2 To lastrow
|
|
11
11
|
cells(i, 3) = cells(i, 1) * cells(i, 2)
|
|
12
|
-
sum = cells(j, 1).Value
|
|
12
|
+
sum = cells(j, 1).Value '←どうかにしたい
|
|
13
|
-
sum2 = cells(i, 2) + cells(j, 1).Value
|
|
13
|
+
sum2 = cells(i, 2) + cells(j, 1).Value '←どうかにしたい
|
|
14
14
|
Next j
|
|
15
15
|
Next i
|