Excel Maniacs

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

カーソル位置を取得するには(1)～(4)でリストに載っている単語の長さを取得するプログラムを作成した。 　なぜ、このようなことをしたかというと、単語を長い順にソートするためである。リスト上の単語をマス目に並べる際に長い単語から先に並べていった方が効率がよい。 　こういうことは、多少プログラム作成をしたことがある方なら経験的にもすぐにわかるであろう。したがって今回はリスト上の単語を降順にソートするプログラムを作ることにする。 　よって今回は特に一太郎マクロに特有の知識は何も必要としない。ありきたりのソートのアルゴリズムを使うだけである。 　それではプログラムの全体像を始めにお見せしよう。 SetLength 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 ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=44) For %i = 1 To 20 　　　　削除(.回数=12) 　　　　Insert($MyWord(%i)) 　　　　DownCell Next ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=69) For %i= 1 to 20 　　　　削除(.回数=2) 　　　　Insert($Length(%i)) 　　　　DownCell() Next 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 解説は次回にします。まずは サンプルファイルをダウンロードしてマクロを 動かしてみてください。 WORD_FIND03_1.lzhをダウンロード

学級通信・・・入学式のときの気持ちを今も持ち続けていますか？

1ヶ月前、本屋さんにはラジオの英会話の4月号テキストが山積みに なっていました。これは毎年見られる光景です。4月当初は今年こそ、 英会話ができるようになろうと大勢のひとがテキストを買うからです。 やがて５月になり6月になると4月当初は山のようにあったテキストは 半分になり、三分の一になり…どんどん減っていきます。 それは4月の頃にはやる気マンマンだったひとも5月になり6月に なるとだんだん続かなくなり、英会話の勉強をやめてしまうからです。 　これは何も英会話に限ったことではなくいろいろなことにあては まると思います。

自分で決めたことでも 一つのことをやり抜くのは 決して 簡単なことではありません。

人間の意志なんてそんなに強いものではありません。 その上、世の中には様々な誘惑が待っています。 ですから自分の意志を貫くのにはけっこうなエネルギーを必要とします。 　 　それに対してやらなくてはならないことをやらない自分を 正当化する理由はいくらでも簡単にみつけることができます。

今日は部活で疲れたから… 今日は体調がわるいから… ヽ(´・｀)ノ…仕方がないよ うん、仕方がないよ…

くまぷーはとても自分に甘く意志の弱い人間です。 一度、決意したくらいでは何かあれば、すぐにあきらめて 放り出してしまいます。 　ですから、どうしてもやりたい、何としてでもやり遂げたいと 思ったならば、決意した「その日の気持ち」を自分で意識して 何かにつけて思い出すようにしています。 　そうでもしないと「その日の気持ち」なんてすぐに 忘れて大事なことを投げ出してしまうのはわかっていますから…。

時間割自動作成(11)

【´･ω･`】：下が時間割自動作成マクロプロトタイプⅢの核となる部分だ。

１：　　%MyRange=Range("B2:F7")
２：　　%Cnt=0
３：　　Do While %Cnt <10000
４：　　        Range("B2:F7")=%MyRange
５：　　        Put2Jikan
６：　　        Main_Part
７：　　        If Cells(13, 9) = Cells(13, 10) Then
８：　　　　         MsgBox("Done")
９：　　　　        Stop
10：　        End If
11：　        %Cnt =%Cnt+1
12：　Loop
１３：　MsgBox("解が見つかりませんでした。")

【´･ω･`】：説明のために行番号をふっておいた。

(●`ε´●)：たったの13行か？

【´･ω･`】：うん。・・・では解説しよう。

　　　　　　まず、1行目。ここで初期状態の時間割表を変数%MyRangeに

　　　　　　格納しておく。

(●`ε´●)：初期状態？

【´･ω･`】：うん。最初にユーザはあらかじめ、いくつかの科目は

　　　　　何曜日の何時間目と・・・指定しているかもしれない。

(●`ε´●)：この場合は火曜6限の「総合」と木曜6限の「LHR」の

　　　　　　ことか？

【´･ω･`】：そう。なんでこんなことをするかは後ですぐわかる。

(●`ε´●)：OK。それでは2行目は？

【´･ω･`】：ループカウンタの初期化だ。３行目から１２行目まで

　　　　　黙っていれば１００００回ループする。ここで適当に科目を

　　　　　割り振っていって、上手く割り振れればループを抜ける。

　　　　　まず、4行目で時間割表を初期状態にする・・・。

　　　　　関数Put2Jikanを呼び出して2時間続きの科目を時間割表に

　　　　　書き込む・・・。次に関数Main_Partを呼び出し、2時間続きではない

　　　　　科目を時間割表に書き込む。

　　　　　次に7行目で全ての科目を時間割表に書き込めたかをチェックして

　　　　　書き込めていれば終了、そうでなければ4行目に戻る・・・。

　　　　　1万回ループしても解が見つからなければ、その旨を表示して

　　　　　プログラムを終了する。

(●`ε´●)：なるほど、書き込みに失敗した場合、時間割表にはいろいろと

　　　　　　科目が書き込まれてしまっているから、それを初期状態に戻せるように

　　　　　　1行目で・・・

　　　　　　%MyRange=Range("B2:F7")

　　　　　　・・・としておいたのか。

【´･ω･`】：うん。プログラムの流れがだいたい、わかったと思う。次回は

　　　　　サブルーチンのPut2Jikan　と  Main_Part　を見てみよう。