エクセルによる数値計算と化学への応用
群馬大学工学部 応用化学・生物化学科
前期にＰＣを使った文書作成、表計算、プレゼンテーションを習得しました。後期には主に表計算を より高度に利用するための手法を勉強します。 第１章 計算の基礎 １．１ 文字の表示 文字 ABC １．２ 四則計算 8 ＋ 2 ＝ 10 8 － 2 ＝ 6 8 × 2 ＝ 16 8 ÷ 2 ＝ 4 １．３ 数列の和 1 から 10 間での数列の和は 55 たとえば上のような表計算を考えてみましょう。上の表では文字の表示という項に必要な文字を 入力して、２つの数からその四則演算を行い、１からｎまでの数列の和を計算しています。文字の 表示の部分の入力は簡素化しようがありませんが、四則計算の部分ではたとえば最初の加算の 部分に数値を２つ入力すれば加減乗除算を自動で行うことはできます。また、数列の和も一番右 下のセルに公式を入力しておけば自動的に計算してくれます。 この計算を何回も日常的に行い、印刷することを考えましょう。エクセルを起動して数値を入力し て結果を印刷する動作を行います。入力は表示文字と３つの数値（四則演算とｎ）です。後は自 動で計算してくれます。印刷は印刷範囲を一度設定しておけば印刷のアイコンを押すだけです。た いした操作ではありません。もし、間違ったセルに数値を入力してしまったらどうでしょう。作った本人 であれば問題ありませんが、全く知らない人がセルを書き換えてしまうと計算できなくなってしまいま す。 エクセルにはマクロ（エクセル中の一連の操作をまとめてひつつのコマンドで行うことのできる機 能）としてＶＢＡ(Visual Basic for Application)を持っています。これはＢＡＳＩＣ（プログラム言語の ひとつ）をエクセルの操作や処理の自動化ができるようにしたものです。その意味でＶＢＡはプログラ
ムの作り方としてVisual Basic と同じであり、習得しておくと非常に便利であり、将来的に Visual
Baisc を使う場合にも役に立ちます。この授業ではこれまで勉強したエクセルの使い方による数値
計算の方法とVBA を用いた数値計算の方法を勉強します。
エクセルのワークシート上のコマンドボタンを押すとマクロのウィンドウが開き、実行される。実行 結果はもとのワークシートに反映される。次にこのマクロの作り方を説明します。順を追って説明しま すから自分で試してください。
このボタンを押すと元のワー クシートへ戻る
① 元となるシートの作成 元となるシートを作成してください。この際に、図にあるものと同じにしてください。特にセルの位置 に注意してください。 コマンドボタンの追加 開発メニューの挿入ボタンの下向きの▽をクリッ クすると上の図に示したようなフォームコントロールが現れる。その中のコマンドボタンの追加を押す。 するとカーソルが細い十字に変わるのでドラッグして、必要な大きさのボタンを作成する。マウスの ボタンから手を離すと同時に下のような画面が現れる。作製したボタンをこれでマクロに登録する。 そのため、新規作成を押す。すると、プログラムを書き込むコード画面が現れる。 ② プログラムコードの記述 「計算の基礎」操作が画面へのコマンドボタンをダブルクリックするとコード記述画面が現れま
す。コード画面にはPrivate Sub・・・と End Sub と２行のコードがあります。この２つのコードの間
に自分が実行させたい命令を記入するとワークシート上のボタンを押したときにその動作がなされ
①
ます。ここでは操作画面を起動することを記入します。 計算の基礎.show と記述されています。これは計算の基礎と名前を付けられたウィンドウ（プロ グラム）を画面に示しなさいという意味です。 ③ ユーザーフォームの作成 つぎにVBA の本体であるウィンドウの作成およびコードの記述を行います。ウィンドウは VBA で はユーザーフォームと呼ばれます。先ほどコードを記述した画面のメニューで挿入→ユーザー フォームを選択してください。 選択すると下のように新しいウィンドウが作成されます。 こ の ボ タ ン で 小さ くする。
このままではプログラムを作りにくいので下記のような状態にしましょう。画面右上のウィンドウを元 に戻すのボタンを押して、最大化を解除します。その後、プロジェクトエクスプローラ、プロパティウイ ンドを表示し、適当な位置に配置します。もし、プロジェクエクスプローラやプロパティウインドが画面 上に現れていなかったら、表示をクリックして画面上に表示してください。 ユーザーフォームをクリック しユーザフォームのプロパティウインドの一番上のオブジェクト名を UserForm1 から計算の基礎に変更してください。ツールボックスを使ってボタンやラベルを配置し ます。それぞれの ツ ー ル が 何 を 意 味するかはマウス カーソルをツール の上に移動すると 説明が現れます。 ラ ベルを ８個、テ キストボックスを４ 個、コマンドボタン を５個使って次の 画面を作成してく ださい。 この部分にボタン や ラ ベ ル を 配 置 する。 ツールボックスのツ ー ル を 選 択 し て 画 面を作成する。 これと同じようにす る。 オブジェクト名を 変更する プロジェク トエクスプ ローラ プロパティ ウインド 計算の基礎
プログラムコードの記述
プログラムコードの記述は先ほどと同じように各オブジェクトをダブルクリックして行います。
次のページにあるコードを記入してください。 各コードについて簡単に説明します。
Private Sub Commandbutton1_Click()
コマンドボタンの１をクリックしたときに行う動作を記述することを意味している。 Worksheets("基礎計算").Activate 基礎計算と名前を付けたワークシートを使うことの宣言。 Set WS = Worksheets("基礎計算").Application 選択したワークシートを WS という略称に設定している。これで WS を使うことで基礎計算のワー クシートを指していることになる。 WS.Range("b7") = TextBox1.Text Range()命令は括弧内のセルを選択するという意味です。その前の WS はセル指定を行うワー クシート名です。この命令は選択したセルに TextBox1.txt の内容を代入するという意味です。 TextBox1.txt とはテキストボックスの１番目（これはプロパティのオブジェクト名です）の内容 （Text）を代入するという意味です。プログラミングでは＝（イコール）は代入水るを意味します。 Dim aa As Double プログラミング（コーディング）では使う変数（値や文字を格納する器）を必ずどの様な類のものか を定義して使います。この場合、aa という名前の変数を倍精度（有効数字の多い数）と定義して います。 For m = 1 To cc sum = sum + m Next この命令は繰り返しを意味します。つまり、For・・・から Next までを繰り返すことを意味してい ます。繰り返す回数はm という変数が１から cc までです。この場合に１から cc までは１刻みでとい う意味です。つまり、m 回繰り返すことを意味します。 Unload Me この命令はウィンドウを閉じる（作成したユーザフォームを終了する）ことを意味しています。
Private Sub CommandButton1_Click() Worksheets("基礎計算").Activate
Set WS = Worksheets("基礎計算").Application WS.Range("b7") = TextBox1.Text
End Sub
Private Sub CommandButton2_Click() Worksheets("基礎計算").Activate Dim aa As Double Dim bb As Double Set WS = Worksheets("基礎計算").Application WS.Range("B10") = TextBox2.Text WS.Range("B11") = TextBox2.Text WS.Range("B12") = TextBox2.Text WS.Range("B13") = TextBox2.Text aa = TextBox2.Text WS.Range("d10") = TextBox3.Text WS.Range("d11") = TextBox3.Text WS.Range("d12") = TextBox3.Text WS.Range("d13") = TextBox3.Text bb = TextBox3.Text WS.Range("f10") = aa + bb WS.Range("f11") = aa - bb WS.Range("f12") = aa * bb WS.Range("f13") = aa / bb End Sub
Private Sub CommandButton3_Click() Worksheets("基礎計算").Activate Dim cc As Double
Dim m As Double Dim sum As Integer
Set WS = Worksheets("基礎計算").Application WS.Range("D16") = TextBox4.Text cc = CLng(TextBox4.Text) sum = 0 For m = 1 To cc sum = sum + m Next WS.Range("G16") = sum End Sub
Private Sub CommandButton4_Click() Worksheets("基礎計算").Activate Unload Me
End Sub
Private Sub CommandButton5_Click() Worksheets("基礎計算").Activate Unload Me
マクロが、できたら一度保存して、エクセルを終了してして下さい。そして、もう一度マクロを含んだエ クセルのファイルを開いて下さい。すると、セキュリティの警告が現れます。この中のオプションをクリ ックして下さい。そして、このコンテンツを有効にするをチェックして下さい。
実行すると作成した画面が現れます。（もし画面が現れずエラーが出たらこれまでのところを見直 してください。 この画面に文字、数値を入力して文字の表示、四則計算、数列の和などを試してみる。 マクロの実行後はワークシートの内容が変わっています。確認してください。 このボタンを押して マクロを実行する
マクロのボタンの名前を変更しましょう。ボタンの上で右クリックす ると右のようなメニューが現れます。この中のテキスト編集を選択 して下さい。すると、ボタン上の文字を変更できます。
プログラムの修正を行いたいときには開発のメニューの一番右のVisual Basic を選択して下さい。
