Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11671 / 13645 ツリー ←次へ | 前へ→

【14835】どなたかお願いします。 初心者です 04/6/8(火) 19:13 質問[未読]
【14841】Re:どなたかお願いします。 ちゃっぴ 04/6/8(火) 19:55 回答[未読]
【14843】Re:どなたかお願いします。 IROC 04/6/8(火) 20:04 回答[未読]
【14849】Re:どなたかお願いします。 初心者です 04/6/8(火) 20:53 質問[未読]
【14865】Re:どなたかお願いします。 ちゃっぴ 04/6/8(火) 23:00 回答[未読]
【14869】Re:どなたかお願いします。 初心者です 04/6/8(火) 23:17 質問[未読]
【14872】Re:どなたかお願いします。 ちゃっぴ 04/6/8(火) 23:22 回答[未読]
【14873】Re:どなたかお願いします。 初心者です 04/6/8(火) 23:24 お礼[未読]

【14835】どなたかお願いします。
質問  初心者です  - 04/6/8(火) 19:13 -

引用なし
パスワード
   1から10までの和を求めるプログラミングとフローチャートを作りたいのですが、
どなたか分かりやすく教えていただけますでしょうか。

【14841】Re:どなたかお願いします。
回答  ちゃっぴ  - 04/6/8(火) 19:55 -

引用なし
パスワード
   > 1から10までの和を求めるプログラミング

ではヒントを

For〜Nextステートメントをヘルプで調べてみてください。

【14843】Re:どなたかお願いします。
回答  IROC  - 04/6/8(火) 20:04 -

引用なし
パスワード
   式で計算した場合のプログラムです。

Sub sample()
Dim n As Long
n = 10
  MsgBox n * (n + 1) / 2
End Sub

【14849】Re:どなたかお願いします。
質問  初心者です  - 04/6/8(火) 20:53 -

引用なし
パスワード
   ▼ちゃっぴ さん:
先ほどは大変失礼致しました。
今後このような事がないように注意致します。

ところで、For〜Nextステートメントを調べましたが、
For カウンタ = 初期値 To 最終値
  実行する処理
  Next カウンタ
で初期値 から 最終値 までの間、実行する処理をし続けるという事でした。

【14865】Re:どなたかお願いします。
回答  ちゃっぴ  - 04/6/8(火) 23:00 -

引用なし
パスワード
   >ところで、For〜Nextステートメントを調べましたが、
>For カウンタ = 初期値 To 最終値
>  実行する処理
>  Next カウンタ
>で初期値 から 最終値 までの間、実行する処理をし続けるという事でした。

なので、実行する処理のところに

変数 = 変数 + カウンタ

として実行してみましょう。

【14869】Re:どなたかお願いします。
質問  初心者です  - 04/6/8(火) 23:17 -

引用なし
パスワード
   For カウンタ = 初期値 To 最終値
  変数 = 変数 + カウンタ
Next カウンタ

ですか。

【14872】Re:どなたかお願いします。
回答  ちゃっぴ  - 04/6/8(火) 23:22 -

引用なし
パスワード
   >For カウンタ = 初期値 To 最終値
>  変数 = 変数 + カウンタ
>Next カウンタ

当然ですが、カウンタと変数にはお好みの変数を、
初期値、最終値には1,10を指定してくださいね。

で、ループが終わった後に
Range("A1") = 変数

としてやれば、A1に結果が出力されます。

あとは、ヘルプ見るなり、参考書見るなりして考えてみてね☆

【14873】Re:どなたかお願いします。
お礼  初心者です  - 04/6/8(火) 23:24 -

引用なし
パスワード
   ▼ちゃっぴ さん:
ありがとうございます。あとはがんばります。

11671 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free