Sendkey +

[m__uzun]

Selamlar

Excelden VBA ile başka programa veri giriyorum.
Rakamı girdikten sonra + tuşu sendkey "{+}" basmıyor. Ama Excele girişte + yazıyor çalışıyor. Yardımcı olurmusunuz.
Teşekkürler

 

[Korhan Ayhan]

Aşağıdaki şekilde WORD dosyasına 7+ ifadesini yazdırabildim.

Option Explicit

Sub Test()
    AppActivate ("Doc1.docx - Word")
    
    Call SendKeys("7", True)
    Call SendKeys("{+}", True)
End Sub

 

[m__uzun]

Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_PLUS = &H6B
Const KEYEVENTF_KEYDOWN = &H0
Const KEYEVENTF_KEYUP = &H2

keybd_event VK_PLUS, 0, KEYEVENTF_KEYDOWN, 0
keybd_event VK_PLUS, 0, KEYEVENTF_KEYUP, 0