Excel Maniacs

一太郎マクロ初心者奮戦記 範囲を選択するには･･･(2)

　さて前回のサンプルファイルのコードをよく見てもらえば

下のようになっているのがわかると思う。

実はすでにマス目の初期化コードは組み込まれていたのだ。

下記のコードの２行目から４行目（赤い部分）の

行頭の感嘆符「!!」を削除してもらえば

コメントアウトされていたコードが有効になる。

　一太郎マクロでは行頭に「!!」またはREMを

付加することによってコードを無効にすることができるのだ

Jump(1,4,2)
!!範囲選択開始(7)
!!Jump(1,15,73)
!!削除(1)


For %Y = 1 To 12
　　　　　　For %X = 1 To 12
　　　　　　　　　　　Randomize(ThisTime())
　　　　　　　　　　　%num = Int(Rand() * 26) + 97
　　　　　　　　　　　Insert( Char(%num))
　　　　　　　　　　　if %X < 12 Then
　　　　　　　　　　　　　　RightCell()
　　　　　　　　　　　End If
　　　　　　Next
　　　　　　DownCell
　　　　　　LeftCell(11)

Next

★範囲選択の仕方
(1)Jump命令などによって範囲の始点にカーソルを移動させる。
(2)「範囲選択開始（単位）」命令を発行する。
　　尚、単位は(省略は1)
　　

1	文字
2	行
3	段落
4	ページ
5	ブロック
6	単語
7	セル
30	すべてを選択

(3)Jump命令などによって範囲の終点にカーソルを移動させる。

WORD_FIND01_1.lzhをダウンロード

一太郎マクロ初心者奮戦記 範囲を選択するには･･･(1)

　さて前回までに書いた下のコードでは12×12のマス（以下、マス目）に

すでにアルファベットが書かれていた場合、そのアルファベットを

削除しておかないと予期したとおりの動作をしない。

これでは余りにも情けない。

　そこで今回は前回のコードにマス目を初期化するコードを

付け加えることにする。

記録マクロでマス目を選択してデリートボタンを

押してコードを作成すればいいだろう。

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=4,.文字位置=2)
範囲選択開始(.単位=1)
範囲選択単位(.単位=7)
ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=15,.文字位置=71)
削除(.回数=1)

上が記録マクロで作成したコードだ。

他のソフトでも言えることだが記録マクロで

自動生成されたコードには冗長な部分が出てくる。

上で言えば2行目の「範囲選択開始(.単位=1)」と

３行目の「範囲選択単位(.単位=7)」だ。

「範囲選択開始」を単位＝１、すなわち文字単位を指定して、

何もせずに「範囲選択単位」で単位を７に変更している。

これは無駄だ。

それならば始めから「範囲選択開始(.単位=７)」とすれば良いだろう。

つまり上のコードは下記のようになる。

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=4,.文字位置=2)
範囲選択開始(.単位=7)
ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=15,.文字位置=71)
削除(.回数=1)

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

12×12のマスにランダムにアルファベットを表示する(3)

それでは具体的なコードを示そう。以下の通りだ。

Jump(1,4,2)

For %Y = 1 To 12
　　　　　　For %X = 1 To 12
　　　　　　　　　　　Randomize(ThisTime())
　　　　　　　　　　　%num = Int(Rand() * 26) + 97
　　　　　　　　　　　Insert( Char(%num))
　　　　　　　　　　　if %X < 12 Then
　　　　　　　　　　　　　　RightCell()
　　　　　　　　　　　End If
　　　　　　Next
　　　　　　DownCell
　　　　　　LeftCell(11)

Next

サンプルファイルのマクロ「Main」を実行すると12×12のマスに

ランダムにアルファベットが表示される。

尚、繰り返して「Main」を実行するときはあらかじめ12×12の

マスに表示されているアルファベットを削除しておく。

サンプルファイルを用意したので

下からDLして欲しい。

WORD_FIND01_1.lzhをダウンロード