February 2, 2006
カテゴリ： 連載『超初心者向けVBA話』
それでは先日の問題の解答からはじめます。
◆解法＆プログラミング
↓が問題です、解答の制限時間は30秒です。
↓が解答です。
解答の内容を数学用語に置き換えて、公式化します。
公式をプログラムに置き換えます。
'<-----ここから-----
Function tousawa(初項 As Long, 公差 As Long, 項数 As Long) As Long
tousawa = (初項 + (初項 + (公差 * (項数 - 1)))) * 項数 / 2
'-----ここまで----->
◆動作確認
動作確認は 超初心者VBA講座-vol.1- にVBAの実行方法があるので
それを参考に試してください。
1)VB Editorで入力後保存して、関数挿入ウィザードにて[ユーザー定義]から『tousawa』を選ぶ。
2)引数ウィザードに『初項1』『公差1』『項数10000』を入力してOK。
3)うまく実行できればこうなります。
◆ExcelとVBAの関係
ExcelとVBAの関連性の概念を表しました。
(技術的な観点では間違ってるかもしれないけど概念としては大丈夫…)
(2)tousawa内で計算がされ、その結果が戻り値へ代入され
(3)エクセルのセルに表示される
といった流れです。
-----
以上で第4回を終わりたいと思います。
◆解法＆プログラミング
↓が問題です、解答の制限時間は30秒です。
↓が解答です。
解答の内容を数学用語に置き換えて、公式化します。
公式をプログラムに置き換えます。
'<-----ここから-----
Function tousawa(初項 As Long, 公差 As Long, 項数 As Long) As Long
tousawa = (初項 + (初項 + (公差 * (項数 - 1)))) * 項数 / 2
'-----ここまで----->
◆動作確認
動作確認は 超初心者VBA講座-vol.1- にVBAの実行方法があるので
それを参考に試してください。
1)VB Editorで入力後保存して、関数挿入ウィザードにて[ユーザー定義]から『tousawa』を選ぶ。
2)引数ウィザードに『初項1』『公差1』『項数10000』を入力してOK。
3)うまく実行できればこうなります。
◆ExcelとVBAの関係
ExcelとVBAの関連性の概念を表しました。
(技術的な観点では間違ってるかもしれないけど概念としては大丈夫…)
(2)tousawa内で計算がされ、その結果が戻り値へ代入され
(3)エクセルのセルに表示される
といった流れです。
-----
以上で第4回を終わりたいと思います。
お気に入りの記事を「いいね！」で応援しよう
[連載『超初心者向けVBA話』] カテゴリの最新記事
-
何だかんだ言いながら… February 14, 2007 コメント(2)
-
第3回-ところでVBAって何よ？いやそもそも… February 1, 2006
-
『超初心者向けVBA話 -vol.2-』 January 25, 2006
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
