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

yeh6712

¦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

yeh6712

¦^´_ 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

Hsieh

¦^´_ 1# yeh6712
thisworkbook¼Ò²Õ

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. Application.MoveAfterReturnDirection = xlDown
   
3. End Sub
   
4. 
   
5. Private Sub Workbook_Open()
   
6. Application.MoveAfterReturnDirection = xlToRight
   
7. With ActiveSheet
   
8. .ScrollArea = "A1:K100"
   
9. With .Range("A1:K100").Validation
   
10.         .Delete
    
11.         .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
    
12.         Operator:=xlBetween, Formula1:="1", Formula2:="9"
    
13. End With
    
14. End With
    
15. End Sub

½Æ»s¥N½X

¦sÀÉ«á­«·s¶}±ÒÀɮסA¦b·í«e§@¥Î¤¤ªº¤u§@ªí§Y¥i¦³¦¹­­¨î¥\¯à
­­¨î¿é¤J.rar (14.27 KB)

¤U¸ü¦¸¼Æ: 7

2013-1-11 00:08