دستور Send Keys در برنامه نویسی اکسل

دستور SendKeys از متدهای شیء Application است و به شما این امکان را می دهد که فشرده شدن کلیدهای صفحه کلید را توسط کدهای VBA شبیه سازی کنید. مثال : ماکروی زیر بعد از یک وقفه 1 ثانیه ای کلید Enter را فشار می دهد.
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)
نویسنده : وحید فرزام
تاریخ انتشار : 1393-01-21 04:30:00
4396

0 نظر

user


تازه ترین ها