Macro/投稿/207

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F207


Top > Macro > 投稿 > 207

キーマクロを回数指定実行

  • ページ: Macro/投稿
  • 作者: 971?
  • カテゴリー: vbs
  • 投稿日: 2009-11-26 (木) 10:53:07

メッセージ

現在記録されているキーマクロを指定回数だけ繰り返し実行します。

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
'【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 & fname, vbOKOnly, "失敗"
End If


URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2009-11-26 (木) 11:51:39 (3219d)