Microsoft Word - VBA基礎(2).docx

Size: px

Start display at page:

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

ぜんすけこやぎ
5 years ago
Views:

1 変数

2 test1 を実行してみてください結果はメッセージボックスに 100 と表示されるはずです Sub test1() a = 10 このプルグラムでは a という文字がつかわれています MsgBox の機能はこの命令に続くものを画面に表示することで MsgBox a * a すつまり a*a を表示していますプログラムでは * は掛け算を意味しますので画面に 100 が表示されたということは a*a すなわち a の 2 乗が 100 ということになりますこの命令の上の行を見てみると a=10 とありますつまり a は 10 に等しいと定義していますいったん定義してしまえば a を用いて式を書くことで計算ができていることがわかりますこのように a は値を格納していますこ Sub test2() の a のようなものを変数と呼びます変数は数字や文字などを格納するは容器だと a = 10 考えればいいでしょう変数は変数の規格 MsgBox a * a に合えば何度でも値を入れ替えることが a = 20 できます test2 を修正してみてください MsgBox a * a 最初に 100 が表示され続いて 400 が表示されるはずですこのように変数に値を入れ替えることで計算を行うことができプログラムの一般化ができます変数を使うためには規則がありますまずは変数を使うことを定義 ( 宣言 ) する必要がありますプログラムの 2 行名の命令が変数の定義です変数の定義は次のように行います Dim X1 As Double アイエオ変数の定義は上記のように記述されますア : 変数の定義を行いますという宣言イ : 定義する変数名変数名は自由につけることができるがアルファベットと数字および _( アンダーライン ) でその変数が何を意味するかを考えてつけるようにすると良いただし頭文字に数字やアンダーバーは使うことができない漢字やひらがなカタカナなども使うことができるが別のコンピュータに持って行った場合にエラーを起こす

可能性があるので使うべきではないエ : イの変数をどの様な変数として定義するかという意味の命令オ : 変数の種類変数の種類には次のようなものがありますデータの型データの特徴データの例と範囲 Integer 整数 ( 小数点のつかない数値 ) 0,5, 100-32768~32767 Long 桁数の大きい整数 (Integer も含む ) -24534,

3 可能性があるので使うべきではないエ : イの変数をどの様な変数として定義するかという意味の命令オ : 変数の種類変数の種類には次のようなものがありますデータの型データの特徴データの例と範囲 Integer 整数 ( 小数点のつかない数値 ) 0,5, ~32767 Long 桁数の大きい整数 (Integer も含む ) , ~ Single Double 実数 ( 小数点を含む数値 ) 桁数がかなり大きい実数 (Single も含む ) -2.0, 12.8 負 :-3.4E+38~-1.4E-45 正 :1.4E-45~3.4E , 負 :-1.8E+308~-1.9E--324 正 :4.9E-324~1.8E+308 String 文字カレーうどん大学変数の型としては上記のもの以外にも Date, Byte 等がありますここでは必要ないので割愛しますプログラムで定義する変数は常にプログラムの一番最初で定義しますそしてこの変数の有効範囲は定義した部分からまでですすなわち Private がその変数が有効な範囲ですプログラムではそれぞれのコマンドボタンやテキストボックスなどにそれぞれプログラムを記述することができますその単位をプロシージャと呼びますが通常変数は各プロシージャ内でのみ有効ですつまり別のプロシージャで同じ変数を定義することが可能です test3 を実行してみてください実行するとエラーが発生します Sub test3() Dim b As Integer a = 1000 b = a * a MsgBox b

4 このエラーは変数が扱うことのできる範囲外の値が変数に代入されたことを意味しています上の表を見ると Integer の範囲は ~32767 ですので a*a の結果は明らかに範囲外です変数 b の型を Integer より大きな数値を扱うことのできる方に変更しましょう test4 を実行してみてください test4 では b は Long ですので十分に結果を扱うことができます結果としてが表示されたはずですここで b=a*a としてプログラムを実行すると同じエラーが発生しますこれは a*a は Integer 同士の計算のため計算した結果も Integer 扱いになり範囲を超えてしまうためです b=a*a では式の左辺は Long 右辺は Integer というように式の左右で変数の型が異なっていますプログラム上では式の左右は同じ型にしないとこのようなエラーが生じますそこで右辺を Long に変換して計算する必要があります test4 で b = CLng(a) * CLng(a) としているのは右辺の a(integer) を Long に変換するためです Clng(X) は数値 X を Long に型変換する関数ですこれを使って CLng(a) で a を Long に変換して計算しています test5 を実行してみてくださいここでもエラーが発生しますこの場合も test3 と同様にオーバーフローですここでは a 4 を計算しています結果はですので間違いなくオーバーフローします整数で扱うことのできる数値に最大値は Long までですこれより大きな値は Single,Double で扱います test6 を実行してみてくださいこれでは b は Single として定義されていますまた先ほどの Long の場合と同じように Integer である a を Single に変換する必要がありますその関数が CSng です Sub test4() Dim b As Long a = 1000 b = CLng(a) * CLng(a) MsgBox b Sub test5() Dim b As Long a = 1000 b = (CLng(a) ^ 4) MsgBox b Sub test6() Dim b As Single a = 1000 b = (CSng(a) ^ 4) MsgBox b

5 test7 を実行してみてください実行するとまず値を入力するための InputBox が現れますこれは使用者に何か入力を求める場合に用います入力された値や文字は等号の左側にある変数に代入されますプログラムで用いられる Sub test7() Dim a As Double Dim b As Double a = InputBox(" 値を入力してください ") b = InputBox(" 値を入力してください ") Cells(1, 1) = a + b Cells(1, 2) = a - b Cells(1, 3) = a * b Cells(1, 4) = a / b 等号は数学の様に等しいということを意味するというより右辺を左辺に代入するという意味の方が強いです test7 では a,b に入力された値の四則演算が行われ Cells の命令でエクセルシートへ表示されています Cells はエクセルシートのセルを行列形式で指定して表示します Sub test8() Dim moji1 As String Dim moji2 As String moji1 = InputBox(" 文字を入力してください ") moji2 = InputBox(" 文字を入力してください ") Cells(5, 5) = moji1 Cells(5, 6) = moji2 Cells(6, 6) = moji1 & moji2 test8 を実行してみましょうこのプログラムでは数値なく文字を入力します変数の定義でも String になっています入力された文字は変数 moji1,moji2 へ格納され Cells 関数でエクセルシートへ表示されますただし最後の Cells の右側は moji1 & moji2 となっています & の前後には空白を入れてください & の意味は文字を結合するという意味です結果を見てみると確かに 6 行 6 列目のセルに 2 つの文字が結合した結果が現れているはずです

6 Worksheets 関数 Sub test10() Dim moji1 As String Dim moji2 As String Dim WS As Object Worksheets(1).Activate Set WS = Worksheets(1).Application moji1 = InputBox(" 文字を入力してください ") moji2 = InputBox(" 文字を入力してください ") WS.Cells(5, 5) = moji1 WS.Cells(5, 6) = moji2 Worksheets(2).Activate Set WS = Worksheets(2).Application WS.Cells(6, 6) = moji1 & moji2 エクセルシートで新しいシートを追加した後に test10 を実行してみてください赤字の部分が test9 から変化しています新たに WS という変数が定義されていますこの変数は Object と定義されていますこれはエクセルのシートなどのオブジェクトを格納する変数です次に続く 2 行はワークシートを指定する命令です Worksheets(1).Activate Set WS = Worksheets(1).Application 1 行目でワークシートを選択してそのシートを Object 変数 WS に格納していますセルを指定するときは WS を頭につけてどのシートのセルに表示するかを明示していますつまり WS.Cells(5,5) は WS で指定されたシートの 5 行 5 列めのセルへ値を表示しなさいという意味です続いて下記 2 行が現れます Worksheets(2).Activate Set WS = Worksheets(2).Application ここでは表示するシートを変更していますここでは 2 番目のシートへ表示するように変更しています実行すると 2 枚のシートに文字が表示されているはずです

7 フローチャートプログラムを作るときに重要なことは処理手順を明確にしたのちにプログラムを組むことですその処理手順を示すものがフローチャートですプログラムを組む前のしっかりとしたフローチャートが出来上がっていればプログラムは完成したも同然ですまたフローチャートを書くことができるということはプログラムだけでなく日常の作業の時にも手順を明確にできるということですので特に実験を行うときには重要ですフローチャートを作るときには下のような記号を使います端子フローチャートの始まり及び終わり処理計算代入などの処理サブプロシージャ定義済みの処理判断条件分岐表示結果の表示ループの開始ループの終了入出力ファイルへの入出力ページ内結合子ページ外結合子フローチャートを作成する際の基本事項は以下の通りです (1) フローチャートの最初と最後を明確にする (2) 基本的に処理は上から下へ流れる (3) 処理の流れが変わるときには分岐構造反復構造を用いる (4) 線が交差しないようにするフローチャートは基本的に順次構造分岐構造反復構造で構成される

8 順次構造実験の次の手順をフローチャートで表してみる実験 1 0.1mol/l のシュウ酸水溶液を作る 1. XXXg のシュウ酸 2 水和物を精秤する ml のメスフラスコに完全に移す 3. 水を約半分位まで加える 4. 完全に溶解する 5. メスアップするこれをフローチャートで表すと次のようになりますこの流れは 1-4 を順次実行するだけです 100ml のメスフラスコに完全に移す水を約半分位まで加える完全に溶解するメスアップするこの手順では単純に上から下へ作業を行うだけです

9 分岐構造条件によって処理が異なる場合がある分岐構造である条件判断にはを用いる次のようなフローチャートを考えてみる実験 2 滴定を行う 1. 水酸化ナトリウムを滴下する 2. 溶液を撹拌する 3. 色を確認する透明の場合は1. へ戻る赤色の場合は4. を行う 4. ビュレットの目盛を読むこの操作では滴下し混合した後に色を判断する色によって操作が異なります滴定をおこなう水酸化ナトリウムを滴下する溶液を撹拌する透明赤色ビュレットの目盛を読む

10 反復構造ある操作を複数回行う場合には反復構造を使います次の操作を考えてみましょう実験 3 吸光度を測定する 1. 波長を 300nm に合わせる 2. 波長が nm にあるか判定する範囲外の場合は終了 3. 吸光度を読む 4. 波長を変更する 2. を実行このような場合には命令の使い方によって下の様に複数の表現の仕方がある状況によってどちらが便利であるかが異なる吸光度を測定する吸光度を測定する波長を 300nm に合わせるループ波長を nm の範囲で変化させる No 吸光度を読む Yes 吸光度を読むループ波長を変更する

Microsoft Word - VBA基礎(6).docx

Microsoft Word - VBA基礎(6).docx あるクラスの算数の平均点と理科の平均点を読み込み総点を計算するプログラムを考えてみましょう一クラスだけ読み込む場合は test50 のようなプログラムになりますプログラムの流れとしては非常に簡単です Sub test50() a = InputBox(" バナナ組の算数の平均点を入力してください ") b = InputBox(" バナナ組の理科の平均点を入力してください ") MsgBox