Excel Maniacs

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

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

時間割自動作成(5)

【´･ω･`】：時間割自動作成マクロプロトタイプⅠの解説をしようと

　　　　　　思ったけどその前に・・・

(●`ε´●)：なんだ、解説をするんじゃなかったのか？

【´･ω･`】：うん、そう思ったんだけど解説は次回に回して・・・

(●`ε´●)：で、何をするんだ？

【´･ω･`】：うん、前のコードの変数名を日本語名にしたから

　　　　　　それを見ておくれ。そうしたら、わざわざ解説をしなくても

　　　　　　何をやっているかわかっちゃうかも・・・。

%空欄の数 = Cells(1, 1)　　　　　!!書き込むべき単位数
%科目 = 2
   
For %試行回数 = 1 To 1000
           Randomize(ThisTime())             !!乱数の発生
           %列 = Int(Rand() * 5) + 2
            %行 = Int(Rand() * 6) + 2
       
           %該当科目の単位数 = Cells(%科目, 9)             !!個々の科目の単位数
       
             If Cells(%行, %列) = "" Then　　　　!!科目名を書き込む
                   Cells(%行, %列) = Cells(%科目, 8)
                    %書き込済み科目名 = %書き込済み科目名 + 1
            End If
       
           If %書き込済み科目名 = %該当科目の単位数 Then　!!科目の書き込みが指定の
                    %科目 = %科目 + 1　　　　　　　　　　!!単位数になったら次の科目へ
                     %書き込んだ単位数 = %書き込んだ単位数 + %書き込済み科目名
                     If %書き込んだ単位数 = %書込むべき単位数 Then
                                   Stop　　　　　　　　　!!指定された単位数の合計分、　　
                   End If　　　　　　　　　　　　!!科目名を書き込んだら終了　
            
                        %書き込済み科目名 = 0
            
           End If
                        
Next