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

¦p¦ó³]©wÀx¦s®æ¿é¤J¼Æ­È¥u¯à¤@¦ì¼Æ

¦p¦ó³]©wÀx¦s®æ¿é¤J¼Æ­È¥u¯à¤@¦ì¼Æ

¦pÃD¡A¨Ò¦p¡G¦bA1¿é¤J2¡]¥u¯à¿é¤J1¡ã9)¡A´å¼Ð¦A¦Û°Ê¸õ©¹B1Ä~Äò¿é¤J1¡ã9¡A¦p¦¹¨ìK1¡F
                         ¦A§â´å¼Ð²¾¨ìA2¡A­«½Æ¤W­z¨BÆJ¨ìK2¡A¡K¡K
                        ¡K¡K
                       ¤@ª½¨ì²Ä100¦C¡A³£¬O¤@¼Ëªº°Ê§@¡A
                      ½Ð°Ý¦p¦ó½s¼g¥¨¶°¡HÁÂÁ¡K

¥»©«³Ì«á¥Ñ Hsieh ©ó 2013-1-11 00:08 ½s¿è

¦^´_ 1# yeh6712
thisworkbook¼Ò²Õ
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2. Application.MoveAfterReturnDirection = xlDown
  3. End Sub

  4. Private Sub Workbook_Open()
  5. Application.MoveAfterReturnDirection = xlToRight
  6. With ActiveSheet
  7. .ScrollArea = "A1:K100"
  8. With .Range("A1:K100").Validation
  9.         .Delete
  10.         .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
  11.         Operator:=xlBetween, Formula1:="1", Formula2:="9"
  12. End With
  13. End With
  14. End Sub
½Æ»s¥N½X
¦sÀÉ«á­«·s¶}±ÒÀɮסA¦b·í«e§@¥Î¤¤ªº¤u§@ªí§Y¥i¦³¦¹­­¨î¥\¯à
­­¨î¿é¤J.rar (14.27 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ yeh6712 ©ó 2013-1-11 07:43 ½s¿è

¦^´_ 2# Hsieh

Good¡I
·PÁ¤j¤j¡K·Q°Ý¤@¤U¡A¬O§_¥i¥H¿é§¹¤W¤@®æ«á¡A¦Û°Ê¸õ¦Ü¤U¤@®æ¡A¦Ó¤£»Ý«öEnterÁä¡H
¨Ò¡G¿é§¹A1«á(¦X¥G1¡ã9)¡A¦Û°Ê¸õ¦ÜB1¡÷C1¡÷¡KK1¡F¨ìK1¡A¦A«öEnterÁä¡A¸õ¦Ü¤U¤@¦CªºA2
        ­«½Æ¤W­z°Ê§@¦ÜK100
¯u¬O³Â·Ð±zÅo¡K

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD