united7878

¦hÁÂGBKEEª©¥D!!
®M¥Î«áªGµM¦Û°Ê·s¼W¨ú¥N¦r¦ê©ó¿ï¶µ¤º,¥B¨S¦³²Õ¼Æ­­¨î
±N¬¡­¶Ã¯¶}¦b§O¥x¹q¸£¤W¤]¥i¥H,¯uªº¬O¤Ó¤è«K¤F^^
¥Ñ°Jªº·PÁ±z!!

«_¬N¦A½Ð±Ð¤@¤U..
·Q­n±N¬¡­¶Ã¯¸Ì«ü©wªº¤u§@ªí(¦pSHEET1~SHEET10)¤ºªº"N3"°Ñ·Ó"F2"(F2¬°¤é´Á®æ¦¡)«á¦]¤é´Á¤£¦PÅã¥Ü¤£¦P¦W¦r®É¸Ó¦p¦ó½s¿è?
¦p"F2"=2011¦~1¤ë1¤é,"N3"=¤ý¤p©ú "F2"=2011¦~1¤ë2¤é,"N3"=§õ¤pµØ ¥H¦¹Ãþ±À...
"F2"ªº³¡¥÷¦]ªí®æ»Ý­n,§Ú¬O¤â°Ê¿é¤Jªº,®æ¦¡¬°'¦~+¤ë+¤éªº"2011/1/1",¦ý§Ú§Æ±æN3Äæ¦b°Ñ·Ó®É¥u¨ú¤ë©M¤é,ª½±µ¥G²¤¦~,
½Ð°Ý¥i¦æ¶Ü?

THANK YOU~

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