 |
表示・ツールバーで、Ｖｉｓｕａｌ Ｂａｓｉｃにチェックを入れると、下のような、ツールバーが現れます。 編集ボタンをクリックします。
|
エクセルのマクロは、ｓｕｂ型とｆｕｎｃｔｉｏｎ型の２通りあります。ｓｕｂ型は、オートマクロ機能で自動生成することもできますが、ｆｕｎｃｔｉｏｎ型はすべて自分で書かなければなりません。ＶＢＡ言語で記述しますが、ＢＡＳＩＣ言語を習ったことがあれば、ほとんど同じです。
１．書き出しと書き終わり
Ｆｕｎｃｔｉｏｎ 名前（引数１，引数２，・・） ＊名前・引数はアルファベットで、
Ｅｎｄ Ｆｕｎｃｔｉｏｎ ＊これが、書き終わり
２．名前について
定義したい関数名は、シート関数で既に使われているものは使えません。定義済みの関数は英語名なので、ローマ字表記の日本語を使うと、殆どダブりません。この名前が、そのまま戻り値の変数名として使われます。従って、構文の中に、必ず関数名を定義する文が入っているはずです。
例：ｈｉｒｉｔｕという関数を定義するとき、
Function hiritu(分子，分母）
hiritu=分子／分母
End function
３．引数について
定義したい関数を計算するために必要な変数を、引数といいます。引数が無い場合でも（ ）は必要です。引数が複数ある場合は、，（カンマ）で区切って並べます。上の例のように日本語（全角）は使えません。半角英数のみ使用可能です。
例：ｈｉｒｉｔｕという関数を定義するとき、
Function hiritu(bunsi，bunbo）
hiritu=bunsi / bunbo
End function
注：本来は、変数はｄｉｍ分で、種類の定義が必要です。整数（±３２０００の範囲）や小数点以下も含まれる数とか、あらかじめ数の種類によって定義します。しかし、これをしなくとも、自動で定義されます。メモリーを有効に使うためには、細かく定義した方が良いのですが、さほど大きくないマクロでは、自動変数でも構いません。
４．定義された関数を使う
使い方は、シート関数と同じです。引数には、直接セルの座標を書き込みます。関数の書かれたセルに、計算された返り値が入ります。
例： =ｈｉｒｉｔｕ（Ａ４，Ｂ４）
５．シート関数（組込関数）とｆｕｎｃｔｉｏｎ関数（マクロ関数）の違い
シート関数も、マクロ関数も使い方の上では、全く同じです。マクロが組み込まれているシートでないと、マクロ関数は使えないのに対し、シート関数はすでにワークシートに組み込まれているので、定義無しで使えます。マクロ関数を全てのシートで使いたいときは、これをｐｅｒｓｏｎａｌ．ｘｌｓというブック名で保存しておきます。エクセルの起動時に、このファイルがあるとｂｏｏｋに組み込んでくれます。この機能を利用して、エクセルのマクロウイルスは、ｐｅｒｓｏｎａｌ．ｘｌｓの名前で保存されています。このため、ｐｅｒｓｏｎａｌ．ｘｌｓのファイルはウィルスの温床のようになってしまっています。
ｆｕｎｃｔｉｏｎ文の中では、ＶＢＡの関数を使います。これが、組込関数と同じ名前であったりするので混乱しますが、あくまで、別物です。構文が異なるので注意して下さい。例えば、ｉｆ文は
ｉｆ 条件式 ｔｈｅｎ ○ ｅｌｓｅ × で書き、行を変えて書く場合は、最後に ｅｎｄ ｉｆ が必要になります。組込関数のｉｆ とは、全く別物です。
エクセル９５では、挿入・シート・モジュールシートで、白紙のシートが開きます。ここに、ｆｕｎｃｔｉｏｎから書き始めます。エクセル９７以降は、モジュールシートを開く手順が面倒になりました。
|
表示・ツールバーで、Ｖｉｓｕａｌ Ｂａｓｉｃにチェックを入れると、下のような、ツールバーが現れます。 編集ボタンをクリックします。
|
このような、ＶｉｓｕａｌＢａｓｉｃの編集画面が現れます。
さらに、挿入メニューを開き、標準モジュールをクリックします。
最近のＷｉｎｄｏｗｓでは、昔のＢａｓｉｃのようなプログラムが作れませんが、エクセルのマクロを使うと、Ｂａｓｉｃ風のプログラムが楽しめます。ＶＢＡの勉強の参考にしてください。
素数かどうかの判定
１と自分自身以外に約数が無ければ素数です。偶数の素数は２以外に無く、素数はすべて奇数です。そこで、３・５・７・・・と、片っ端から奇数で割っていき、割り切れる数が無いか調べます。しかし、その数自身まで調べる必要は無く、その数の平方根に近い奇数まで調べれば十分です。ｎがｍ１で割り切れれば、ｎ＝ｍ１×ｍ２となるはずで、ｍ１がｎの平方根により大きな奇数であれば、ｍ２はそれよりも小さい奇数のはずで、すでにチェックしているはずです。ｎの平方根に近い内輪の奇数をｎ０とし、ｎを３・５・７・９・・・ｎ０と割り算していって、割り切れるものが無ければ、その数は素数です。
素数を見つける関数の仕様を決める
関数 Ｓｏｓｕ（Ｎ）は、Ｎ以上の最も近い素数を返すようにします。
Ｓｏｓｕ（１０）＝１１で、Ｓｏｓｕ（１１）＝１１というようにこの関数は、ｎ以上の素数を返すようにします。こうすると、ｎがどんな数であっても、必ず整数を返します。
割り切れるかどうかは、Ｍｏｄ関数を使って調べます。ｎ Ｍｏｄ ｎ０ は、ｎをｎ０で割った余りを返します。ｂａｓｉｃの関数ですがＶＢＡでもそのまま使えます。
平方根は ＳＱＲ（ｎ）を使い、この内輪の整数は ＩＮＴ（ｎ）で求めることにします。
ＩＮＴを使うと、 Ｎ／ｎ０ と ＩＮＴ（Ｎ／ｎ０）が等しいかどうかで、Ｎがｎ０で割り切れるかどうか判定できます。実際には、この形式で作ってあります。
Ｄｏ Ｌｏｏｐ Ｕｎｔｉｌ 条件式
Ｄｏ Ｌｏｏｐ を使うと、繰り返しが作れます。Ｕｎｔｉｌは、条件が成立しない間 Ｔｉｌは条件が成立するまで、繰り返されます。割る数を ３・５・７・・と２ずつ増やして行き、割る数が平方根を超えるまでチェックしますが、途中で約数が見つかったら、次の奇数を調べます。ここでは、２重のＬＯＯＰを使っています。
最初の２行は、引数が偶数の場合は１を加えて、調べるスタートの数Ｎｓを奇数にするものです。
正確には、ＮやＮｓ・ｎ０（Ｎの平方根に近い整数）は整数として定義しなければなりませんが、特に定義しなくても動きます。（ Ｄｉｍ Ｎ ａｓ Ｉｎｔｅｇｅｒ）
モジュールシートを開く
実際に関数を書き込むのは、ワークシートでなくモジュールシートです。ＶｉｓｕａｌＢａｓｉｃのツールバーを表示させＥｄｉｔｏｒのボタンをクリックします。
ここの挿入メニューで、標準モジュールを挿入します。これで開いた窓に書き込みます。
ワークシートでこの関数を使う
これで、＝ｓｏｓｕ（１０） と入れれば、１１と出るはずです。
自動的に、２００個の素数を計算するように関数を入れたものが下の例です。
実際のファイルは ここから ダウンロードできます。（ｓｏｓｕ．ｘｌｓ ２５ＫＢ）
●戻る
