Bartek Borczyk

Bartek Borczyk Operator liczb i
słów

Temat: Application.OnKey

Moja stara nie chciała być gorsza i dowaliła mi dziś takie pytanie:

Czy w linijce Application.OnKey w drugim argumencie można podać nazwę wywoływanej procedury wraz z jej argumentami?



Sub Test1(arg1)

    If arg1 = "kupa" Then MsgBox ("wielka " & arg1)

    If arg1 = "wielka" Then MsgBox (arg1 & " kupa")

End Sub



Sub Test2()

    Application.OnKey "^+Z", "Test1(" & """kupa""" & ")"

    Application.OnKey "^+X", "Test1(" & """wielka""" & ")"

End Sub


Na moje przysypiające oko się nie da... A może da?!
Jak nie da, to co zrobić, żeby się dało inaczej? Oczywiście poza rozbiciem Test1 na dwie procedury.

W książce napisali, że trzeba z myślami wyjść poza pudełko... :)
Link do wypowiedziLink