Excel Maniacs

一太郎マクロには「文書マクロ」など存在しない(2)

前回、一太郎の「文書マクロ」はシート毎に独立していて、Sheet1の

「文書マクロ」はSheet2からは見えないということを書いた。

だから、Sheet2からSheet1のマクロを実行することが出来ない。

Sheet2からRunDocumentMacro（"シートを追加"）とやると

「指定したマクロがありません」というエラーになるのだ。

　では修飾詞をつけてRunDocumentMacro（"Sheet1．シートを追加"）、

あるいはRunDocumentMacro（"Sheet1!シートを追加"）としたら

どうであろうかと思い足掻いてみたのだが、結局上手く行かなかった。

（●｀ε´●）：ギブアップか？

【´･ω･`】：この程度で白旗を掲げるはず無いだろ！！

　一太郎マクロ初心者は何か打開策はないものかとヘルプを

いろいろ調べてみた。そして次の方法をとることにした。

１．Sheet1のマクロ「シートを追加」をいったんシステムマクロとして複写する。
２．システムマクロ「シートを追加」をSheet2の「文書マクロ」に複写する。
３．システムマクロ「シートを追加」を削除する。

下がそのコードだ。

!!シート名をデフォルトに戻す
%Str=GetSheetCount( )
CurrentSheetItem("Sheet" & %Str)

!!元シートをコピー
SelectAll()
Clip()

!!新規シート追加
PushKeys("#F{DOWN}{DOWN}{DOWN}{DOWN}{DOWN"\\
& "}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}"\\
& "{DOWN}{RIGHT}{ENTER}#N")

!! 文書マクロ "シート追加" をシステムマクロ
!! "シート追加" へコピーする
%moto_name = "シート追加"
%saki_name = "シート追加"
%saki_title = "シート追加"
DuplicateMacro( %moto_name, 2, %saki_name, \\
%saki_title, 1 )

!! システムマクロ "シート追加" を文書マクロ
!! "シート追加" へコピーする
ChangeCurrentSheet( "Sheet" & %Str )
DuplicateMacro( %moto_name, 1, %saki_name, \\
%saki_title, 2 )

!! システムマクロ "シート追加" を削除する
DeleteMacro("シート追加" , 1)

!!新規シートの名前設定
%Str=GetSheetCount( )
CurrentSheetItem("2007年" & %Str & "月")

!!元シートを新規シートに複写
Paste()

!!元のシートの名前を書き戻す
%Str=%Str-1
ChangeCurrentSheet( "Sheet" & %Str )
CurrentSheetItem("2007年" & %Str & "月")
ChangeCurrentSheet( "2007年" &(%Str+1) & "月")

いやあ、本当に一太郎は面白いなぁ！！

パズルみたいだ！！(^｡^)

サンプルファイルは下からダウンロードしてください。

AddSheet3.lzhをダウンロード

一太郎マクロには「文書マクロ」など存在しない

　間に「漢字書取問題作成マクロ」の話題が入ってしまった。

話を元に戻そう。話は「日経表計算大会腕自慢マクロ部門を一太郎で！！」だ。

前回は一太郎マクロに新規シートを追加する命令がないので

PushKeys（）で誤魔化したところまでであった。

　そこで次にくまぷーは元シートの内容を新規シートにコピーするために

次のコードを書いた。赤い部分が前回のコードに付け加えた部分である。

ここさえできてしまえば完成したも同じである。

!!シート名をデフォルトに戻す
%Str=GetSheetCount( )
CurrentSheetItem("Sheet" & %Str)

!!元シートをコピー
SelectAll()
Clip()

!!新規シート追加
PushKeys("#F{DOWN}{DOWN}{DOWN}{DOWN}{DOWN"\\
& "}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}"\\
& "{DOWN}{RIGHT}{ENTER}#N")


!!新規シートの名前設定
ChangeCurrentSheet( "Sheet" & %Str )
%Str=GetSheetCount( )
CurrentSheetItem("2007年" & %Str & "月")

!!新規シートに元シートをコピー
Paste()

!!元のシートの名前を書き戻す
%Str=%Str-1
ChangeCurrentSheet( "Sheet" & %Str )
CurrentSheetItem("2007年" & %Str & "月")
ChangeCurrentSheet( "2007年" &(%Str+1) & "月")

くまぷーは上のマクロを実行してみた。狙い通りに新規シートが追加され、 元シートの内容がコピーされていた。うまくいった・・・と思ってさらに 新規シートからもう一枚、新にシートを追加するためにマクロを 実行してみようとした。すると・・・。

(・_・)......ン? な、ない！！

文書マクロのリストに「シートを追加」マクロが登録されていないのだ。 一太郎では「文書マクロ」という言葉を使ってはいるが、その実態は 「文書マクロ」ではなく「シートマクロ」であったのだ。 「文書マクロ」というならば、文書単位、つまり同じファイルのなかならば、 どのシートからも利用できるはずなのだが、一太郎はシートにマクロが くっついているのだ。 一太郎の複数シートシステムは内部的には複数の文書を１つのファイルに 見せかけているに過ぎないのであろう。 　話が脇に逸れるが、ひょっとしたら、悪児さんが以下のように 仰っていたことに関わっているのかも知れない。 掲示板で、くまぷーさんからまだ直っていない、というご指摘を頂きました。(^^;)(^^;) 　　確認したところ、旧バージョンが残って、新バージョンが入っていなかったいたようです。 　　しかし、「マクロ」－「変更から」システムマクロからコピーしようとすると、　　文書マクロのウインドウに、「６-2」が・・・。しかし、「マクロ」－「編集」からマクロを開こうとすると、「６」しかなくて、開くと、旧版。うぅ～～ん。(-_-;) 　　一旦別文書にコピーして、そこからコピーしたら、２つ見えるようになりました。 　　一体、何だったんだろう・・・。というわけで、もう一度、差し替えました。m(_ _)m （詳しくはこちらを。赤字にしたのはくまぷー） 　いやあ、本当に一太郎は面白いなぁ！！ サンプルファイルは下からダウンロードしてください。 TaroAddSheet2.lzhをダウンロード

くまぷー、一太郎 漢字書取問題作成マクロⅣを公開

　とうとう漢字書取問題作成マクロシリーズもVer.4となりました。

以前、くまぷー版はⅢで打ち止めだと申しましたが、

「くまぷーさんのⅢに完敗です。m(_ _)m」と

仰っていた悪児さんがまだ攻めて来るので、再びこのテーマに

取り組むことに致しました。

　それでⅣの特徴を申しますと・・・

一切PushKeys（）を使っていない

･･･ということです。PushKeys（）を使っていないので、

動作は非常に安定しております。

　ところが悪児さん版ではご本人が次のように述べられているように、

不可避的に動作が不安定です。

『元々「PushKeys」をマクロで制御しようというのが「裏技」ですから、十分な動作保証などできない、という立場ですので、すべてのパソコンで正常に動作する、などということは望んでいません。　　というか、通常は正常に動作していても、裏で別アプリを動かしているときなど、同じ作業でも誤動作することがありますので、それ以上は諦めています。「ＣＰＵの使用状況等によって誤動作することがあります」という注意書きで「終わり」ですね。』

（●｀ε´●）：くまぷー、おまえはPushKeys（）を使わないことによって、 　　　　　　　プログラムの動作を安定させたというわけか？ 【´･ω･`】：うん。 （●｀ε´●）：例の「一太郎とEXCELの連携」か？Excelはおまえの 　　　　　　　得意技だから、それもおまえらしくていいかもな！！ 【´･ω･`】：いや、Excelは使っていないよ。一太郎の機能だけだよ。 （●｀ε´●）：えっ？！早く見せろよ！！ 【´･ω･`】うん、ではアップするよ・・・ ・・・とすぐに公開するつもりだったのですが、悪児さんが 一太郎Webフォーラムに「No.3585　マクロ作ってみませんか。」という投稿を なさいました。ここでこのコーナーを紹介して、「日経PC表計算腕自慢大会 マクロ部門Q2」の競作を多くの一太郎ファンに呼びかけられました。 お祭り好きのくまぷーです。悪児さん、ありがとう　(^o^)/~~~ 【´･ω･`】：面白い展開になってきたな！！実は「漢字書取問題作成マクロⅣ」 　　では「日経PC表計算腕自慢大会マクロ部門Q2一太郎版」用に考えた 　　　テクを使っているんだ。だから、「漢字書取問題作成マクロⅣ」は 　　　申し訳ないけど、完成していますよということを示すために 　　　パスワード付きでアップしておくよ。 　　　パスワードの公開はしばらく待ってd(^-^)ネ! 【´･ω･`】：　そうそう、悪児さんからご指摘を頂いた >くまぷーさんの、「Ⅲ」の場合、 >範囲指定して実行した場合、 >範囲外の漢字まで、 >丸数字＆かなに変換されてしまいます。 >これは、「仕様」でしょうか？ 　　　　　の件も当然、「漢字書取問題作成マクロⅣ」ではOKですよ。 ※一太郎Webフォーラムをご覧の皆様、飛び入り・野次馬大歓迎です。是非ご参加下さい。　掲示板はこちら。

（2006/12/31)

※現在はパスワードなしのものを公開しています。下よりDLしてください。

Taro_Kanjikakitori4.lzhをダウンロード