Excel Maniacs

どうなっているんだい、この弁当屋は？！

Ｎ高校の進学指導部と就職指導部では昼食を弁当屋に頼んでいます。 ちなみに一個500円です。実は今日、ちょっと見過ごせない事件が起きました。 なんと今日注文した弁当の中に一つだけ昨日のメニューと同じものが 混じっていたのです。これはいったいどういうことでしょうか？！ どう考えても昨日の売れ残りを持ってきたとしか思えません。 おまけにくっついてきたパックの醤油は固まってゲル状になっています。

なめてんじゃねぇ～よ！ （○｀ε´○）

さっそくＮ高校弁当主任のＫ上先生が弁当屋に電話をしました。 弁当屋の話によるとあくまでも昨日の 残り物ではなく、今日新しく 作ったということです。たいへん立派な弁当屋さんです。 零細ながら お客さんサービスのために１日に２種類の日替わり弁当を 用意したということでしょうか？ それも５００円という同価格帯で！

明日からも２種類選んで注文できるんだろーな！

まったくふざけた弁当屋です。 　 ふざけた弁当屋といえばもっと凄いところがありました。 くまぷーの前任校での話です。くまぷーが  弁当の蓋をあけると 煮物のなかに何やら足のはえたものが入っていました。 何だろうと思ってよく 見ると…

ゴキブリの下半身です！ ゲゲ(゜_゜;)

割り箸でつついてみるとよく煮込まれて柔らかくなっていました。   くまぷーが声を上げてみんなにこのことを知らせようと思ったときは 時すでに遅しでした。  ほとんどの先生方はなにも知らずにゴキブリエキスの よく染み込んだ煮物を平らげた後でした。  くまぷーも大人です。Ignorance is bliss.「無知は至福なり（知らぬが仏）」と いう言葉くらい知っています。  同僚には何も言わずぐっと怺えて自分の 胸に納めておきました。  　しかし、ただ一つだけ気がかりだったのはゴキブリの上半身は どこへ行ってしまったのかということです。 珍味だと思ってきっと 誰かが食べてしまったのでしょう。 　Ignorance is bliss.とはまさに至言です。_(-_-)

※弁当主任…１０時までにその日の弁当注文個数を集約し弁当屋に電話注文し また各職員から代金を徴収し弁当屋に支払うという激務をこなさなければならない。 通常、その学校で一番有能で責任感のある人物がこの役職を担う。 学校現場に於いては「校長職」よりもはるかに重要な役職であるということはもちろん 常識である。

文字列操作・・・単語数を数える(1)

問）下のようにセルに英文が入力されている。単語数を求めなさい。

*

*

*

(●`ε´●)：英単語はスペースで区切られているから、スペースの数を数えて

                 それに＋１してやれば英単語の数になる。簡単だな。

【´･ω･`】：その考えでいいと思うけど具体的にどうやってスペースの数を数えるんだ？

(●`ε´●)：決まっているだろ。COUNT系の関数を使うんだよ！

【´･ω･`】：甘いな！COUNT系の関数はセルの個数を数えるんだよ。

               セル内に入力されている特定の文字を数えるのには不向きだよ。

(●`ε´●)：簡単そうに見えて結構難しいな。

一太郎マクロ初心者奮戦記Ⅱ・・・リストの単語を降順にソートする(2)

★コード解説(コード全体は「リストの単語を降順にソートする(2)」を

参照）

　まず1行目のSetLengthでサブプローシージャSetLength（下記）を呼び出している。

Sub SetLength
ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=44)

For %y = 1 to 20
　　　　%Str=""
　　　　For %x = 1 to 12
　　　　　　　　%S = GetCharacter()
　　　　　　　　If %S= " " Or %S = "　" Then
　　　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　　　右
　　　　　　　　%Str = %Str & %S
　　　　Next
　　　　$MyWord(%y)=%Str
　　　　$Length(%y) = Len(%Str)
　　　　ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=(5+%y),.文字位置=44)
Next

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=68)
For %i= 1 to 20
　　　　削除(.回数=2)
　　　　Insert($Length(%i))
　　　　!!ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=(5+%i),.文字位置=69)
　　　　DownCell()
Next

End Sub

これは前々回の「カーソル位置の文字を取得するには(2)」で

紹介したものと基本的に同じである。

　やっていることは

（１）グローバル変数$MyWord()にリストの単語を格納する。
（２）各単語の長さを列「Length」に書き込む。

の２点である。この前処理のあとメインルーチンの２行目に戻る。

以下の部分がソートの心臓となる部分だ。

For %i = 1 to 20-1
　　　　For %j = %i + 1 To 20
　　　　　　　　If $Length(%i) < $Length(%j) Then
　　　　　　　　　　　　%Temp =$MyWord(%i)
　　　　　　　　　　　　$MyWord(%i) = $MyWord(%j)
　　　　　　　　　　　　$MyWord(%j) = %Temp
　　　　　　　　　　　　%TempNum =$Length(%i)
　　　　　　　　　　　　$Length(%i) = $Length(%j)
　　　　　　　　　　　　$Length(%j) = %TempNum
　　　　　　　　End If
　　　　Next
Next

やっていることは至極単純だ。１つめの単語の長さと２つめの単語の長さを

比べて、もしも１つめの単語のよりもと２つめの単語の方が長ければ

その位置を入れ替える、ということを繰り返してやっているに過ぎない。

　冒頭ににも書いたがこの辺りは一太郎マクロに特有の考えではない。

従ってこの辺りのことを詳しく知りたければ参考資料はいくらでも簡単に

手に入る。よくわからなければ各自で研究して欲しい。

　さて、ここまでできてしまえばソートした結果を所定の位置に

出力するだけである。まず、下記のコードでソートした単語を「WORD　LIST」の

列に書き込み・・・、

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=44)
For %i = 1 To 20
　　　　削除(.回数=12)
　　　　Insert($MyWord(%i))
　　　　DownCell
Next

次のコードで「Length」の列に単語の長さを書き込んでプログラムは終了となる。

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=69)
For %i= 1 to 20
　　　　削除(.回数=2)
　　　　Insert($Length(%i))
　　　　DownCell()
Next

上記のコードはサンプルファイルのなかに「Main」という名前の

マクロとして登録されている。

WORD_FIND03_1.lzhをダウンロード