sub 足し算()
wa=0
for j=1 to 10
wa=wa+j
next j
cells(1,1)=wa
end sub
と書いて実行すると、cells(1,1)に1から10までの数の合計が計算されます。
理由は、まず最初にwa=0にしておいて
wa=wa+1 (この時点でwaは1)
wa=wa+2 (この時点でwaは1+2)
wa=wa+3 (この時点でwaは1+2+3)
wa=wa+4 (この時点でwaは1+2+3+4)
wa=wa+5 (この時点でwaは1+2+3+4+5)
wa=wa+6 (この時点でwaは1+2+3+4+5+6)
wa=wa+7 (この時点でwaは1+2+3+4+5+6+7)
wa=wa+8 (この時点でwaは1+2+3+4+5+6+7+8)
wa=wa+9 (この時点でwaは1+2+3+4+5+6+7+8+9)
wa=wa+10(この時点でwaは1+2+3+4+5+6+7+8+9+10)
となるからです。
練習:1から100までの数の合計を計算しなさい。
|
出典 |
sub 身長と座高()
dim x(20)
for j=1 to 20
x(j)=cells(j+1,2)
next j
end sub
ここまででは身長のデータを配列x(1), x(2),...,x(20)に読み込んで終わりです。
練習:20人の身長の合計を計算して、一行あけたcells(23,2)に代入するようにマクロを書き足しなさい。
sub 身長と座高()
dim x(20)
for j=1 to 20
x(j)=cells(j+1,2)
next j
ここに身長の合計を変数 wa に代入するマクロを書く
cells(23,1)="合計"
cells(23,2)=wa
end sub
合計を計算したら続けて平均も計算できます。
変数名に漢字を使うこともできます。
sub 身長と座高()
dim x(20)
for j=1 to 20
x(j)=cells(j+1,2)
next j
ここに身長の合計を変数 wa に代入するマクロを書く
cells(23,1)="合計"
cells(23,2)=wa
身長の平均=wa/20
cells(24,1)="平均"
cells(24,2)=身長の平均
end sub
"平均"のように " " で囲むと 平均 という文字が表示され、囲まないと 身長の平均 という変数に代入された値が表示されます。
数える操作は何回繰り返すかが分かっておらず、上から順に見ていって最後に到達するまで繰り返します。
このように、条件を指定して繰り返すにはWhile文を使います。
Do While 条件
この部分が繰り返される
Loop
先ほどのマクロのEnd Subより後に、次のマクロを書いてみてください。
Sub 数える()
j = 1
Do While Cells(j + 1, 2) <> ""
j = j + 1
Loop
人数=j
MsgBox (人数)
End Sub
最後のMsgBox(人数)は、人数という変数の値を表示するマクロです。
Cells(j+1,2)が空っぽではない間は繰り返す、という意味です。
正しく数えられましたか？ずれていた場合はその理由を考えましょう。
左側で「リボンのユーザー設定」を選んで、右側の「開発」にチェックをつけます。
すると「開発」タブが表示されるので、「マクロのセキュリティ」をクリックします。
すべてのマクロを有効にする(推奨しません。危険なコードが実行される可能性があります)をクリックします。
ここで警告されたように自分で作ったプログラムだけでなく、他の人が作った危険なプログラムも実行できるようになってしまいます。
インターネットからダウンロードしたエクセルファイルを開くときには「警告を表示してすべてのマクロを無効にする」を選んでください。
これで準備は終わりです。
名前は何でもいいのでこのままOKをクリックします。
セルに1,2,3,4,5を入力して、記録終了をクリックします。
ここで、先ほど入力した1,2,3,4,5を全部消してから、「マクロ」をクリックします。
どのマクロを実行するか聞かれるので、そのまま「実行」をクリックします。
すると先ほど入力した1,2,3,4,5が再び入力されます。
このように、マクロを使うと、エクセルの操作を自動化出来ます。
どんな仕組みになっているか見てみましょう。
開発タブのVisual Basicをクリックします。
左側の、標準モジュールの中のModule 1をクリックすると、エクセルが記録したマクロが表示されます。
これが先ほど行った、1,2,3,4,5を縦に順に記録する操作をプログラムに書いたものです。
これから、このプログラムの書き方を勉強しましょう。
「挿入」から「標準モジュール」を選びます。
するとマクロを書くための場所が開きます。
ここに
sub 練習
とだけ書いてEnterを押します。すると
Sub 練習()
End Sub
となります。
このSub 練習()とEnd Subの間に自分でマクロを書きます。
cells(1,1)=1
と書いて、その上の右向きの三角形をクリックします。
するとエクセルの、上から1行目、左から1列目のセルに1と入力されています。
等号は、左辺を右辺と等しくするという意味で、右側の1を左側のCells(1, 1)に代入します。
さらにCells(1,1)=1とEnd Subの間に
cells(2,1)=2
cells(3,1)=3
cells(1,2)=-2
cells(1,3)=-3
と書いて実行して、cellsの二つの添え字がエクセルの縦と横のどちらに対応しているか確かめてください。
sub 足し算()
wa=0
for j=1 to 10
wa=wa+j
next j
cells(1,1)=wa
end sub
と書いて実行すると、cells(1,1)に1から10までの数の合計が計算されます。
理由は、まず最初にwa=0にしておいて
wa=wa+1 (この時点でwaは1)
wa=wa+2 (この時点でwaは1+2)
wa=wa+3 (この時点でwaは1+2+3)
wa=wa+4 (この時点でwaは1+2+3+4)
wa=wa+5 (この時点でwaは1+2+3+4+5)
wa=wa+6 (この時点でwaは1+2+3+4+5+6)
wa=wa+7 (この時点でwaは1+2+3+4+5+6+7)
wa=wa+8 (この時点でwaは1+2+3+4+5+6+7+8)
wa=wa+9 (この時点でwaは1+2+3+4+5+6+7+8+9)
wa=wa+10(この時点でwaは1+2+3+4+5+6+7+8+9+10)
となるからです。
練習:1から100までの数の合計を計算しなさい。
岡山大学を検索します。
「ルート・乗換案内」をクリックして出発地点に「岡山駅」を入力します。
時間にも依りますが、法界院駅までJRを使う経路か、徒歩の経路が表示されます。
上の車のマークを押せば自動車の経路、列車のマークを押せば主に列車を利用する経路、歩くマークを押すと全部歩く経路が表示されます。
「ルート・乗り換え案内」「マイプレイス」の左の∞をクリックすると、このページを表示するためのリンクが表示されます。
ウェブサイトへの地図埋め込み用HTMLコードをコピーして、自分のホームページの本文に貼り付けてください。
ホームページ作りに関してはまだまだ沢山の項目があります。興味がある人は解説サイトなどを見てください。但し、沢山の項目を駆使するより、配置、配色を工夫する方が見やすいページになります。
講義の後、一宮高校へ行った時に教えてもらいました。関数グラフソフトGRAPES
朝、雲一つない空を飛行機が飛んでいました。
樹が茶色っぽいのは紅葉ではなくgoogleが勝手に写真の色を変えたのです。
google+の設定で勝手に補正されないように出来ました。
| A | B | C |
|---|---|---|
| 2 | 4 | 4 |
| 2 | -1 | -6 |
| 2 | 3 | -2 |
| Sheet1 | ||
|
のようにレイアウトも、実は表を使って
|
<HTML>
<HEAD>
<TITLE>
表の練習
</TITLE>
</HEAD>
<BODY>
ここに表を書きます。
</BODY>
</HTML>
という内容のファイルを作って、index2.htmというファイル名で保存して下さい。ここに表を書いていきましょう。
最も基本的な表の形は
<TABLE>
<TBODY>
<TR><TD>左上 </TD><TD>右上 </TD></TR>
<TR><TD>左下 </TD><TD>右下 </TD></TR>
</TBODY>
</TABLE>
です。この通りに入力すると
| 左上 | 右上 |
| 左下 | 右下 |
HTMLでは<命令>と</命令>がペアで使われるのでしたよね。
表では<TABLE>と</TABLE>がペアとなって、表の始まり、表の終わり、を表します。
表では<TBODY>と</TBODY>がペアとなって、表の本文の始まり、表の本文の終わり、を表します。
そして表の中では<TR>と</TR>がペアとなって、行の始まり、行の終わり、を表します。
最後に、各行の中では<TD>と</TD>がペアとなって、セルの始まり、セルの終わり、を表します。
| 左上 | 中上 | 右上 |
| 左中 | 中中 | 右中 |
| 左下 | 中下 | 右下 |
<TABLE>を<TABLE border="1">に書き換えると、表の境界線が表示されます。
| 県別人口 | 性別 | ||
|---|---|---|---|
| 男 | 女 | ||
| 県名 | 鳥取 | 294 | 321 |
| 島根 | 368 | 402 | |
| 岡山 | 939 | 1014 | |
| 広島 | 1398 | 1484 | |
| 山口 | 734 | 817 | |
図書館の工事ももうすぐ完了します。
何にするか考えたら、教育 WWW 公開 DIR 設定手順書（学生用）を見て公開DIRを設定した後、配信処理をしてください。
そして http://www.edu.cc.okayama-u.ac.jp/[公開DIR名]/ をInternet Explorerで見てください。
<FONT COLOR="red">こんにちは</FONT>こんばんわ
と書いてください。このとき、<FONT COLOR="red">などは仮名漢字変換をOFFにして入力してください。そして「名前を付けて保存」でhello.htmという名前でW:ドライブに保存してください。保存したら、W:ドライブを開いて、hello.htmというファイルをダブルクリックしてください。
こんにちは、という文字が赤く表示され、こんばんわ、という文字は黒く表示された筈です。そして<FONT COLOR="red">などは表示されていないでしょう。
< >で挟まれた部分は、実際には表示されず、表示を飾る命令になります。
<FONT COLOR="red">は文字を赤くしなさい、という命令、そして</FONT>は文字に関する命令おわり、という意味です。このように、HTML言語では<命令>と</命令>がペアで使われます。
<HTML>
<HEAD>
<TITLE>
タイトル
</TITLE>
</HEAD>
<BODY>
本文
</BODY>
</HTML>
です。これをindex.htmというファイル名で保存してから、InternetExplorerで
http://www.edu.cc.okayama-u.ac.jp/[公開DIR名]/
を見てください。先ほど書いたファイルの内容が表示されたはずです。
先ほど書いたファイルの説明をします。
<HTML> ←ここからHTMLファイルが始まります。
<HEAD> ←ここから前書きが始まります。
<TITLE> ←ここからタイトルが始まります。
タイトル ←ホームページのタイトルです。自由に書き換えてください。
</TITLE> ←ここまでがタイトルです。
</HEAD> ←ここまでが前書きです。
<BODY> ←ここから本文が始まります。
本文 ←ホームページの本文です。自由に書き換えてください。
</BODY> ←ここまでが本文です。
</HTML> ←ここまでがHTMLファイルです。
これだけでは本文が物足りないので、色々飾りましょう。沢山のコマンドがありますが、この講義ではその中の一部だけを紹介します。全部のコマンドは
HTMLタグリファレンスを見てください。
すっかり紅葉しました。
アドインを選んで下の設定を押します。
ソルバーアドインと分析ツールにチェックを付けます。
| 例1.1 | 例1.2 | 例1.6 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
出典 |
講義で説明したように、95~105, 105~115,...,165~175の区間に分けます。
区間の境界となる105,115,...,165をC列に書きます。
データからデータ分析を選びます。
データ分析からヒストグラムを選びます。
入力範囲欄に観測値を入力したセルを、データ区間欄に区間の境界を書いたセルを指定し、
出力先は少し右隣のE1セルを指定します。
右下のグラフ作成にもチェックを付けてOKを押します。
すると度数分布表とヒストグラムが出来上がります。
このままではx軸の表記がおかしいです。105と書かれた部分は95~105ですし、次の級と書かれた部分は165~175です。そこで各区間の中心値をD列に書いて、これをx軸に使います。
D列のデータをx軸に使うために、グラフを右クリックしてデータの選択を選びます。
右側の横(項目)軸ラベルの編集を押します。
D列に書いた数字を指定します。
これで、横軸に中心値が表示されました。
一種類しかないのに右側に説明がつくのは邪魔ですので消します。
このヒストグラムでは、102と104の人は同じ縦棒に含まれるのに、104の人と106の人は遠くに離れてしまっていますので、棒をくっつけます。
棒の上で右クリックして、データ系列の書式設定を選びます。
要素の間隔をなし(左側)にします。
これで完成です。あとは見やすい大きさに調整してください。
合計値と代表値を計算します。 B1セルに合計値と書いて、C1セルに =SUM(A1:A30)と書いてください。 B2セルに平均値と書いて、C2セルに =AVERAGE(A1:A30)と書いてください。 B3セルに中央値と書いて、C3セルに =MEDIAN(A1:A30)と書いてください。
次に散布度を計算します。エクセルの参考書で分散を調べるとVARと書かれていますので、
B4セルに分散と書いて、C4セルに =VAR(A1:A30)と書いてください。
すると19.75…と表示されます。
教科書例1.4では19.09となっていますので、計算誤差にしては違いが大きすぎます。
理由は、このVAR関数は不偏分散
を計算しているからです。
これは教科書第4章で、母集団分布の分散を推定するために計算した式です。
教科書第1章では、推定ではなくデータそのものの分散を計算するので
を計算します。
B4セルに先ほど書いた分散を不偏分散に修正して、
B5セルに標本分散と書いて、C5セルに =VARP(A1:A30)と書いてください。
標準偏差も同様に二種類あります。
B6セルに標準偏差と書いて、C6セルに =STDEV(A1:A30)と書いてください。
B7セルに標本標準偏差と書いて、C7セルに =STDEVP(A1:A30)と書いてください。
その他の特性値としては
B8セルに平均偏差と書いて、C7セルに =AVEDEV(A1:A30)と書いてください。
B9セルに最小値と書いて、C7セルに =MIN(A1:A30)と書いてください。
B10セルに最大値と書いて、C7セルに =MAX(A1:A30)と書いてください。
さてこの係数0.4757や定数10.383はどうやって求めましたか？
データを, 直線を
とおくと、
から計算したyの値は
、
これと実際のyの値
との差
を2乗して正の値にしてから足した
を最小にするのでしたね。a,bに関して2次関数で非負ですから必ず最小値を持つので、a,bで偏微分してそれぞれ0とおけばa,bに関する2元連立1次方程式になるのでそれをa,bについて解くことで
と求めることが出来ます。但しはそれぞれ
や
の平均、つまり
です。
y=ax+bのaとbを、Excelに直接計算させます。そのためにまずaやbの値を書く場所を用意しておきますのでA23セルに「a」、A24セルに「b」と書いてB23セルにaの値、B24セルにbの値を書くことにします。
空っぽだと数字にならないので何か適切な値を書いておきます。全く見当がつかないので、真横の線を書くことにしてaは傾きなので0、bは座高の大体の平均84にしておきます。
このaとbを用いて、y=ax+bという式を用いて身長から座高を推定しますので、D1セルに「座高の推定値」、D2セルに身長とa,bから推定した1番目の生徒の座高の式を書きます。y=ax+bなので「=B23*B2+B24」ですが、D3～D21にコピーしますからa,bを示すB23, B24が変わらないように「=B$23*B2+B$24」と書いておいて、それをコピーします。
当たり前ですが、真横の線で推定したので全て84です。
推定の様子をグラフに書いてみましょう。まず身長、座高、座高の推定値のデータを選択して散布図を描きます。
推定値の方は直線にしたいので推定値の点を右クリックして「データ系列の書式設定」を選びます。
「線の色」は「線(単色)」、「マーカーの種類」は「なし」を選んで「閉じる」をクリックします。
するとグラフがこのようになりますので、B23, B24セルの数字を変化させて直線が点に近付くように調整してみてください。
a=0.5, b=7だとこんな感じです。
誤差はプラスにもマイナスにもなるので、そのまま合計、平均を求めると打ち消しあってしまいます。だから二乗してから足し算します。
F1セルに「誤差の二乗」と書いて、F2セルに誤差を二乗した「=E2^2」と書いてF21セルまでコピーします。最後にF22に、その20個の誤差の二乗を合計する式「=SUM(F2:F21)」を書きます。
このF22の値が誤差平方和で、この値が小さいほどあてはまりが良いことになります。この値を小さくするようにa,bの値を調整します。
学内の銀杏が色づき始めました。
