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

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

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-9-9 07:27 ½s¿è

¦^´_ 80# v03586
§A¥ý§â¾Þ§@¹Lµ{´y­z¤@¦¸¡A¥X²{¿ù»~°T®§«á¿ï«ö "°»¿ù"
µM«á§A¦A§â±µ¤U¨Ó¥u¨ì¿ù»~ÂIªºµe­±§i¶D§Ú¡C
§Ú¤]ÆZ¦n©_¬O­þ¸Ì¶V¬É¤F¡H
½Ð°Ý§A¬O¨Ï¥Î¤W¶Çªº  "¤H­û¤H¤O¦^³øªí0907R1" ÀÉ®×´ú¸Õªº¶Ü¡H

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-9-9 20:55 ½s¿è

¦^´_ 81# c_c_lai


    §Ú¬O¥Î#79¼Ó³Ì·sª©¥» , ÂI¿ï ¡y¥X¶Ô§ó·s¡zªº Userfrom ´N¥X¿ù¤F!! À³¸Ó¬O§Ú¦³§ï¨ì¤°»ò, §Ú¦b¬ã¨s¤@¤U

TOP

¦^´_ 81# c_c_lai


    ½T»{«á,,, ¬O§Ú­Ó¤H­×§ï¿ù»~°ÝÃD....¤w­×¥¿....¥t¥~·Q°Ý¤@¤U
   ¥Ø«eµ{¦¡¥X²{¤@­Ó°ÝÃD,  ´N¬O·s¼W²Ä¤G¯Z¤H­û«á, ¤H­û¦^³ø¸ê®Æªí¡y²Ä¤G¯ZÁ`¤H¼Æ¡z¤£·|¦Û°Ê¥[Á` !! ¦³´ú¸Õ¹L 1 , 3 ¯Z³£¨S°ÝÃD
     

       ¥tµ{¦¡³¡¤À K²Õ  ±ø¥ó§Ú¤§«e³]¿ù¤F  §Ú¦³­×§ï ,  K²Õ §«ô¤@ ¬O¨Ò°²¤é , §«ô¤G¬O¥ð®§¤é
      µ{¦¡½X­×§ï¦p¤U !! À³¸Ó¨S¿ù»~§a@@....§Ú¥h¥X¶Ô§ó·s¥h§PÂ_¬O¥¿½Tªº!!
  1. Private Function OverTime(²Õ§O As Variant) As String
  2.      '  <= 6   V²Õ ¤»-¥ð®§¤é /  P²Õ ¤é-¥ð®§¤é / K²Õ ¤G-¥ð®§¤é
  3.      '  >6     V²Õ ¤é-¥ð®§¤é /  P²Õ ¤»-¥ð®§¤é / K²Õ ¤G-¥ð®§¤é
  4.      '  If Month(xDay) <= 6 And (Weekday(xDay) = 7 Or Weekday(xDay) = 6) Then OverTime = True
  5.      '  If Month(xDay) > 6 And (Weekday(xDay) = 1 Or Weekday(xDay) = 7) Then OverTime = True
  6.      OverTime = "¥X¶Ô¤é"
  7.      If Month(xDay) <= 6 Then
  8.         Select Case ²Õ§O.Name
  9.              Case "V"
  10.                 If Weekday(xDay) = 7 Then OverTime = "¥ð®§¤é"
  11.                 If Weekday(xDay) = 1 Then OverTime = "¨Ò°²¤é"
  12.             Case "K"
  13.                 If Weekday(xDay) = 3 Then OverTime = "¥ð®§¤é"
  14.                 If Weekday(xDay) = 2 Then OverTime = "¨Ò°²¤é"
  15.             Case Else
  16.                 If Weekday(xDay) = 1 Then OverTime = "¥ð®§¤é"
  17.                 If Weekday(xDay) = 7 Then OverTime = "¨Ò°²¤é"
  18.         End Select
  19.     ElseIf Month(xDay) > 6 Then
  20.         Select Case ²Õ§O.Name
  21.              Case "P"
  22.                 If Weekday(xDay) = 7 Then OverTime = "¥ð®§¤é"
  23.                 If Weekday(xDay) = 1 Then OverTime = "¨Ò°²¤é"
  24.              Case "K"
  25.                 If Weekday(xDay) = 3 Then OverTime = "¥ð®§¤é"
  26.                 If Weekday(xDay) = 2 Then OverTime = "¨Ò°²¤é"
  27.             Case Else
  28.                 If Weekday(xDay) = 1 Then OverTime = "¥ð®§¤é"
  29.                 If Weekday(xDay) = 7 Then OverTime = "¨Ò°²¤é"
  30.         End Select
  31.     End If
  32. End Function
½Æ»s¥N½X

TOP

¦^´_ 81# c_c_lai


    Sorry sir .....
²ö¦W¨ä§®¤S¦n¤F¡I ³y¦¨¤£«K¤§³B½Ð­ì½Ì....

TOP

¦^´_ 84# v03586
¦A¦h¦h´ú¸Õ¡A¦p¦¹¤~¯à´ú¥X¨äí©w¡B¥¿½T©Ê¡C

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-9-10 08:16 ½s¿è

¦^´_ 84# v03586
§Ú¦b¤H­û¦^³ø«e¥[¤F¤@¬q²M°£ "Actual (D3 Äæ)"µ¥Äæ­Èªº°Ê§@¡A
¥HÆ[¹î¨ä¸ê®Æ¬O§_¥¿½T¼g¤J¡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.     '  2016/9/10  Modified by C. C. Lai
  11.     With Sheets("¤H­û¦^³ø")
  12.         For Each e In Array(.Range("D5"), .Range("D28"), .Range("D51"))
  13.             e.Resize(3).Value = ""                 '  Actual (D3 Äæ)
  14.             e.Offset(, 1) = ""                     '  ** (¯Z§O) Á`¤H¼Æ
  15.             e.Offset(4, -1).Resize(8).Value = ""   '  ** (¯Z§O¦U±Mªø) ¤H¼Æ
  16.         Next
  17.     End With
  18.    
  19.     For cts = 1 To 2   '  ²Ä¤@¶¥¬q(cts=1)¥H¥¿±`¯Z§O¬°§PÂ_°ò·Ç¡F²Ä¤G¶¥¬q(2)«h¯Â¥H¥[¯Z¯Z§O¬°§PÂ_°ò·Ç¡C
½Æ»s¥N½X

TOP

¦^´_ 86# c_c_lai


    ·PÁÂc_c_lai ¤jªº¥Î¤ß~¨t²Î¤w¸gReleaseµ¹¤H­û¨Ï¥Î ,³o´X¤Ñ«ùÄòÆ[¹î , ¬O§_¦³°ÝÃD¡I¡I¡I

TOP

¦^´_ 87# v03586
§O«È®ð¡I
¨ä¹ê§AÀ³¸ÓÁÂÁ¶}©l®ÉÀ°§A¸ÑÃDªº yifan2599¡Bjeffrey628litw ¨â¦ì¤j¤j¡F
¦b¦¹­×¥¿¤¤µÛ¾¥³Ì²`ªº²ö¹L©ó GBKEE ª©¤j¤F¡A¥Lªººc«ä¡Bµ{¦¡¼Ò²Õµ²ºc¤§²Ó¿°¡A
¨Ï±o¬yµ{±o¥H¦p¦¹¶¶ºZ¡AÀ³¥þÂk¥\©ó GBKEE ª©¤j¤F¡C
§Ú¥u¤£¹L¬OªgªgÂæªo¦Ó¤w¡C
Parallel Run «á¦p¦³°ÝÃD¦A´£¥X§a¡I

TOP

¦^´_ 88# c_c_lai


    ÁÂÁ¦U¦ìªºÀ°¦£...!! ¤¤¬î³s°²ªº¨Ï¥ÎªÌ¦b¨t²Î¾Þ§@¤j­P¤W¨S°ÝÃD
    ¥u¬O¦³´X­Ó°ÝÃD ¤£ª¾¹DExcel ¬O§_¯à°µ¨ì³o¼ËªºÀu¤Æ
     ¦]¨Ï¥ÎªÌµo°Ý»¡, ¤u¼t¤W¯Z ¥ð°²ªº¤Ö ¥X¶Ôªº¦h, ¦pªG¤@µ§¤@µ§Key in  ®É¶¡°÷ªø,
     ¤£¾å±oExcel VBA ¯à§_°µ¨ì§å¦¸³B²z
           ex : V²Õ½s¿è¥X¶Ô ¤@Áä¥þ³¡¥´¤Ä, ¤£¥X¶Ôªº´N¦Û¤v¤£¥´¤Ä , ¦b¥h½s¿è¥X¶Ô¸ê®Æ
                                ex :±Mªø¬ODAªº §ó§ï¾Þ¾÷¼Æ , ¬O§_¦³¥[¯Zªº !!!

     ¥i§_Åý¨t²Î¹w³] ¾Þ¾÷¼Æ ¤@¶}©l°ò¥»2¥x , ¦p«áÄò­n½Õ¾ã ¦b¦Û¤v¿ï¾Ü 1, 3 , 4 ??

TOP

¦^´_ 89# v03586
¤£¤Ó²M·¡§Aªºªí­z¡A¤@¦¸¥þ³¡¥´¤Ä¡H
(±N¸Ó V ²Õ¸ê®Æ¤@¦¸¥þ¼g¤J "¥X¶Ô¸ê®Æ®w" ¡H)
A0E.png
2016-9-19 16:42

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD