ちょこっとVBでケプラー第３法則

　　　　No.61

ちょこっと VB
ケプラー第３法則

2016.6.11.掲載

自作感のあるエクセル活用
   物理シミュレーションソフトは色々あるようですが、汎用性が高いものはマニュアルを覚えるのが大変です。逆に操作が簡単なソフトは自分なりにアレンジできない。どっちにしても、自作感がないですね。

ちょこっとVB
　実は、誰でも使っているエクセルの基本機能で、高校物理範囲のシミュレーションなど十分に可能です。見せるためにはエクセルのグラフ機能があります。しかし、ア二メーションのように動かしたり、効果的にするには少し工夫が必要です。
　エクセルに組み込まれている「マクロ」の機能、つまりVB（Visual Basic というプログラミング言語）を、ほんの少しプラスすると、シミュレーションらしくなり、自作ソフト感が出ます。
　「マクロなど使ったことがない」という人でも、授業に使える、オリジナル風ソフトができる。そういう方法を紹介して行きます。

例えば、たった一行のプログラム
　
今回、使うVBは次の３行です。１行目はプログラムの名前の宣言、３行目は終了の宣言なので、プログラム本体はたった一行です。

　   Sub 増やす()
     Range("E4") = Range("E4") + 0.1
     End Sub

エクセルのE4セルの値を0.1増加させるプログラムです。このような短い文をエクセル内に作り、それを動かすボタンをエクセルのシートに置くと、ボタンを使ってグラフの表示を動かすことができます。

今回は　ケプラー第３法則

惑星の太陽からの距離（楕円軌道の長半径a)と公転周期(T)との関係は

　　Tの２乗がaの３乗に比例、つまり　Tはaの１．５乗に比例している。

　これをワークシート上で発見しましょう。

kep11

今回のワークシートの使い方

グラフの形を見ながら、　a^x の指数部分x、E4セルの値を増減します。

１乗ではグラフが上に曲がる。2乗以上では逆に下に曲がる。グラフは直線になるのは、途中のどこかだ。

ボタンの連打で　0.1ずつ変えて行くと‥。1.5乗のとき、グラフがピシッと直線になります。

ワークシートの作成
　
①図のようにデータを置きます。

②　D6セルは =C6^$E$4 とします。それを、D7からD11まで関数コピーします。

③グラフ挿入で散布図を選びます。

④データの選択で系列の編集を選び、系列XにD6～D11、系列YにはB6～B11を範囲指定します。

⑤グラフエリアの書式設定でXYの目盛りをどちらも最小値０、最大値30に固定します。

VBの作り方

　　もし、お使いのエクセルで[開発]タブが見えない場合は，次のようにして表示させる設定にして置きます。
　　　　１　[ファイル] タブをクリックします。　　　２ [Options] をクリックします。　
　　　　３ [リボンのユーザー設定] をクリックします。
　　　　４　[リボンのユーザー設定] および [メインタブ] の下の [開発] チェックボックスをオンにします。
　
①　alt+F11 または開発タブからコードの表示で　VBエディターを開きます。

②　This worksheet のオブジェクトをダブルクリックして、右側の窓に例の３行を打ちます。

code

③それをコピーして減らす（）と名前を変えて、0.1を-0.1に変えた３行も作ります。

　   Sub 増やす()
     Range("E4") = Range("E4") + 0.1
     End Sub

　   Sub 減らす()
     Range("E4") = Range("E4") - 0.1
     End Sub

④✖で閉じるなどして、通常のワークシートに戻ります。

シートにボタンを作る

①開発タブ　→挿入→フォームのボタンを挿入→シート上でドラッグして□形のボタンを作る。

②すぐにマクロの登録の窓が出現するので、Sub 増やす()　を選ぶ。

③同様に　もう１個のボタンを作り、そのボタンには　Sub 減らす()　を登録する。

star サンプルのダウンロードです。

Kepler3rdsample.xlms

おもしろ実験メニュ　　　前の実験　　次の実験

分類順メニュへ　