●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ ..

405:400
07/07/17 18:14:05
400です。皆さんのレスを参考に17：00から試行錯誤し直してやっと完成したので報告します。
下のプログラムで表示させることができました。本当、ありがとうございました。

Sub 課題1()
Const N = 10
Dim A(N)

For T = 1 To 10
A(T) = T * 10
Next T

S = 0

For j = 1 To N
S = S + A(j)
Cells(j, 1) = A(j)
Next j

S = 0
For c = 1 To N
S = S + A(c)
Cells(1, 2) = S
Next c

End Sub

次ページ

続きを表示

1を表示