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.3

kokorone · ベストアンサー

Ｎｏ，１です。
マクロサンプルです。
Sub make_UWSC()
Dim rcount As Integer
Dim srcstr1 As String
Dim srcstr2 As String
Dim srcstr3 As String
Dim srcstr4 As String
Dim srcstr5a As String
Dim srcstr5b As String
Dim srcstr5 As String
Dim srcstr6 As String
Dim srcstr7 As String
Dim icount As Integer
Dim scount As String

srcstr1 = "BTN(LEFT,CLICK,223,72)"
srcstr2 = "SLEEP (0.5) "
srcstr3 = "SKBD(VK_a,DOWN) "
srcstr4 = "SKBD(VK_b,DOWN) "
srcstr5a = "KBD(VK_"
srcstr5b = ",CLICK)"
srcstr6 = "KBD(VK_TAB,CLICK) "
srcstr7 = "KBD(VK_RETURN,CLICK) "

rcount = 1
For icount = 1 To 500
scount = Right("000" & Str(icount), 3)
Cells(rcount, 1) = srcstr1
rcount = rcount + 1
Cells(rcount, 1) = srcstr2
rcount = rcount + 1
Cells(rcount, 1) = srcstr3
rcount = rcount + 1
Cells(rcount, 1) = srcstr4
rcount = rcount + 1
If icount >= 100 Then
srcstr5 = srcstr5a & Mid(scount, 1, 1) & srcstr5b
Cells(rcount, 1) = srcstr5
rcount = rcount + 1
End If
If icount >= 10 Then
srcstr5 = srcstr5a & Mid(scount, 2, 1) & srcstr5b
Cells(rcount, 1) = srcstr5
rcount = rcount + 1
End If
srcstr5 = srcstr5a & Mid(scount, 3, 1) & srcstr5b
Cells(rcount, 1) = srcstr5
rcount = rcount + 1
Cells(rcount, 1) = srcstr6
rcount = rcount + 1
Cells(rcount, 1) = srcstr7
rcount = rcount + 1

Next icount

End Sub

お礼

ありがとうございます。
大変お手数おかけいたしました。
マクロのというものの内容も理解しながら
勉強していこうと思います。