Excel Maniacs

悪児さん、漢字書取問題挑戦６公開

「悪児さんの逆襲・・・漢字書取問題挑戦５(続）」に対して悪児さんのコメントが

公開されました。くまぷーはすでに

「日経PC２１表計算腕自慢大会マクロ部門を一太郎で!!」というお題に

移ってしまったので、話の流れが前後してしまうのですが、

今回は以前に戻ってまた「漢字書取問題作成マクロ」扱います。(^^ゞ

　くまぷーは「漢字書取問題挑戦５」について次の２点の指摘させていただきました。

１．パソコン（環境）によっては、正常に動作しないことがある。
２．「（残業）と（残業手当）とサービス残業」が上手く変換できない。

詳しくは「悪児さんの逆襲・・・漢字書取問題挑戦５(続）」をご覧下さい。

１．については悪児さんは次のように仰っています。

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

　これについてはくまぷーも同感です。PushKeys（）を使うとコードが上から順に

実行されなくなったりするなど極めて気まぐれな関数なので、PushKeys（）を

使ったプログラムはどうしても気まぐれなプログラムになってしまいます。

できるならばPushKeys（）は使いたくない関数です。ですから、プログラムの安定性を

考えれば今までのプログラムの中では一番実用性の高い方式は

くまぷーの「漢字書取問題作成マクロⅡ」ではないのかと思っています。

あれではExcelを一太郎マクロで呼び出し、その機能を利用するという手を

使っています。PushKeys（）を使っていないので安定性は一番です。

Excelの普及度を考えるとあの方式がが一番、いいのかなと・・・(^^ゞ

２．については・・・

『ATOKが勝手に音節を区切って部分的に変換してしまうためで、実は、随分前から気づいていて（「漢字書取問題挑戦５」の登録ファイルのメモにある、　「熟語になっている漢字以外は誤動作する可能性があります」という記述がそれです）、　　その改良版も出来上がっていたのですが、くまぷーさんのご指摘を待っていたのです。』

・・・ということです。

　早速、DLして試してみると漢字の読み取り部分は良くなっていたのですが、

同じ漢字については同じ番号を振ったふりがなに変換するという部分の不具合が

まだそのまま残っていました。何かの手違い？かと思いメールにてお知らせいたしました。

そのことについては悪児さんのサイトをご覧下さい。

　現在のバージョンは「きっちーさんのキー割付」を取り入れたものに差し替えたそうです。

これで今までの最強版ができあがったということになるのでしょうか。

---

・・・てなことを書いていた悪児さんより、下記のご指摘を頂きました。

>くまぷーさんの、「Ⅲ」の場合、
>範囲指定して実行した場合、
>範囲外の漢字まで、
>丸数字＆かなに変換されてしまいます。
>これは、「仕様」でしょうか？

【´･ω･`】；「文字全置換」を使っているから、これは仕様です！！

(●`ε´●)：おい、くまぷー！そんなことを言っていると悪児さんの

「漢字書取問題挑戦６」が最強だということを認めてしまうことになるぞ！！

【´･ω･`】：だってあっちの方が優れているんだもん、仕方がないよ。

(●`ε´●):：なんだ負けを認めて終わりか？

【´･ω･`】：ここまで戦ったんだから、いいじゃん。相手は一太郎界の大御所なんだし・・・。

(●`ε´●)：立て、立つんだジョー３さん！！（「じょー」と打ったら「ジョー３さん」に

変換されてしまいました）いや、立て、立つんだくまぷー！！

今こそ「漢字書取問題作成マクロⅣ」を出すとき時だ！！

【´･ω･`】：しかたがないなあ～。じゃちょっと待っててd(^-^)ネ!

Pushkeys()で新規シートを追加・・・

　AddSheet()は名前だけ見ると新規シートを追加する関数のようなのだが、

既存のファイルを読み込んでシートとして追加するものだということがわかった。

なんで単純にシートを追加する関数が無いんだ。それぐらいあってもいいと

おもうのだが、開発側の手抜きではないか？！それともくまぷーのヘルプの見方が

悪いだけなのか？それならば一太郎Webフォーラムにでも「教えてください」と

投稿すれば悪児さんやきっちーさんが教えてくれるかもしない(^^ゞ

　うだうだ言っていても方ないので使いたくはなかったのだがPushKeys（）による

キー転送でシートを追加することにした。下がそのコードだ。

PushKeys("#F{DOWN}{DOWN}{DOWN}{DOWN}{DOWN"\\
& "}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}"\\
& "{DOWN}{RIGHT}{ENTER}#N")

これで取り敢えず新規シートは追加することが出来た。そこでくまぷーは

追加されたシートの名前が「2007年2月」になるように下のコードを書いた。

PushKeys("#F{DOWN}{DOWN}{DOWN}{DOWN}{DOWN"\\
& "}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}"\\
& "{DOWN}{RIGHT}{ENTER}#N")

ChangeCurrentSheet( "Sheet" & %Str )

%Str=GetSheetCount( )
CurrentSheetItem("2007年" & %Str & "月")

すると不思議なことに一枚目のシートの名前をデフォルトの「Sheet1」のままに しておくと正常に動作するのだが「2007年1月」に変更してマクロを実行すると 誤動作してしまうのだ。マクロのコードを全然変更しないで「Sheet1」の名前を ちょっといじっただけで誤動作してしまうのだ・・・(?_?)。 いったい、どういう内部構造になっているのだろう。

手強し、ジャストシステム！！

そこでくまぷーは考えた。シート名がデフォルトじゃないと誤動作するならば、 マクロ実行前にデフォルトに戻しておけばいいじゃん！！ そして実行後に名前を再設定する・・・ !!シート名をデフォルトに戻す %Str=GetSheetCount( ) CurrentSheetItem("Sheet" & %Str) !!新規シート追加 PushKeys("#F{DOWN}{DOWN}{DOWN}{DOWN}{DOWN"\\ & "}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}"\\ & "{DOWN}{RIGHT}{ENTER}#N") !!新規シートの名前設定 ChangeCurrentSheet( "Sheet" & %Str ) %Str=GetSheetCount( ) CurrentSheetItem("2007年" & %Str & "月") !!元のシートの名前を書き戻す %Str=%Str-1 ChangeCurrentSheet( "Sheet" & %Str ) CurrentSheetItem("2007年" & %Str & "月") ChangeCurrentSheet( "2007年" &(%Str+1) & "月") かなりドタバタしているけれど取り敢えずこれで動く・・・。 でもまたまた基本的な問題が・・・ ジャストシステムは楽しませてくれるなぁ・・・ サンプルファイルをダウンロード

一太郎マクロで新規シートを追加・・・

いよいよ、今回から日経PC２１表計算大会マクロ部門のＱ２に一太郎で 挑戦する。Ｑ２のお題は「翌月シートを作成し、今月の残高を自動転記」と いうことである。 　一太郎はくまぷーの知る限り、複数シートに対応している唯一の ワープロソフトである。ま、表計算ソフトではないので計算機能が エクセルに劣っているのは当たり前なので、その辺をマクロで処理すれば、 一太郎はもともと複数シートをサポートしている のだから、前回のお題の「漢字書取問題作成マクロ」に比べれば お茶の子さいさい、朝飯前の屁のカッパであろうとタカをくくっていた。（￣＾￣） 　くまぷーは鼻歌交じりに一太郎を起動した。そしてシートを追加するには どのようなコードを書けばよいのかと「記録マクロ」を使って調べることにした。 　やってみると･･･。

またかよ(-_-;)

コードが生成されないのだ。ふりがな機能の「すべて単語」に続いて「シートの 追加」もかよ。確か、一太郎が複数シート対応になったのはVer.１０の ときだったはず。

ジャストシステムよ、 毎年バージョンアップしているのに いったい何年、放置しているんだ？！ ヽ(`Д´)ﾉ

くまぷーはこう見えても温厚な性格である。一太郎はなんと言っても ジャストシステムの主力製品である。いくらなんでも、何年もの間、知らんぷりで うっちゃられているはずがない。くまぷーの調べ方が甘いのではないかと 気を取り直してヘルプを調べてみることにした。ひょっとしたら、何か手が あるかもしれない。「Sheet」をキーワードにしてヘルプを調べてみた。

お～、な～んだ、あるじゃん！！ (*^｡^*)

検索リストの中にはしっかりと「AddSheet」というマクロ関数が 載っていた。 と、ところが･･･ 　よく見るとAddSheet関数は「一太郎ファイルからシートを追加します。」とある。

(･_･)......ﾝ?、 一太郎ファイルから･･･？

なんとこの関数は単に新規シートを追加するのではなく、既存の 一太郎ファイルをシートとして読み込むという機能なのだ。 使えねぇじゃん！！

(-_-;) またPushKeys()で キー転送かぁ～？