Excel Maniacs

一太郎マクロ初心者奮戦記Ⅱ・・・リストの単語を降順にソートする(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をダウンロード

一太郎マクロ初心者奮戦記Ⅱ・・・リストの単語を降順にソートする(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をダウンロード

一太郎マクロ初心者奮戦記Ⅱ・・・Word Find作成編開始

　一太郎マクロ初心者奮戦記Ⅱ・・・始まった。テーマは一太郎マクロを

使って何かまとまったものを作ろう、ということだ。具体的に言えば

以下の仕様で「Word Find」なるものを作る。

　　　　名前：WORD　FIND

　　　　機能：リストに入力した単語を１２×１２のマス目に

　　　　　　　　ランダムに配置する。

　　　　詳細：単語は２０個まで。

　　　　　　　：単語配置は右から左、左から右、上から下、下から上、

　　　　　　　右下から左上、左上から右下、左下から右上、右上から

　　　　　　　左下の８方向にランダムに配置する。

　　　　　　　：ブランクのマスにはオプションでランダムにアルファベットを配置する。

　　　使用ソフト：一太郎２００５

とりあえず、１２×１２のマスと単語リストを作ってみた。

罫線機能を使っただけだけど・・・イメージはこんなかんじかな．．．