Excel Maniacs

記録マクロの功罪（２）

初心者向けを謳っているマクロ解説本を見ると記録マクロから

入っていくものが多いように見受けられます。確かにプログラミングに

関する知識を何一つ持たずにコードが手にはいるのですからお手軽と言えば

これ以上お手軽なものもありません。

　しかし、お手軽でかつ、素晴らしいというものは世の中に数多くは

ありません。記録マクロには大きな弱点があることを意識しておくべきでしょう。

記録マクロの弱点

1. 余計なコードを生成することが非常に多い。
   そのため、コードが煩雑になる傾向がある。
2. 実際にマウスとキーボードで操作できること以外の
   コードは作れない。
   　したがって１０００回繰り返すには同じことを
   １０００回やらなくてはならない。煩わしくてやってられないですよね。
3. ２．と同様の理由で条件判断を含むコードを生成することができない。

以上の理由で、くまぷーは志の高い入門者には記録マクロから入ることを

お奨めしません。多少、敷居が高く感じようとも基礎の文法からしっかり学んだ方が

良いと思います。文法を知らずに会話だ、会話だと狂奔する英語教育のようなもので

定型的な挨拶だけであとはさっぱり・・・となることが多いようです。(-_-;)

今回は記録マクロの功罪の「罪」について述べさせて頂きました。

記録マクロの功罪(1)

　三四郎はユーザがマウスやキーボードで行った操作を

記録して再現する機能を持っています。

この機能は「記録マクロ」と言われています。

(●`ε´●):どうやってやるんだ？

【´･ω･`】:メニューを「ツール」「マクロ」「記録開始」と辿ればいい。

そうすると三四郎が自動的にユーザの行った処理を記録してくれる。

(●`ε´●):記録って？

【´･ω･`】:例えばA1に「くまぷー」と入力するとその操作を三四郎が

プログラムに翻訳してくれるんだ。下が記録マクロで作られたコードだ。

!! マクロ記録 : 2007/03/31 14:02:16

Range("A1").SetCurrent()
CurrentCell.Formula = "くまぷー"

３行あるが、最初の緑の行はコメントと呼ばれていて

プログラムの実行時には無視される。

単なる説明のための行だ。

行頭に感嘆符を二つ入力するとその行はコメントになる。

(●`ε´●):ではＡ１に「くまぷー」と書き込むのに必要なのは

下の２行ということなんだな？

【´･ω･`】:：うん。

(●`ε´●):ちょっと解説してくれ。

【´･ω･`】:ＯＫ。Range("A1")はセルＡ１を示している。

SetCurrent()はアクティブにする、ということだ。

だからRange("A1")とSetCurrent()を「．」（ドット）でつないで

　　　　　　　　　　　　　　Range("A1").SetCurrent()

と記述するとセルＡ１をアクティブにしなさい、という命令になる。

(●`ε´●):セルをマウスでクリックしたりするとそのセルの枠が

黒太表示になって文字などを入力できるようになる。

この状態をアクティブって言うんだったよな？！

【´･ω･`】:うん。

(●`ε´●):で、次は？

【´･ω･`】:CurrentCellは現在のアクティブセル。

(●`ε´●):つまり、Ａ１だな？！

【´･ω･`】:うん。Formulaは式。つまり、Ａ１の式として「くまぷー」を

代入しなさいということ。

この２行を実行するとＡ１に「くまぷー」と入力したのと同じことになる。

(●`ε´●):「くまぷー」ってのは式じゃないだろ？

【´･ω･`】:うん、でも記録マクロを使うとそういうコードが

生成されてしまうんだ。実際には自動記録で生成されるコードは

冗長なものになることが多いんだ。例えばセルＡ１に「くまぷー」入力するだけなら、

　　　　　　　　　　Range("A1") = "くまぷー"

の１行で十分だし・・・。

(●`ε´●):この方がすっきりしているな。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

得点ランダム入力５

前回までは３行マクロに拘り、実用性の面から見ると今ひとつの作品でした。

今回はIF文により、出席番号が１桁の場合と２桁の場合とで処理を別にして

いるので出席番号と得点を「．」（ドット）などで区切らなくても差し支えありません。

!!ランダム点数入力3　by　くまぷー
!!2007/03/31
!!出席番号（２桁）と得点（３桁）を
!!「出席番号得点」の形式でランダムに入力すると
!!名前の横にその者の得点が表示される。

!!入力例
!!出席番号７番が８７点の場合→7087
!!出席番号15番が100点の場合→15100
!!出席番号9番が5点の場合→9005

Range("E2:E41").Clear(1, false, false, false)

For %i = 2 To 41

　　　If Len(Cells(%i, 1)) = 5 Then 
  　　　　　　%出席番号=Left(Cells(%i, 1), 2)
　　　Else
  　　　　　　%出席番号=Left(Cells(%i, 1), 1)
　　　 End If
　　　Cells(%出席番号 + 1, 5) =Value(Right(Cells(%i, 1),3))

Next

snsSample004.zipをダウンロード