Application.InputBox ¥i§_³]µ¥«Ý®É¶¡??

t8899

Application.InputBox ¥i§_³]µ¥«Ý®É¶¡??
°²¦pµ¥«Ý5¬í¨S¿é¤J¡A¦Û°Ê¥H"n"¿é¤J

PKKO

¦^´_ 3# ­ã´£³¡ªL


    ­ã¤j¦nÆg!'±ßÂI´ú¸Õ¤@¤U~

t8899

Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, _
    ByVal nIDEvent As Long, By ...
­ã´£³¡ªL µoªí©ó 2015-10-24 12:03

thanks!

­ã´£³¡ªL

Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, _
    ByVal nIDEvent As Long, ByVal uElaspe As Long, ByVal lpTimerFunc As Long) As Long

Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Public PopTime As Long

Sub Test()
Dim x
PopTime = SetTimer(0, 0, 5000, AddressOf CloseInputBox)
x = Application.InputBox("½Ð¿é¤J")
If x = "" Then x = "n"
MsgBox x
KillTimer 0, PopTime
End Sub

Sub CloseInputBox(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idevent As Long, ByVal Systime As Long)
Application.SendKeys "~", True
KillTimer 0, PopTime
End Sub

ºô¸ô§ä¨ìªº,¸Õ¸Õ~~

PKKO

¦n©_+1,³o§Ú¤§«e¤]¬ã¨s¹L,¨S¦³§ä¨ìµª®×,­Y¨S¦³¿é¤J·|¤@ª½¥d¦b¨ºÃä,«áÄòªºµ{¦¡½XµLªkÄ~Äò¹B¦æ