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

[µo°Ý] ¦³Ãö[¦Û°Ê®Õ¥¿]¸Ì(¦Û°Ê¨ú¥N¦r¦ê)ªº»yªk?

[µo°Ý] ¦³Ãö[¦Û°Ê®Õ¥¿]¸Ì(¦Û°Ê¨ú¥N¦r¦ê)ªº»yªk?

§Ú¬O»yªk·s¤â
½Ð±Ð¦U¦ì¥ý¶i..¦p¦ó§âEXCEL¸Ì[¦Û°Ê®Õ¥¿]¤º(¦Û°Ê¨ú¥N¦r¦ê)³¡¥÷Åܦ¨¥¨¶°§¢¤J¤u§@ªí©O?
Åý¤å¥ó¦b¤£¦P¹q¸£¶}±Ò¥i¥H¿ëÃѬۦPªº¨ú¥N¤å¦r,¦Ó¤£¥Î³v¤@­×§ï"¦Û°Ê®Õ¥¿¿ï¶µ"
¨ä»yªk¬°¦ó?

¨Ò¦pSHEET1ªí¤ºªºB1Äæ³Q¿é¤J*77#®É·|Åã¥ÜA,¿é¤J*78#®É·|¥X²{B,¥H¦¹Ãþ±À..¶W¹L3²Õ®æ¦¡¤Æ±ø¥ó­­¨îªº¤èªk
¦¹¤u§@ªí¦b§O¥x¹q¸£¶}±Ò®É¤]¦P¼Ë¥X²{³Q´À¥Nªº¦r

¦p³æ¤@Äæ¦ìµLªk¹ê¦æ,­×¥¿¥þSHEET1¤]µL§«

ÁÂÁÂ~

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

TOP

¦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~

TOP

¦^´_ 3# united7878


   
  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

TOP

¦hÁª©¤j~
¦ý§Ú®M¥Î«á'F2'¿é¤J¤é´Á,'N3'ª½±µÅܦ¨X¤ëX¤é,¤H¦W³¡¥÷µLªkÅã¥Ü?
§Ú·Q¥i¯à¬O§Ú§Î®eªº¤Ó½ÆÂø¤F...©êºp~"~

¨ä¹ê¬O'N3'·|ÀHµÛ'F2'ªº¤é´Á¤£¦P¦ÓÅã¥Ü¹w©w¿é¤Jªº­È´N¦n¤F,
¨Ò¦p
'F2'              'N3'
2011/1/1      ¤ý¤p©ú
2011/1/2      §õ¤pµØ
2011/1/3      ±i¤p¬ü
2011/1/X      X X X

¦³ÂI¹³¬O¥u­n¦b'¤é´ÁÄæ'¿é¤J¤é´Á´N¥i¥H¦b'N3'ÄæÅã¥ÜIDªº­È¯Zªí..
¦ý°Ñ·Ó'F2'®É¥u°w¹ï¤ë/¤é,¤£¥²ºÞ«e­±¦~¥÷¬°¦ó

ÁÂÁÂ!!

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-12-29 09:49 ½s¿è

¦^´_ 5# united7878


    ³oÀ³¸Ó¤£¬O¦Û°Ê¨ú¥N¥\¯à
§AÀ³¸Ó¦³­Ó¹ï·Óªí
§Q¥Îchang¨Æ¥ó¨Ó¶ñ¼gn3ªº¤º®e§Y¥i
thisworkbook¼Ò²Õ
  1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  2. With Sh
  3. If Target.Address = "$F$2" And IsDate(Target) Then
  4. Application.EnableEvents = False
  5. Select Case Format(.[F2], "m/d")
  6. Case "1/1"
  7. x = "¤ý¤p©ú"
  8. Case "1/2"
  9. x = "§õ¤pµØ"
  10. Case "1/3"
  11. x = "±i¤p¬ü"
  12. End Select
  13. .[N3] = x
  14. Application.EnableEvents = True
  15. End If
  16. End With
  17. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¤j¤jªº«ü¾É~¦³¤F»yªkªGµM§K¥h³v¤@®M¥Î¨ç¼Æªº¨BÆJ,
¦ý¦bthisworkbook¼Ò²Õ¤U¬O§_·|®M¥Î¨ì¥þ¤u§@ªí?¦p­n¿ï©w¬Yªí¥i¥H¶Ü?
ÁÙ¦³¦p¦ó¤j¶q¤S§Ö³t½s¿è»yªk¤ºªº¹ï·Ódata?
Case "1/1"
x = "¤ý¤p©ú"
Case "1/2"
x = "§õ¤pµØ"
Case "1/3"
x = "±i¤p¬ü"

¦bvba½s¿è¾¹¸Ì¦n¹³µLªk¨Ï¥Î¹³excelªº¤U©Ô¶ñº¡ªk..

·P®¦°Õ!!

TOP

«¢~¤j¶q½s¿èªº¤èªk§Ú§ä¨ì¤F,§â¾ã¦~«×ªº¦W¦r½Æ»s¶K¤J¬YÄæ¨Ò¦p'G'
µM«áÀH«K¤@ÄæÀY1¦C¿é¤JCase "1/1"
2¦C¿é¤J'=G1' ,®Ø°_¸ÓÄæ1.2¦CÀx¦s®æ¤@ª½©¹¤U©Ô´N¦Û°Ê¶ñº¡¤F..!

TOP

½Ð°Ý¤j¤j~
§Ú¤w¦bthisworkbook¼Ò²Õ¤º½s¿è¦n©Ò¦³¼Æ­È
ªí¤¤'N3'¤]·|°Ñ·Ó'F2'¤§¤é´Á¦Ó±o¨ì¥¿½Tªº­È
¦ý¬O¤@¦ý§Ú±N¤u§@ªí«OÅ@«á,¦A'F2'¿é¤J¤é´Á´N·|¥X²{°»¿ùµe­±
EXCEL·|·í±¼¦A­«¶},¨S·í±¼¤U¸Ñ°£«OÅ@«á¦A¿é¤J¤é´Á¤]µL®Ä@@"
·Qª¾¹D¬O¨º¸Ì¿ù¤F,½Ð¤j¤j­Ì¤£§[«ü±Ð
ÁÂÁÂ!!

TOP

°õ¦æ
Sub XX()
Application.EnableEvents = True
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD