質問編集履歴
6
追加、訂正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -7,7 +7,7 @@
|
|
|
7
7
|
どなたか分かる方教えて下さい。できればsum関数を使わない以外でどうか
|
|
8
8
|
宜しくお願い致しますー。1,3,6,10,15,21,28,36,45,55は分からなかったので、
|
|
9
9
|
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)で、
|
|
10
|
-
何もコードで書いていません。
|
|
10
|
+
何もコードで書いていません。長文で大変、失礼致します。
|
|
11
11
|
Sub fornext1()
|
|
12
12
|
Dim i As Integer
|
|
13
13
|
Dim j As Integer
|
5
追加訂正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,10 +1,13 @@
|
|
|
1
1
|
|
|
2
2
|
ExcelVBA超初心者です。office2013のバージョンです。
|
|
3
|
+
E:\自分用vbA\fornext.xlsm.sheet1、Module1にコードに記載
|
|
3
4
|
a1:a10を1,2,3,4,5,6,7,8,9,10
|
|
4
5
|
b1:b10を、1,3(1+2),6(3+3),10(4+6),15(5+10),21(15+6),28(21+7),36(28+8),45(36+9),55(45+10)とセルの前の値を加算させながら、
|
|
5
6
|
表示したいんですけど、調べて色々試してみたんですが、上手くいきませんー。
|
|
6
7
|
どなたか分かる方教えて下さい。できればsum関数を使わない以外でどうか
|
|
7
|
-
宜しくお願い致しますー。
|
|
8
|
+
宜しくお願い致しますー。1,3,6,10,15,21,28,36,45,55は分からなかったので、
|
|
9
|
+
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)で、
|
|
10
|
+
何もコードで書いていません。
|
|
8
11
|
Sub fornext1()
|
|
9
12
|
Dim i As Integer
|
|
10
13
|
Dim j As Integer
|
4
文字修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,5 @@
|
|
|
1
|
-
|
|
1
|
+
|
|
2
|
+
ExcelVBA超初心者です。office2013のバージョンです。
|
|
2
3
|
a1:a10を1,2,3,4,5,6,7,8,9,10
|
|
3
4
|
b1:b10を、1,3(1+2),6(3+3),10(4+6),15(5+10),21(15+6),28(21+7),36(28+8),45(36+9),55(45+10)とセルの前の値を加算させながら、
|
|
4
5
|
表示したいんですけど、調べて色々試してみたんですが、上手くいきませんー。
|
3
画像添付の為
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
ExcelVBA超初心者です。office2013のバージョンです。
|
|
1
|
+
ExcelVBA超初心者です。office2013のバージョンです。
|
|
2
2
|
a1:a10を1,2,3,4,5,6,7,8,9,10
|
|
3
3
|
b1:b10を、1,3(1+2),6(3+3),10(4+6),15(5+10),21(15+6),28(21+7),36(28+8),45(36+9),55(45+10)とセルの前の値を加算させながら、
|
|
4
4
|
表示したいんですけど、調べて色々試してみたんですが、上手くいきませんー。
|
2
画像挿入
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -19,6 +19,6 @@
|
|
|
19
19
|
Next k
|
|
20
20
|
Next j
|
|
21
21
|
|
|
22
|
-
|
|
22
|
+
|
|
23
23
|
MsgBox i 'A列のみで合計を出しましたが、不必要です
|
|
24
24
|
End Sub
|
1
誤字、画像挿入
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
|
|
1
|
+
ExcelVBA超初心者です。office2013のバージョンです。
|
|
2
2
|
a1:a10を1,2,3,4,5,6,7,8,9,10
|
|
3
3
|
b1:b10を、1,3(1+2),6(3+3),10(4+6),15(5+10),21(15+6),28(21+7),36(28+8),45(36+9),55(45+10)とセルの前の値を加算させながら、
|
|
4
4
|
表示したいんですけど、調べて色々試してみたんですが、上手くいきませんー。
|
|
@@ -11,7 +11,7 @@
|
|
|
11
11
|
For j = 1 To 10
|
|
12
12
|
Cells(j, 1).Value = j
|
|
13
13
|
|
|
14
|
-
|
|
14
|
+
For k = 1 To 10
|
|
15
15
|
i = i + Cells(j, 1).Value
|
|
16
16
|
For k = 1 To 10
|
|
17
17
|
Cells(k, 2).Value = i '10のときの55がb1:b10に表示、ここをどうにかしたい
|