Excel Maniacs

一太郎マクロ初心者奮戦記・・・カーソル位置の文字を取得するには(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))

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

今回はGetCharacter()を使ってリストの英単語を読み取り、

その長さを隣の列に出力するというプログラムをつくる。

下図がそのイメージだ。

*

*

*

*

*

*

*

*

*

*

*

*

プログラムのコードは下のようになる。

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=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))
　　　　DownCell()
Next

GetCharacter()は１文字ずつしか読み取れないために

上記のコードで１２回ループして変数%Strに１単語分を

読み込む。マス目が12×12なので1単語は

最長１２文字まででなければならない。

尚、補足だが「右」というのはカーソルをひとつ右に移動させる命令だ。

この命令をループのなかで使うことによりGetCharacter()で

一単語文の文字を読み取っていく。さらにDownCell()というのは

カーソルを1マス下に移動させる命令である。

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

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

WORD_FIND02.lzhをダウンロード

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

　前回までの研究でInsert（）を使えば、カーソル位置に

文字を書き込むことができるということがわかった。

書き込みの次は当然、読み取りだ。いったい、

どうすれば文字を読み取ることができるのだろうか。

ヘルプを調べてみると使えそうなものが２つあった。

ひとつはGetCharacter(),もうひとつはGetString()だ。

まず始めにGetCharacter()から調べてみることにする。

以下がヘルプの記載だ。

★GetCharacter()　引数は無し。

機能 カーソル位置の文字が返ります。

返り値 カーソル位置の文字。改行マークなどの特殊記号は "" が返る。

GetCharacter()はカーソル位置の１文字しか読み取ることができない。

従って、GetCharacter()を使って文字を読み込むにはカーソルを

移動させながら読むことになる。この辺りは

• カーソルを移動するには(1)
• カーソルを移動するには(2)
• カーソルを移動するには(3)
• カーソルを移動するには(4)
• カーソルを移動するには(5)

が役に立つことであろう。