Excel Maniacs

一太郎マクロ初心者奮戦記・・・一太郎マクロの基本は

本日で一太郎マクロをやり始めて約２ヶ月になる（2006/12/04現在）。 悪児さんのレベルには到底比べるべくもないが初心者は 初心者なりに見えてきたことがあるのでそれを書き留めることにする。 　一太郎マクロをマスターするため覚えなければならないことは何か？ 一太郎のヘルプであるマクロバイザーによると関数の数は ２２５３もあるという。それを全て知らなければ一太郎でマクロを 組むことは出来ないのか？そんなことは絶対にない。 今回、一太郎マクロを囓ってみて感じたことだが、 一太郎マクロで特に覚えなければならない関数の数は それ程多くない。 一太郎マクロで大切な関数は １．文字を書き込む関数：Insert() ２．文字を読み取る関数：GetCharacter() 　上の二つはいずれもカーソル位置に文字を書き込み、カーソル位置の文字を読み取るのであるから、あとはカーソルを移動させる関数・・・ ３．右、左、上、下、ジャンプなど・・・ これぐらいの使い方がわかれば後はなんとかなるとおもう。 　・・・というのは条件分岐のIF文やSelect文は別に 一太郎マクロに特有のものではないし、 繰り返しのFor文やDo～Loopも特に一太郎マクロに 特有のものではない。

一太郎マクロで何かをやろうと思ったら、 基本はたったの３つしかない！！ くまぷーは敢えてここに断言する！！恐れることは何もない！！ 一太郎マクロでは

Insert()とGetCharacter() それにカーソル移動の 命令を覚えれば何とかなる！！

一太郎マクロ初心者奮戦記・・・カーソル位置の文字を取得するには(4)

GetString()を使ってWord Listの単語を読み込み、その単語の

文字数を隣の列に出力するプログラムを作る。下がWord Listのイメージだ。

*

*

*

*

*

*

*

*

*

*

コードは下のようになる。

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=44)
範囲選択開始(.単位=1)
範囲選択単位(.単位=7)
ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=24,.文字位置=109)

%Str = GetString()
%Num = Size(%Str)　　　 !!Size関数は配列の個数を返す。

For %i = 1 to %Num
　　　　%Length(%i) =Len(%Str(%i))
Next

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

上記のコードはサンプルファイルのなかに「文字取得２」という

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

WORD_FIND02.lzhをダウンロード

一太郎マクロ初心者奮戦記・・・カーソル位置の文字を取得するには(3)

  前回はGetCharacter()をカーソル位置の文字を取得した。

今回はGetString()を使って文字を取得する。まず始めに

GetString()をヘルプで調べてみよう。以下がヘルプの記載だ。

★GetString(取得方法)
機能	指定した範囲の文字列が配列で返ります。
引数	取得方法	取得方法を数値で指定(省略:1)
		1　１行の文字列を配列要素にする(従来の動作)
		2　罫線セル内の文字列も配列要素にする
説明	あらかじめ指定した範囲の文字列が1次元配列で返ります。取得方法が１の場合は、1行の文字列を1つの配列要素とします。取得方法が２の場合は、罫線セル内の文字列も１つの配列要素とします。返値の配列の添字は1から連続する正の整数です。

  では実際にGetString()を使ってみよう。下のように５人の名前が書いてあるとする。

*

*

*

*

.*

*

         ここで５人の名前を選択して・・・

*

*

*

*

*

*

*

%Str = GetString()

上記のコードを実行すると・・・なんと・・・

%Str(1) = "くまぷー" %Str(2) = "悪児さん"     %Str(3) = "ジョー３さん" %Str(4) = "呑さん" %Str(5) = "かずさん"

・・・と記述したのと同じ事になる。当然、下のように記述すると %Str =GetString MsgBox(%Str(3))