Macro/投稿/207
をテンプレートにして作成
Land.to
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* キーマクロを回数指定実行 [#yc6b32eb]
-ページ: [[Macro/投稿]]
-作者: [[971]]
-カテゴリー: vbs
-投稿日: 2009-11-26 (木) 10:53:07
** メッセージ [#ne664319]
現在記録されているキーマクロを指定回数だけ繰り返し実行し...
#code(vbscript){{
'【RepeatRecKey.vbs】
'キーマクロを回数指定実行
'【制限事項】
'本マクロはマクロ一覧に登録し、登録済みマクロとして実行し...
'[名前を指定してマクロ実行...]から実行すると、
'ExpandParameter("$M") が失敗します。 ← sakura Ver. 1.6.5.0
Dim fso, f
Dim fname
Dim i, n
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(Editor.ExpandParameter("$M"))
fname = f.ParentFolder & "\RecKey.mac"
If (fso.FileExists(fname)) Then
n = InputBox("実行回数", "キーマクロを回数指定実行", 2)
If IsNumeric(n) Then
For i = 1 To n
Editor.ExecExternalMacro(fname)
Next
Else
MsgBox "数値以外が入力されました", vbOKOnly, "失敗"
End If
Else
MsgBox "キーマクロファイルが見つかりません" & vbCrLf & f...
End If
}}
----
#comment
終了行:
* キーマクロを回数指定実行 [#yc6b32eb]
-ページ: [[Macro/投稿]]
-作者: [[971]]
-カテゴリー: vbs
-投稿日: 2009-11-26 (木) 10:53:07
** メッセージ [#ne664319]
現在記録されているキーマクロを指定回数だけ繰り返し実行し...
#code(vbscript){{
'【RepeatRecKey.vbs】
'キーマクロを回数指定実行
'【制限事項】
'本マクロはマクロ一覧に登録し、登録済みマクロとして実行し...
'[名前を指定してマクロ実行...]から実行すると、
'ExpandParameter("$M") が失敗します。 ← sakura Ver. 1.6.5.0
Dim fso, f
Dim fname
Dim i, n
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(Editor.ExpandParameter("$M"))
fname = f.ParentFolder & "\RecKey.mac"
If (fso.FileExists(fname)) Then
n = InputBox("実行回数", "キーマクロを回数指定実行", 2)
If IsNumeric(n) Then
For i = 1 To n
Editor.ExecExternalMacro(fname)
Next
Else
MsgBox "数値以外が入力されました", vbOKOnly, "失敗"
End If
Else
MsgBox "キーマクロファイルが見つかりません" & vbCrLf & f...
End If
}}
----
#comment
ページ名: