GBKEE

¦^´_ 1# united7878
½Ð±Nµ{§Ç½Æ»s¨ì¤@¯ë¼Ò²Õ¦sÀÉ«á¦A¶}±ÒÀɮקY¥i

1. Sub Auto_Open()
   
2.     Application.AutoCorrect.AddReplacement What:="*77#", Replacement:="A"
   
3.     Application.AutoCorrect.AddReplacement What:="*78#", Replacement:="B"
   
4. End Sub
   
5. Sub Auto_Close()    '¦p­nÀÉ®×Ãö³¬«á Ä~Äò¨Ï¥Î³o¨Ç¦Û°Ê¨ú¥N¦r¦ê ½Ð±N¥»µ{§Ç§R±¼
   
6.     Application.AutoCorrect.DeleteReplacement What:="*77#"
   
7.     Application.AutoCorrect.DeleteReplacement What:="*78#"
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# united7878

¤U¸ü (18.19 KB)

2010-12-29 07:44

   

1. Sub Ex()  '¤u§@ªíªº±Æ§Ç¤£¤@©w¦p¹Ï
   
2.     Dim Sh As Worksheet
   
3.     For Each Sh In Sheets(Array("Sheet1", "sheet2", "sheet3", "sheet4", "sheet5", "sheet6", "sheet7", "sheet8", "sheet9", "sheet10"))
   
4.         Sh.Range("N3") = Sh.Range("F2")
   
5.         Sh.Range("N3").NumberFormatLocal = "m¤ëd¤é"
   
6.     Next
   
7. End Sub
   
8. Sub Ex1()  '¦p¤u§@ªíªº±Æ§Ç¤@©w¦p±q3¨ì13 ¦@10­Ó¤u§@ªí
   
9.     Dim i As Integer
   
10.     For i = 3 To 13
    
11.         Sheets(i).Range("N3") = Sheets(i).Range("F2")
    
12.         Sheets(i).Range("N3").NumberFormatLocal = "m¤ëd¤é"
    
13.     Next
    
14. End Sub

½Æ»s¥N½X