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

[µo°Ý] ½Ð°Ý¥X¶Ô¨t²Î³]­p

¦^´_ 67# v03586


§ó·sª©¥»

    Ex.zip (417.46 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 71# GBKEE
¦^´_ 68# c_c_lai


    ©µªø¥[¯Z³¡¤À¦³¨Ç³\°ÝÃD, §Ú³o¦¸¾ã²z¦¨¥ÎÃC¦â¨Ó°Ï§O, ¤£ª¾¹D«ç¼Ëªº¸ÑÄÀ, ¬O§_¤ñ¸û®e©ö¿ë§O

TOP

¦^´_ 72# v03586
¬O³o¼Ë¶Ü¡H ³o´N¬O§Ú·Pı§x´bªºÆ[©ÀÂI¡G

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-9-7 13:27 ½s¿è

¦^´_ 73# c_c_lai


    c_c_lai ¤j¤j, §¹¥þ¥¿½T!!! ½Ð°Ý³o¼Ë­n¦p¦ó½Õ¾ã©O?

TOP

¦^´_ 74# v03586
³o¬O§Ú³Ìªñ­×¥¿«áªº (Relaese) ª©¥» ¡G
¤H­û¤H¤O¦^³øªí0907R1.rar (393.32 KB)

TOP

¦^´_ 75# c_c_lai


    ·PÁÂc_c_lai ªº¨ó§U
  ¤µ¤Ñ´ú¸Õ¤j³¡¤À¥\¯à¬Ò§¹¦¨, °ß¤@¤@­Ó¤p°ÝÃD¤£ª¾¹D¬O§_¬O§PÂ_¿ù»~
    °²³]§Ú¤é´Á¿ï§Oªº¤ë¥÷(¹w±Æ¥X¶Ô) ¿ï¾Ü¦^³ø®É, ·|¥X²{¡y¨S¦³¥X¶Ô¤H­û¡z
   ¦ý¹ê»Ú¤W¬O¦³§ó·s¥X¶Ôªº!!! , ¥u¦³¸ó¤ë¥÷¥X²{³o¼Ë°ÝÃD

TOP

¦^´_ 76# v03586
·|¥X²{¡y¨S¦³¥X¶Ô¤H­û¡z¡A¬O¦]¬°§A¥Ø«eªº
¡y¥X¶Ô¸ê®Æ®w¡zµL¤Q¤ë¥÷ªº¥X¶Ô¬ö¿ý¡C
§A¥i¥HÀˬd¤@¤U§Aªº¡y¥X¶Ô¸ê®Æ®w¡z¡C

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-9-8 19:59 ½s¿è

¦^´_ 76# v03586
§ä¨ì­ì¦]¤F¡C
  1. Sub Main()       '  ¨Ï¥Î Main µ{¦¡«e¡A »Ý¥ý«ü©w ¡yxDay¡z ªº¤é´Á
  2.     Dim e As Variant, Rng As Range, cts As Integer      '  , loc As String
  3.    
  4.     Set ¦^³ø¯Z§O = CreateObject("SCRIPTING.DICTIONARY")
  5.     Set ¤H­û¦^³ø = CreateObject("SCRIPTING.DICTIONARY")
  6.    
  7.     ¤H¤O¸ê®ÆŪ¨ú
  8.     Main_¦^³ø²M°£
  9.    
  10.    
  11.     For cts = 1 To 2   '  ²Ä¤@¶¥¬q(cts=1)¥H¥¿±`¯Z§O¬°§PÂ_°ò·Ç¡F²Ä¤G¶¥¬q(2)«h¯Â¥H¥[¯Z¯Z§O¬°§PÂ_°ò·Ç¡C
  12.         Main_¦^³ø¸ê®Æ (cts)                     '  2016/09/01 Modied by C. C. Lai
  13.         
  14.         If ¦^³ø¯Z§O.Count = 0 Then
  15.             Msg = True
  16.             MsgBox Format(xDay, "YYYY¤ëMM¥÷ !") & " ¨S¦³¥X¶Ô¤H­û"
  17.             Exit Sub
  18.         End If
½Æ»s¥N½X
¦b²Ä¤G¶¥¬q¡A¦³¥i¯à¥þµL "©µªø¥[¯Z"¡A ¬GÀ³ÀH§Y¸õÂ÷¥»°õ¦æ¤¤¼Ò²Õ¡C
­×¥¿¬°¡G
  1. Sub Main()       '  ¨Ï¥Î Main µ{¦¡«e¡A »Ý¥ý«ü©w ¡yxDay¡z ªº¤é´Á
  2.     Dim e As Variant, Rng As Range, cts As Integer      '  , loc As String
  3.    
  4.     Set ¦^³ø¯Z§O = CreateObject("SCRIPTING.DICTIONARY")
  5.     Set ¤H­û¦^³ø = CreateObject("SCRIPTING.DICTIONARY")
  6.    
  7.     ¤H¤O¸ê®ÆŪ¨ú
  8.     Main_¦^³ø²M°£
  9.    
  10.    
  11.     For cts = 1 To 2   '  ²Ä¤@¶¥¬q(cts=1)¥H¥¿±`¯Z§O¬°§PÂ_°ò·Ç¡F²Ä¤G¶¥¬q(2)«h¯Â¥H¥[¯Z¯Z§O¬°§PÂ_°ò·Ç¡C
  12.         Main_¦^³ø¸ê®Æ (cts)                     '  2016/09/01 Modied by C. C. Lai
  13.         
  14.         If ¦^³ø¯Z§O.Count = 0 Then
  15.             Msg = True
  16.             [color=Red]If cts = 1 Then[/color]
  17.                 MsgBox Format(xDay, "YYYY¤ëMM¥÷ !") & " ¨S¦³¥X¶Ô¤H­û"
  18.             [color=Red]ElseIf cts = 2 Then[/color]   '  ¦b²Ä¤G¶¥¬q¡A¦³¥i¯à¥þµL "©µªø¥[¯Z"¡A ¬GÀH§Y¸õÂ÷¥»°õ¦æ¤¤¼Ò²Õ¡C
  19.                 [color=Red]Msg = False
  20.             End If[/color]
  21.             Exit Sub
  22.         End If
½Æ»s¥N½X

TOP

¦^´_ 76# v03586
ªþ¤W§ó·sµ{¦¡¡G
¤H­û¤H¤O¦^³øªí0907R1.rar (418.9 KB)

TOP

¦^´_ 79# c_c_lai

       ·PÁ¨ó§U, ¤µ¤é´ú¸Õ¥X²{Error Code ¶W¥X°}¦C¤Þ¯Á½d³ò !!
          §Ú«ç»ò¬Ý³o­Ó¿ù»~«ç»ò·|¿ù¦b©I¥sµ{¦¡ªº¦a¤è.....
    ssss.png

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD