UWSCで使うファイルをexcelで作りたい

質問

まずあまりの初心者ゆえに失礼がありましたらすみません。

UWSCというフリーソフトのスクリプトの編集をexcelでして
そのあとにメモ帳などに移して使うつもりなのですが

たとえば下記のようなものがあったとして

BTN(LEFT,CLICK,223,72,)
SLEEP(0.5)
KBD(VK_a,DOWN,)
KBD(VK_b,DOWN,)
KBD(VK_1,CLICK,)
KBD(VK_TAB,CLICK,)
KBD(VK_RETURN,CLICK,)

という文章を

BTN(LEFT,CLICK,223,72,)
SLEEP(0.5)
KBD(VK_a,DOWN,)
KBD(VK_b,DOWN,)
KBD(VK_2,CLICK,)
KBD(VK_TAB,CLICK,)
KBD(VK_RETURN,CLICK,)

になって

BTN(LEFT,CLICK,223,72,)
SLEEP(0.5)
KBD(VK_a,DOWN,)
KBD(VK_b,DOWN,)
KBD(VK_3,CLICK,)
KBD(VK_TAB,CLICK,)
KBD(VK_RETURN,CLICK,)

をへて

BTN(LEFT,CLICK,223,72,)
SLEEP(0.5)
KBD(VK_a,DOWN,)
KBD(VK_b,DOWN,)
KBD(VK_4,CLICK,)
KBD(VK_TAB,CLICK,)
KBD(VK_RETURN,CLICK,)

となり

BTN(LEFT,CLICK,223,72,)
SLEEP(0.5)
KBD(VK_a,DOWN,)
KBD(VK_b,DOWN,)
KBD(VK_5,CLICK,)
KBD(VK_TAB,CLICK,)
KBD(VK_RETURN,CLICK,)

というかたちでKBD(VK_数字,CLICK,)という部分だけを1から500まで増やしていって
あとの数値は同じものをずっと並べていきたいのですが普通にフィルハンドル？をつかってやると
私が編集したいKBD(VK_数字,CLICK,)の部分以外の数値までおそらく増えていってしまうんですよね。
KBD(VK_数字,CLICK,)の数字の数値だけを増やしていくことはできますでしょうか？

なおどうやらソフトの性質として数字が10をこえると
KBD(VK_10,CLICK,) ではなく

KBD(VK_1,CLICK,)
KBD(VK_0,CLICK,) や

KBD(VK_1,0,CLICK,)

と表現しなければいけなくなるようなのですが
そういう数値の増やし方はできますでしょうか？

超初心者なので全く何もわからないのですがそんな人間でもできますでしょうか。

回答No.5

imogasi

このソフトの機能で
繰り返しで対処できないのかな。
WINDOWSマクロテクニック（小林シンヤ）翔泳社　２００５
というＵＷＳＣの解説本を読みましたか。
私も最近目を通したのだが、まだ身についてないので、今は具体的にかけません。すみません。
Ｆｏｒ　Ｎｅｘｔ、その他の繰り返しも使える。
文字列を１文でキーーインする書き方もあるようだ
ＳＥＮＤＳＴＲ
数字列もそれがないかな。
ーーー
エクセルＶＢＡでやれば、質問どおりだけなら何とかできる。
ＶＢＡで考えた。
手抜きして
KBD(VK_b,DOWN,)
KBD(VK_5,CLICK,)　＜＝＝　この５を１桁打ち式に連続した番号で
変える
KBD(VK_TAB,CLICK,)
のところ（３行）しか考えてない。後は定まった文を増やすだけ
ーーー
Sub test01()
k = 1
For i = 1 To 101　'500は多いので１０１で止めた
Cells(k, "A") = "KBD(VK_b,DOWN,)"
k = k + 1
Select Case i
'--
Case 1 To 9
X = Trim(Str(i))
Cells(k, "A") = "KBD(vk_" & X & ",CLICK)"
k = k + 1
'---
Case 10 To 99
X = Trim(Str(Int(i / 10)))
Cells(k, "A") = "KBD(vk_" & X & ",CLICK)"
k = k + 1
X = Trim(Str(i Mod 10))
Cells(k, "A") = "KBD(vk_" & X & ",CLICK)"
k = k + 1
'--
Case 100 To 500
X = Trim(Str(Int(i / 100)))
Cells(k, "A") = "KBD(vk_" & X & ",CLICK)"
k = k + 1
X = Trim(Str(Int((i Mod 100) / 10)))
Cells(k, "A") = "KBD(vk_" & X & ",CLICK)"
k = k + 1
X = Trim(Str(i Mod 10))
Cells(k, "A") = "KBD(vk_" & X & ",CLICK)"
k = k + 1
End Select
Cells(k, "A") = "KBD(VK_TAB,CLICK,)"
k = k + 1
Next i
End Sub
このコードを修正することが出来るかな。
結果　１部
KBD(VK_b,DOWN,)
KBD(vk_1,CLICK)
KBD(VK_TAB,CLICK,)
KBD(VK_b,DOWN,)
KBD(vk_2,CLICK)
KBD(VK_TAB,CLICK,)
KBD(VK_b,DOWN,)
KBD(vk_3,CLICK)
KBD(VK_TAB,CLICK,)
KBD(VK_b,DOWN,)
ーー
終わりの方　１００のあたり
KBD(VK_b,DOWN,)
KBD(vk_9,CLICK)
KBD(vk_9,CLICK)
KBD(VK_TAB,CLICK,)
KBD(VK_b,DOWN,)
KBD(vk_1,CLICK)
KBD(vk_0,CLICK)
KBD(vk_0,CLICK)
KBD(VK_TAB,CLICK,)
KBD(VK_b,DOWN,)
KBD(vk_1,CLICK)
KBD(vk_0,CLICK)
KBD(vk_1,CLICK)
KBD(VK_TAB,CLICK,)
＝＝＝
あとエクセルのセルではなく、テキストに書くコードを知る必要がある（略）
しかしＵＷＳＣが言語である以上、こんなに単純に文を並べなければならない仕様のはずないと思うよ。

お礼

ありがとうございます。
ＵＷＳＣもエクセルも初心者なので四苦八苦しております。
わざわざお調べいただいてありがとうございます。

お心づかい感謝です。