VBA ³]©w¿é¤Jªk(¤¤^¤åÁä½L)
- ©«¤l
- 508
- ¥DÃD
- 53
- ºëµØ
- 0
- ¿n¤À
- 583
- ÂI¦W
- 91
- §@·~¨t²Î
- win 10
- ³nÅ骩¥»
- []
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-19
- ³Ì«áµn¿ý
- 2024-5-4
|
VBA ³]©w¿é¤Jªk(¤¤^¤åÁä½L)
½Ð°Ýþ¦ì¤j¤j«ü¾É¤@¤U
¦p¦ó¦bVBA¤¤³]©wÅܧó¿é¤Jªkªº¤èªk
ÁÂÁÂ¥ý |
|
|
|
|
|
|
- ©«¤l
- 508
- ¥DÃD
- 53
- ºëµØ
- 0
- ¿n¤À
- 583
- ÂI¦W
- 91
- §@·~¨t²Î
- win 10
- ³nÅ骩¥»
- []
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-19
- ³Ì«áµn¿ý
- 2024-5-4
|
¦^´_ 6# luhpro
¨Ì·Ó«ü¾É¡G
1.¤Ä¿ï "... ¬°¨CÓÀ³¥Îµ{¦¡µøµ¡³]©w .... "¡A ¸ÕÅçµ²ªG¬O¨S¦³À°§Uªº
2.¨Ï¥Î§Y®É¹Bºâµøµ¡©M ³v¨B°õ¦æ(¤â«ö Enter³v±ø°õ¦æ)¤ù¬qµ{¦¡ªºµ²ªG¬O¤@¼Ëªº¡F
3.ÁöµM Sendkeys ¦³ waitªº°Ñ¼Æ¡A ÁÙ¬OµLªk½T«O¨ä¥¿½T°õ¦æ¡F
4.§Úªº¹q¸£¬O OS Win8.1 ·L³nª`µ¡A¸g¤ÀªR«á¨äª¬ºA»P¿é¤JÁ䪺Ãö«Y¦p¹Ï
5.¨Ì·Ó¤ÀªRªí§@¤U¦Cµ{¦¡½X- '¨ÏÁä½L¦¨¬° "^¤å" ¿é¤Jª¬ºA
- Sub ChangeIMEToE()
- If IMEStatus = 1 Then
- SendKeys "+", True
- End If
- End Sub
- '¨ÏÁä½L¦¨¬° "·L³nª`µ"¿é¤Jª¬ºA
- Sub ChangeIMEToC()
- ' Call ActiveIMEKeyBoard("·L³nª`µ")
- ' Debug.Print "0,"; IMEStatus
- '°²¦pª¬ºA¬O C¡A send a "Shift" key
- If IMEStatus = 2 Then SendKeys "+", True ': Sleep 1500
- DoEvents
- ' Debug.Print "1,"; IMEStatus
-
- ''°²¦pª¬ºA¬O B¡A send a "Ctrl Space" keys
- If IMEStatus = 2 Then SendKeys "^ ", True
- DoEvents
- ' Debug.Print "2,"; IMEStatus
-
- '°²¦p¤W¤@Ó Bª¬ºA¤§°_©lª¬ºA¬O C¡A³o®É±oª¬ºA C¡A send a "+" key
- If IMEStatus = 2 Then SendKeys "+", True ': Sleep 500
- DoEvents
- ' Debug.Print "3,"; IMEStatus, vbLf
- End Sub
½Æ»s¥N½X ¸ÕÅ窺µ²ªG¡G ¥i¥Î
1.Sendkeys ,True ¤£¦¨¥\
2.¥[ Application.wait ... ¤£¦¨¥\
3. ©I¥s API sleep ... ¤£¦¨¥\
4. ¥Î DoEvents OK
¥H¤W¬O¹êÅ窺µ²ªG¡A½Ð«ü±Ð
¤]³\´M§ä Win8.1 API ¥i¯à·|¦³§óª½±µªx¥Îªºµª®× |
|
|
|
|
|
|