Microsoft Word - VBA基礎(3).docx

Size: px

Start display at page:

Download "Microsoft Word - VBA基礎(3).docx"

ゆりなのじま
4 years ago
Views:

1 上に中和滴定のフローチャートを示しましたこの中で溶液の色を判断する部分がありますこのような判断はプログラムではどのように行うのでしょうか判断に使う命令は IF 文を使います IF は英語でもし何々ならという意味になります

2 条件判断条件判断には次の命令を使います If 条件式 1 Then ElseIf 条件式 2 Then ElseIf 条件式 3 Then 実行文群 1 実行文群 2 実行文群 2 Else End IF 判断文は条件式が満足されている場合 ( 真 ) にすぐ次の実行文を実行しそれ以外は実行せずに EndIf に飛び If 文を終了します具体的には次のようになります実行文群 n Sub test30() Dim x As Double x = InputBox("x に数値を入力してください ") If x < 0 Then MsgBox "x は負の数です " ElseIf x < 10 Then MsgBox "x は 0 以上 10 未満の数です " ElseIf x < 20 Then MsgBox "x は 10 以上 20 未満の数です " Else MsgBox "x は 20 以上の数です " End If

3 test30 を実行して x に下記の値を入れてみてください x=-1 の場合この場合には最初の文の条件式 (x<0) が満足されますそのため画面に x は負の数ですと表示して終了します x=12 の場合この場合には x<0 は満足しませんからその次の実行文 (MsgBox x は負の数ですは実行しませんその次の条件式 (x<10) も満足しませんそして 3 番目の条件式 (x<20) は満足しますので画面に x は 10 以上 20 未満の数ですと表示して終了します x=35 の場合この場合には 3 つの条件式 (x<0, x<10, x<20) のどれも満足しませんそのため一番最後の Else の実行文 ( x は 20 以上の数ですを表示 ) を実行します条件式に用いられる演算記号は次のようなものがあります記号意味 = 左辺と右辺が等しい > 左辺が右辺より大きい < 左辺が右辺未満 >= 左辺が右辺以上 <= 左辺が右辺以下 <> 左辺と右辺が等しくないまた条件式を複数つなぐ論理演算子 (And, Or, Not 等 ) も使うことができます演習 x に数値を入力し x が 0 以下なら x の 2 乗を表示し x が 100 以下なら x の半分の値を表示し x が 100 より大きい時には x は 100 よりおおきなかずですと表示するプログラムを作れ

繰り返しあらゆるプログラム言語には繰り返し命令というのがあります VBA でも同じですコンピュータにとってあるルール ( プログラム ) に沿って繰り返しを行うことは得意なことです VBA では 3 種類の繰り返し命令があります繰り返す回数や条件が決まっている場合には For Next 命令を使いますたとえば 1 から 100 までの 2 乗を計算してセルに表示することを考えましょう

4 繰り返しあらゆるプログラム言語には繰り返し命令というのがあります VBA でも同じですコンピュータにとってあるルール ( プログラム ) に沿って繰り返しを行うことは得意なことです VBA では 3 種類の繰り返し命令があります繰り返す回数や条件が決まっている場合には For Next 命令を使いますたとえば 1 から 100 までの 2 乗を計算してセルに表示することを考えましょう左のフローチャートでは x に数値を 1 個ずつ代入する流れになっていますがこれでは同じような命令を 100 個書く必要があります右のフローチャートでは繰り返し命令を使いますので命令が簡単になります test31 を実行するとエクセルの表の A 列に 1 から 1 00 まで表示され B 列に 2 乗の値が表示されますくりかえし部分は赤で囲んだ部分です For から Next までの間の命令が繰り返されます For の次に続く部分が何回繰り返すかを意味しています i という変数はカウンタ変数でこの値が 1 で始まり 100 まで繰り返すことを意味していますそして Next の次に i とありますがカウンタ変数 i の繰り返し範囲はここまでですということを示していますカウンタ変数はプログラム処理にも使うことができます Sub test31() Dim x As Long Dim x2 As Long Dim i As Integer x = 0 For i = 1 To 100 x = x + 1 x2 = x ^ 2 Cells(i, 1) = x Cells(i, 2) = x2 Next i Cells 命令では行の指定に i を用いていますこれにより自動的に表示するセルの行が 1 つずつ増えます

5 このプログラムを見ると判断文 (IF 文 ) が含まれていませんこれは For Next 命令自体がその機能を持っているためです For Next 命令 For Next 命令の記述例を示します For カウンタ変数名 = 初期値 To 最終値 Step 増分繰り返すべき命令群 Next カウンタ変数名 For Next 命令では繰り返し回数がわかっている場合に用いますカウンタ変数名というのは何回繰り返したかを判定するために用いる変数です ( 必ずしも繰り返し回数とは一致しない ) 上の命令文の意味はカウンタ変数を初期値から初めて増分ずつ増加させ最終値になるまで繰り返せということを意味しています test32 を実行してみてください右の表のような結果になるはずですこの例では i の値が 1 から 1 ずつ増加させ 10 になるまで繰り返しなさいということを示していますすなわち 10 回繰り返すということです x の値はカウンタ変数 i だけ増加します test33 を実行してみてください右表の結果が表示されるはずですこの例は増分が 2 ですその Sub test32() Dim x As Integer Dim i As Integer For i = 1 To 10 Step 1 Cells(i, 1) = i Cells(i, 2) = x x = x + i Cells(i, 3) = x Next i Sub test33() Dim x As Integer Dim i As Integer For i = 1 To 10 Step 2 Cells(i, 1) = i Cells(i, 2) = x x = x + i Cells(i, 3) = x Next i i x(1) x(2) i x(1) x(2) ためカウンタ変数 i は 2 づつ増加しますもちろんカウンタ変数には明確な数値でなくても初期値と最終値に変数を指定することができます For Next

6 命令でも繰り返しの回数の途中であっても抜け出すことができますその命令は Exit For です Do.Loop 命令 Do.Loop 命令は Do と Loop で囲まれた範囲の命令をある条件の間繰り返し実行するための命令ですその構文には 4 種類あります Do While 条件式 1 繰り返したい命令文 Loop Do Until 条件式繰り返したい命令文 Loop 3 Do 繰り返したい命令文 Loop While 条件式 2 Do 繰り返したい命令文 Loop Until 条件式 4 1~4 の違いは 2 種類ありますひとつは条件式の位置です条件式が Do の部分に記述されているもの (1 と 3) と Loop の部分に記述されているもの (2 と 4) ですこの 2 つの違いは条件判定をする位置です test34 と test35 を実行してその差を確認してください結果が異なるはずです Do Loop 命令では条件判定が行われその判定が True( 真 ) の場合には繰り返しを行い偽 (False) の場合には Do Loop 命令を終了しますそのため下のように Do の部分 (test34) に条件判定がある場合には最初から判定が偽の場合には1 回もその繰り返しが実行されません x=-1 Do While x>0 x=x-1 Loop Msgbox x Sub test34() Dim x As Integer x = -1 Do While x > 0 x = x - 1 Loop MsgBox x Sub test35() Dim x As Integer x = -1 Do x = x - 1 Loop While x > 0 MsgBox x 判定が偽のため Do Loop は実行されない x=-1 が表示される

7 これに対して Loop の部分に条件判定がある場合 (test35) には最低でも1 回はその繰り返しが実行されます x=-1 最低でも1 回は実行さ Do れる x=x-1 Loop While x>0 x=-2 が表示される Msgbox x もう一つの違いは条件判定の部分の While 1 2 と Until 3 4 ですこれは英語の意味と同じです While : 条件式が真の間繰り返しを実行する Until : 条件式が真になったら繰り返しを終了する条件式以外でこの繰り返しを終了するには Exit Do という命令がありしばしば if 文と併せて用いられます While Wend 命令 3 つめの繰り返し命令は While Wend 命令です記述方法を示します While 条件式繰り返すべき命令群 Wend この命令では条件式が成り立っている間は繰り返し続けます逆に条件式が成立しなくなったら繰り返しの実行が終了します test36 を実行してみてくださいこのプログラムでは4,5 行目で変数を0に初期化しています While Wend の条件式は intadd<=100 なので intadd という変数が 100 以下の時は繰り返します繰り返し命令では単に intadd の足し算を行っているだけですこの繰り返しの中ではカウンタ変数として intadd が用いられていますそして Sub test36() Dim intval As Integer Dim intadd As Integer intval = 0 intadd = 0 While intadd <= 100 intval = intval + intadd intadd = intadd + 1 Cells(intAdd, 1) = intadd Cells(intAdd, 2) = intval Wend

8 intadd=intadd+1 でカウンタを 1 つずつ増加させていますそして intadd が 100 まで繰り返しを行い 101 になったときに終了します While Wend 命令ではこれを終了する命令がありませんそのため条件式および条件の変化をきちんと行わないと無限ループ ( いつまでたっても終わらないプログラム ) になってしまいがちです

方程式の解法

方程式の解法方程式 (f(x)) の解を求めるということはf(x)=0を意味しグラフ上では y=f(x) で X 軸との交点を求めることであるここではエクセルを用いて方程式の解を求める方法を3つ紹介するもちろん前回教わったニュートンラフソン法も行う 1. グラフを確認しながら求める方法エクセルの便利な点は数値を簡単にグラフ化できる点である中学校の数学でも教わったように方程式の解は X 軸と交差する点である