ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó·í«ö¤UF1ªº®É­Ô~·Æ¹«¦Û°ÊÂI¨ìA1

¦p¦ó·í«ö¤UF1ªº®É­Ô~·Æ¹«¦Û°ÊÂI¨ìA1

¥»©«³Ì«á¥Ñ av8d ©ó 2013-4-17 08:30 ½s¿è

¦p¦ó·í«ö¤UF1ªº®É­Ô~·Æ¹«¦Û°ÊÂI¨ìA1
¦p¦ó·í«ö¤UF2ªº®É­Ô~·Æ¹«¦Û°ÊÂI¨ìA2

¤§«e¬O¥ÎKeyCode¹ïÀ³TextBox
¦pªG¬O¹ïÀ³¨ìÀx¦s®æªº¸Ü¡A¸Ó«ç»ò°µ©O?§V¤O·j´M¤¤~

­è¬d¸ß¤F¤@¤U¦ü¥G¬O¥ÎSendKey

¦^´_ 1# av8d
«ü©w§Ö³tÁä°õ¦æ¥¨¶°·|³y¦¨»P¨t²Î­ì³]©w½Ä¬ð¡A­nºÉ¶qÁקK
¤@¯ë¼Ò²Õ
  1. Sub auto_open() '¶}±ÒÀɮצ۰ʰõ¦æ
  2. '«ü©w§Ö³tÁä
  3. Application.OnKey "{F1}", "first"
  4. Application.OnKey "{F2}", "last"
  5. End Sub

  6. Sub first()
  7. ActiveSheet.[A1].Select
  8. End Sub
  9. Sub last()
  10. ActiveSheet.[A2].Select
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦p¦ó·í«ö¤UF1ªº®É­Ô~·Æ¹«¦Û°ÊÂI¨ìA1
¦p¦ó·í«ö¤UF2ªº®É­Ô~·Æ¹«¦Û°ÊÂI¨ìA2

¤§«e¬O¥ÎKeyCode¹ïÀ³TextBox
...
av8d µoªí©ó 2013-4-17 08:29



MS ¹w³]ªºF1~F12 ¦ü¥G³£¦³Àq»{¥\¯à
F1=¨D§U ºÃ°Ý µøµ¡
F2=§Ö³t§ó¦W
F3=·j´M
F5=­«·s¾ã²z

¦pªG°í«ù­n³]F1  ´N¥ý·Q·Q«ç§â¨º¥\¯àÃö±¼..

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2013-4-17 10:59 ½s¿è

¦^´_ 2# Hsieh


    ¬O§_¥i¥H·íÀÉ®×Ãö³¬«á«ì´_¹w³]­È?
Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD