Excel VBA「プログラミング基礎」について困っています。

問題１
１、１+２、１+２+３、１+２+３+４、・・・、１+２+３+・・・+１００までの結果をセルの行方向に表示

問題２
１から１００までの２乗の答えを列方向に表示する。

問題３
１から１００までを各セルに表示させていく。行方向に表示させるが、
１０で割り切れる数を表示したら、改行すること。（ｍodを使う）

問題４
１から１００までの数の中で、３の倍数が何個あるか
（modを使う。割り切れたら変数にカウント）

ひとつでもいいのでこの問題達の命令文を
教えていただきたいです。

お願いします。
自分で買ったテキストを読んでも
わからない文字ばっかりでわからなくなってしまいました。

お願いします。

No.1 回答者： mc-aumsc 回答日時： 2009/07/05 23:42

自分には上の２つしか分からないので、それだけ…。

自分なりの解答なので、もっといいやり方があるかもしれません。
あくまでも一例です。


問題１
Dim i As Integer
Range("A1")=1
For i=2 To 100
Cells(i,1)=Cells(i-1,1)+i
Next i


＜簡単な解説＞
１行目は変数の宣言(iが変数になる)
セルA1に1を代入
For ～ Nextはループの命令文で、変数iが2からスタートして100になるまで、For ～ Next間の命令文を繰り返す。
Cellsはセル番地を行番号、列番号で指定する
Cells(i,1)はi(変数なので、数が変わります)行目と1列目のセル番地を表す。



問題２
Dim i As Integer
For i=1 To 100
Cells(1,i)=i^2
Next i


問題１とやり方は変わりません。
ただ、今度は列方向での表示なので、Cells(i,1)ではなく、Cells(1,i)と変数の位置が変わっています。

この回答へのお礼

質問に答えていただいた上解説までつけていだだき
ありがとうございます★!

解説、とてもわかりやすいです。

ありがとうございました!!

お礼日時：2009/07/06 00:00