Excel Maniacs

一太郎マクロ・・・ユーザの入力を受け取る

　WORD FINDはオプションで空白のマス目に無作為にアルファベットを

書き込むかどうかをユーザが決められるという仕様である。

このことはこの「★一太郎マクロ初心者奮戦記★」の始めに明記してある。

　エクセルやワードならばシートにチェックボックスをちょちょいと配置できるのだが

一太郎にはそのような機能は無いようだ。仕方がないのでメッセージボックスを

使うことにした。ヘルプでメッセージボックスの使い方を調べてみると

けっこう使えそうだということがわかった。一番簡単な使い方は以下の書式である。

　　　　　　　　　　　　MsgBox("世界よ、こんにちは！！")

これを実行すると下のようなウインドウが表示される。

*

*

*

*

*

これでは単にメッセージを表示するだけなのでもうひと手間かけて

以下のようなコードにする。

%para = {.Title = "回答例が見つかりました。", .Icon = 3, .Button = 5}
%Ans = MsgBox("空白をアルファベットで埋めますか?", %para)
If %Ans=6 Then
　　　　!!ここに空欄をランダムな
　　　　!!アルファベットで
　　　　!!埋める処理を記述する
End If

上のコードを実行すると下のようなウインドウが表示される。

*

*

*

*

これでユーザに選択させればよいだろう。

ちなみに.Icon = 3は「問い合わせ」を、.Button = 5は「はい」、「いいえ」ボタンを

表示させる。フラグである。そして%Ans=6は「はい」ボタンが選択されたことを示し、

%Ans=７は「いいえ」ボタンが選択されたことを示している。

一太郎マクロの大御所からメールが・・・(ﾟﾟ;)ｴｴｯ

一太郎マクロと言えばあの方・・・そう１．３マクロ館の悪児さんからメールが来てしまいました。この方は一太郎の発売元であるJUSTSYSTEMから一太郎キングの称号を得ているほどの大物です。とても一太郎初心者の及ぶような方ではございません。 　以下が悪児さんからのメールです。 こんばんは。 WORD　FIND＆一太郎マクロ初心者奮戦記ですが、 とても面白いですね。（いろんな意味で　(^^;)(^^;)） で、うまく、コラボレートできたら、 より面白くなりそうです。 例えば、 １３マクロ館で、悪児なら、こうする、 というコーナーを作って、 悪児版を紹介させていただく。 とか。 また、逆に、 マクロ館で悪児が、Excelマクロを作って、 それをくまぷーさんが、くまぷー版を作って、 くまぷーのエクセル道場で紹介する、 というのも、平行してやったら、 面白そうですが・・・(^^)ゞ 悪児

悪児さん登場となると一太郎マクロ初心者の拙さが目立ってしまうけど面白そうなので、是非やってくださいと返事をしました。 下が悪児さんの１．３マクロ館のアドレスです。 「悪児ならこう作る」のコーナーをみなさん、是非ご覧下さい。 くまぷーも勉強させてもらいます。(^｡^) http://homepage3.nifty.com/r-watanabe/index.htm そして一太郎マクロファンの方、掲示板にご意見等を頂けたら幸いです。

一太郎マクロ･･･マス目に単語をランダムに並べる(4)

  単語をマス目に配置するときのもう一つの問題は上書きの問題だ。

前にも書いたが、例えばkumapoohという単語がすでに配置されていて、

その後にbebechanという単語を書き込むとする。

bebechanがkumapoohに重なるとkumapoohの一部、または

ぜんぶbebechanという単語が上書きしてしまう。

こういう事態をさけて単語を配置しなければならない。

　単語を書き込めるか否かの判定基準を整理すると以下のようになるだろう。

（１）マスが空白の場合は文字を書きこめる。

（２）マスが空白でない場合は、既に書かれている文字が

     これから書き込む文字と同じならば文字を書き込める。

具体的なコードは以下のようになるだろう。書き込み８方向のうち、

左下から右上に単語を書き込む場合を例示することにした。

残りのの７方向についても本質的には変わるものではない。

注：%Star：書き込もうとする単語の文字列
　　 %CanPlace：単語を書き込めるか否かを示すフラグ。Trueなら書き込める。
　　 %WordNum：書き込んだ単語の数。

%CanPlace = True

!!書き込めるか否かを調べる。書き込めなければ
!!フラグ%CanPLaceをFalseにする。

For %DY = %Length To 1 Step -1
　　　For %DX = 1 To %Length
　　　　　　　If $MyCell(%Y - %DY + 1, %X + %DX - 1) <> "" And $MyCell(%Y - %DY + 1, %X + %DX - 1) <> Mid(%Str, %DY, 1) Then

　　　　　　　　　%CanPlace = False
　　　　　　　　　Exit For
　　　　　　　End If
　　　Next
Next



!!フラグ%CanPlaceがTrueなら実際に書き込む。
If %CanPlace = True Then
　　　For %DY = %Length To 1 Step -1
　　　　　　$MyCell(%Y - %DY + 1, %X + %DY - 1) = Mid(%Str, %DY, 1)

　　　Next
　　　!!単語を書き込んだら%WordNumに１を加算する。
　　　%WordNum = %WordNum + 1

End If