Sub sendKeys1()
Application.Wait (Now() + TimeValue("00:00:01"))
SendKeys "{Enter}"
End Sub
(برای کارکرد صحیح ماکرو باید به آن یک Shortcut Key مانند Ctrl+Q نسبت دهید و ماکرو را با فشار دادن کلید های Ctrl+Q اجرا کنید)
Key | Code |
BACKSPACE | {BACKSPACE} or {BS} |
BREAK | {BREAK} |
CAPS LOCK | {CAPSLOCK} |
CLEAR | {CLEAR} |
DELETE or DEL | {DELETE} or {DEL} |
DOWN ARROW | {DOWN} |
END | {END} |
ENTER (numeric keypad) | {ENTER} |
ENTER | ~ (tilde) |
ESC | {ESCAPE} or {ESC} |
HELP | {HELP} |
HOME | {HOME} |
INS | {INSERT} |
LEFT ARROW | {LEFT} |
NUM LOCK | {NUMLOCK} |
PAGE DOWN | {PGDN} |
PAGE UP | {PGUP} |
RETURN | {RETURN} |
RIGHT ARROW | {RIGHT} |
SCROLL LOCK | {SCROLLLOCK} |
TAB | {TAB} |
UP ARROW | {UP} |
F1 through F15 | {F1} through {F15} |
SHIFT | + (plus sign) |
CTRL | ^ (caret) |
ALT | % (percent sign) |
0 نظر
تازه ترین ها