2009/12/15
ExcelVBA初級向けTip集 vol.020
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ ====================================================================== ☆☆☆ ExcelVBA初級向けTip集 ☆☆☆ vol.020 2009/12/15 ====================================================================== [お知らせ] 次回配信は 1/12 になります。 良いお年をお迎えください。 －・－・－・－・－・－・－・－・－・－・－・－・－・－・－・－・－・－ 初心者の方を対象にしたExcelVBAのTip集です。例題を折り込みながら、じっ くり解説して参ります。また、多くの例題に接することにより、Visual Basic の基礎も同時習得を目指します。 なお、ExcelVBA初級レベルの方を前提に解説していますので、事前に当ホーム ページの ExcelVBA講座初級コース 基礎編 (無料) の学習をお勧めします。 http://homepage2.nifty.com/vbasys/vbasys_vbaBeginner.htm 受講方法については、こちらをご一読ください。 http://homepage2.nifty.com/vbasys/vbasys_guidance.htm ---------------------------------------------------------------------- 2. 数値計算 2.10 最大値(2) ---------------------------------------------------------------------- 前回のプロシージャ例です。 Sub ex_02_09() Dim strVal As String Dim Max As Double Max = -1.79769313486231 * 10 ^ 308 'Double型最小値 Do strVal = InputNumeric() '計算 If strVal <> "" And Val(strVal) > Max Then Max = Val(strVal) End If Loop While strVal <> "" MsgBox Max End Sub 合計の最後に登場したプロシージャ例に比べると、次のコードが変更されてい ます。 ・変数宣言 Dim Max As Double 変数名を Sum から Max に変更しただけですね。 入力された中での最大値を保存しておく変数として使用します。 (参考) ここでは、「入力された中での最大値」のことを「現在の最大値」といって います。 ・初期化 Max = -1.79769313486231 * 10 ^ 308 開始時の最大値をは、プログラムで取り扱える最も小さい値で初期化してお きます。 VBAで取り扱える最小値は、Double型の最小値 -1.79769313486231E308 です ね。 ・ループ内での計算 If strVal <> "" And Val(strVal) > Max Then Max = Val(strVal) まず入力有無の確認とともに、「入力値」 と 「現在の最大値(1回目は初期 値)」 を比較します。 入力値が大きい場合は、「入力値」を「現在の最大値」とします。 ・結果の表示 MsgBox Max 最後に、計算した最大値を表示します。 －・－・－・－・－・－・－・－・－・－・－・－・－・－・－・－・－・－ // 上記 文書内に <ｅラーニング> や <画像> とある場合 // <ｅラーニング> ホームページにてｅラーニングを体験いただけます。(Java必要-無料-) <画像> ホームページにて画像付きでご覧いただけます。 クリック↓で、ホームページの該当ページを開きます。 http://homepage2.nifty.com/vbasys/Mailmagazine_vbaBeginTip.htm // バックナンバーについて // メールマガジンのバックナンバーをメニュー形式で掲載しています。 クリック↓で、ホームページの該当ページを開きます。 http://homepage2.nifty.com/vbasys/vbasys_vbaBeginTip.htm // 行継続文字について // スペースとアンダースコア(_)でステートメントを複数行に記述できます。 当メールマガジンでは、行文字数の都合上、行継続文字を多用しています。 ただし、バックナンバーではできるだけ使用しないようにしています。 ---------------------------------------------------------------------- VBASYS(ブイビーエーシス)は、快適な職場作りを応援いたします。(@^^)/~~~ - ソフト開発 - システム開発 - フリーソフトウェア公開 - ExcelVBA講座 - ■発行元……………… ＶＢＡＳＹＳ / ＶＢＡＳＹＳ工房 / ＶＢＡＳＹＳ塾 ■ホームページ……… http://homepage2.nifty.com/vbasys/ ■メールアドレス…… vbasys@nifty.com ---------------------------------------------------------------------- □□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
