質問編集履歴
6
追加、訂正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
b1=1(=A1),b2=3(B1+A2),b3=6(=B2+A3),b4=10(=B3+A4),b5=15(=B4+A5),b6=21(=B5+A6),b7=28(=B6+A7),b8=36(=B7+A8),b9=45(=B8+A9),b10=55(=B8+A9)で、
|
|
18
18
|
|
|
19
|
-
何もコードで書いていません。
|
|
19
|
+
何もコードで書いていません。長文で大変、失礼致します。
|
|
20
20
|
|
|
21
21
|
Sub fornext1()
|
|
22
22
|
|
5
追加訂正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,6 +1,8 @@
|
|
|
1
1
|
|
|
2
2
|
|
|
3
3
|
ExcelVBA超初心者です。office2013のバージョンです。
|
|
4
|
+
|
|
5
|
+
E:\自分用vbA\fornext.xlsm.sheet1、Module1にコードに記載
|
|
4
6
|
|
|
5
7
|
a1:a10を1,2,3,4,5,6,7,8,9,10
|
|
6
8
|
|
|
@@ -10,7 +12,11 @@
|
|
|
10
12
|
|
|
11
13
|
どなたか分かる方教えて下さい。できればsum関数を使わない以外でどうか
|
|
12
14
|
|
|
13
|
-
宜しくお願い致しますー。
|
|
15
|
+
宜しくお願い致しますー。1,3,6,10,15,21,28,36,45,55は分からなかったので、
|
|
16
|
+
|
|
17
|
+
b1=1(=A1),b2=3(B1+A2),b3=6(=B2+A3),b4=10(=B3+A4),b5=15(=B4+A5),b6=21(=B5+A6),b7=28(=B6+A7),b8=36(=B7+A8),b9=45(=B8+A9),b10=55(=B8+A9)で、
|
|
18
|
+
|
|
19
|
+
何もコードで書いていません。
|
|
14
20
|
|
|
15
21
|
Sub fornext1()
|
|
16
22
|
|
4
文字修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,6 @@
|
|
|
1
|
-
|
|
1
|
+
|
|
2
|
+
|
|
3
|
+
ExcelVBA超初心者です。office2013のバージョンです。
|
|
2
4
|
|
|
3
5
|
a1:a10を1,2,3,4,5,6,7,8,9,10
|
|
4
6
|
|
3
画像添付の為
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
ExcelVBA超初心者です。office2013のバージョンです。
|
|
1
|
+
ExcelVBA超初心者です。office2013のバージョンです。
|
|
2
2
|
|
|
3
3
|
a1:a10を1,2,3,4,5,6,7,8,9,10
|
|
4
4
|
|
2
画像挿入
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -40,7 +40,7 @@
|
|
|
40
40
|
|
|
41
41
|
|
|
42
42
|
|
|
43
|
-
|
|
43
|
+
|
|
44
44
|
|
|
45
45
|
MsgBox i 'A列のみで合計を出しましたが、不必要です
|
|
46
46
|
|
1
誤字、画像挿入
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
celVBA超初心者です。office2013のバージョンです。
|
|
1
|
+
ExcelVBA超初心者です。office2013のバージョンです。
|
|
2
2
|
|
|
3
3
|
a1:a10を1,2,3,4,5,6,7,8,9,10
|
|
4
4
|
|
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
|
|
26
26
|
|
|
27
|
-
|
|
27
|
+
For k = 1 To 10
|
|
28
28
|
|
|
29
29
|
i = i + Cells(j, 1).Value
|
|
30
30
|
|