| |
こんにちは。
>このマクロ記述を別のマクロからキックしたいんです。
>実行したいステートメント
>Application.OnKey "^{m}", ""
>のみを実行するのが理想ですぅ♪
VBスクリプトを用いるのが簡単な方法だと思います。
一例ですがマクロの内容によっては作りこみが必要かも...
以下サイトを参考にしました。
ht tp://www2.aqua-r.tepm.jp/~kmado/kvba.htm
E03M108 VBAでスクリプトを使用する
Sub test_ScriptControl()
Dim ss$
ss = Range("A1") 'セルA1に Application.OnKey "^{m}", "" 等と記述
With CreateObject("ScriptControl")
.Language = "VBScript"
.AddObject "Application", Application, True
.AddCode "Sub Sub1" & vbNewLine & ss & vbNewLine & "End Sub"
.Run "Sub1"
End With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
