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

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

¦^´_ 42# jeffrey628litw


    ·PÁ¤j¤j¤£Ã㨯³Òªº­×§ï !!!
   ¤µ¤é«ùÄò´ú¸Õ¥\¯à¬O§_¦³BUG , µo²{ .. °²³]¦³¤H­ûÂ÷¾ , ¦ý¥ý«e¤w¸g¦³¦b¡y¥X¶Ô¸ê®Æ®w¡z¸ê®Æ®w¥X²{ªº¦W¦r
   ·|¥X²{¥H¤U¿ù»~

Q1.png
2016-8-17 04:11

Q2.png
2016-8-17 04:11


µM«á¦^¨ì¡y¦^³ø­¶­±¡z ¬Ý ·|¥X²{¸ê®Æ³£¦V¤U¦ì²¾ !!
¦pªG¥h¡y¥X¶Ô¸ê®Æ®w¡z±NÂ÷¾¤H­û§R±¼ªº¸Ü¤@¼Ë¤£·|«ì´_¥¿±`
°£«D­n¥ý±N¡y¦^³ø­¶­±¡zªº(¬õ®Ø)¸ê®Æ¥ý§R¥ú, ¦b¥h«ö¦^³ø«ö¶s, ¤~«ì´_¥¿±`
½Ð°Ý³o­Ó¦p¦ó­×¥¿©O?? ¥i¥H±NÂ÷¾«áªº¤H­û¸ê®Æ¦P¨B¦b¡y¥X¶Ô¸ê®Æ®w¡z§R±¼? ´N¯àÁקK³o°ÝÃD??
Q3.png
2016-8-17 04:16
  1. Private Sub Main_¦^³ø¼g¤J(Rng As Range)
  2.         Dim R As Range, St As String, xRng As Range, ¤é¼Æ As Integer, i As Integer
  3.         For Each R In Rng.Rows
  4.                 ' ** R ->Sheets("¥X¶Ô¸ê®Æ®w")ªº¾ã¦C***********
  5.                
  6.                 St = R.Cells(1, "A") & R.Cells(1, "B") & R.Cells(1, "D") & R.Cells(1, "E") & R.Cells(1, "F")
  7.                 'St =¥X¶Ô¸ê®Æ:  ¯Z§O&©ÒÄÝ»â¯Z&&¤u¸¹&©m¦W& ²Õ§O
  8.             
  9.                 If ¤H­û¦^³ø.EXISTS(St) Then  '** St(¥X¶Ô¸ê®Æ)¦s¦b¦r¨åª«¥ó¤¤  -> ¦P¤@¤u¸¹®É
  10.                     Set xRng = ¤H­û¦^³ø(St)                      '** -> ¦P¤@¯Z§O¤u¸¹¤H­ûªº¦ì¸m
  11.                 Else     '** St(¥X¶Ô¸ê®Æ)¤£¦s¦b¦r¨åª«¥ó
  12.                     
  13.                     Set xRng = Sheets("¤H­û¦^³ø").Range("a" & Rows.Count).End(xlUp).Offset(1)
  14.                     '** xRng ÅܼƳ]¬° Sheets("¤H­û¦^³ø"),AÄæ³Ì©³³¡ªº¦C©¹¤W¨ì¦³¸ê®Æ Àx¦s®æªº¤U¤@¦C
  15.                     
  16.                     Set ¤H­û¦^³ø(St) = xRng                     '** ¦r¨åª«¥ó,¤u¸¹: ³]¬°xRngÅܼÆ
  17.                 End If
  18.                 ¤é¼Æ = Day(R.Range("C1"))
  19.          With xRng
  20.               ' ** xRng ->Sheets("¤H­û¦^³ø").Range("a"¦C )***********
  21.                     .Range("A1") = R.Range("A1")                                   '** ¯Z§O
  22.                     .Range("B1") = R.Range("B1")                                   '** »â¯Z
  23.                     .Range("C1") = .Range("C1") + R.Range("k1") + IIf(R.Range("L1") = "True", R.Range("I1"), 0)
  24.                     '**R.Range("k1")->¥[¯Z®É¼Æ ,R.Range("L1") = "TRUE"->°²¤é:+¥[¥X¶Ô®É¼Æ-> R.Range("I1")
  25.                     
  26.                     .Range("D1") = R.Range("D1")                                  '**¤u¸¹
  27.                     .Range("E1") = R.Range("E1")                                   '** ©m¦W
  28.                     .Range("F1") = DA¤u¸¹(R.Range("D1") & "")(1, 7)    '**¥D±Mªø
  29.                     .Range("G1") = R.Range("F1")                                   '** ²Õ§O
  30.                     .Cells(1, ¤é¼Æ + 7) = R.Range("G1")                          '** ¥X¶Ô¯¸§O
  31.                     ''*********************************************
  32.                     i = Application.Match(UCase(.Range("G1")), Array("V", "P", "K"), 0) '**Âk¯Ç²Õ§O
  33.                     ²Õ§Oªí(i, ¤é¼Æ) = ²Õ§Oªí(i, ¤é¼Æ) + 1
  34.                     
  35.                     '***********************************
  36.                     If R.Range("J1") <> "" Then                                         '**¥X¶Ô¸ê®Æ®w , ©µªø¥[¯Z ¸ê®Æ   **
  37.                         i = Application.Match(UCase(R.Range("A1")), Ar1, 0)
  38.                         ¯¸§Oªí(i, ¤é¼Æ) = ¯¸§Oªí(i, ¤é¼Æ) + 1          '**Day(Rng(1)); ©µªø¥[¯Zªº¥[Á`
  39.                     End If
  40.                     
  41.                     i = Application.Match(UCase(R.Range("G1")), Ar1, 0)     '**¥X¶Ô¸ê®Æ®w , ¥X¶Ô¯¸§O  ¸ê®Æ**
  42.                     ¯¸§Oªí(i, ¤é¼Æ) = ¯¸§Oªí(i, ¤é¼Æ) + 1
  43.                     '**DA ¶}¾÷¼Æ **
  44.                     If i = UBound(Ar1) + 1 Then ¯¸§Oªí(UBound(Ar1) + 2, ¤é¼Æ) = ¯¸§Oªí(UBound(Ar1) + 2, ¤é¼Æ) + R.Range("H1")
  45.                     '*********************************************
  46.                 End With
  47.         Next
  48. End Sub
½Æ»s¥N½X

TOP

¦^´_ 39# GBKEE
¦^´_ 42# jeffrey628litw
¦^´_ 44# c_c_lai



·PÁ¤T¦ì¤j¤jªº¾ã¦X !! , ³o´X¤Ñ¹Á¸Õ±N jeffrey628litw ¤j¤j »P GBKEEª©¤j ¤Î c_c_lai  ¤j¤jªºª©¥»°µ­Ó­×§ï

µo²{°ÝÃD¦p¤U,
1.  c_c_lai  ¤j¤jªºª©¥» , ºc·Q«D±`´Î, ·s¼W¤F´_¾¥\¯à, ¦ýÂ÷¾«á ¡y§ó·s¥X¶Ô¡z¨º­Ó¥\¯à, ÁÙ¬O·|Åã¥Ü¤wÂ÷¾ªº¤H­û
   ªø´Á¤U¨Ó¨Ï¥ÎªÌ, µLªk¤@¤@°O¦í¬Y¨Ç¤H¤w¸gÂ÷¾(¤u¼t¬y°Ê²v¤j) , ¦AªÌ§ó·s¥X¶Ô«á¤wÂ÷¾ªº¤HÁÙ¬O·|¦b¥X¶Ôªºªí®æ¤º
   1-1. ·|Åý¨t²Î¾Þ§@ªÌ¤£ª¾¹D¦o¨ì©³¦b¤£¦b !! °£«D¤wÂ÷¾ªº¤£Åã¥Ü¦b½s¿è¥X¶ÔªºÄæ¦ì¤¤

2.  GBKEEª©¤j ª©¥», ´ú¸Õ¤U¨Ó´N¬OÂ÷¾«áªº¤H­û, ¦pªG¡y¥X¶Ô¸ê®Æ®w¡z¨S¦³¦P¨B§R°£¤wÂ÷¾¸ê®Æ,  ¤H­û¦^³ø«á·|¥X¿ù
    2-1. ª©¤jª©¥»­×§ï°_¨Ó¬O§_¤ñ¸û®e©ö? ¶È»Ý­n¦P¨B§R°£¡y¥X¶Ô¸ê®Æ®w¡z¤¤ªº¸ê®Æ´N¤£·|¦³¥X¿ù???

Q1.png
2016-8-22 23:18

Q2.png
2016-8-22 23:18

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2016/8/24 05:16): ªþÀɬݬÝ

¦^´_ 47# GBKEE


    ¥[¤Jµ{¦¡½X«á, ¥X¶Ô½s¿èÁÙ¬O·|Åã¥Ü¥XÂ÷¾¤H­ûÅý¨Ï¥ÎªÌ½s¿è­C !

TOP

¦^´_ 48# v03586


    Àɮצp¤U, ¦¹Àɮפw¸g±N¾ã¦X­¶­±»P¤H­û¦^³ø­¶­±µ²¦X¤F, ³¡¤Àµ{¦¡½X­×§ï«áµo²{¸õ®æ...]
¥i¥H½Ð¤j¤j«üÂI§Ú­þÃä¨S§ï¦n¶Ü?? (¤U¹Ï¬õ®Ø³B)   , ¥t·Q½ÐªO¤j¨ó§U1:1¡B1:2¡B1:3¡B1:4 ªº³¡¤À¥Ñ¥i¾Þ¾÷¼Æ°µ­Ó¥[Á`
¥i¥H½Ð¤j¤j¶¶«K±Ð§Ú,  ¦pªG¥¼¨Ó¤ñ¨Ò³¡¤À¦pªG¦³¼W¥[ §Ú»Ý­n¦p¦ó­×§ï¶Ü?? °²³]¥Ø«e¥u¨ì1:4 , ¥¼¨Ó1:7®É §Ú­×§ï¤FÄæ¦ì, µ{¦¡½X³¡¤À­n¬Û¹ï­×§ï­þÃä
Q1.png
2016-8-24 13:02



1.  ¥t¥~...¼Ó¤W´£¨ìªº...¦p¤U¹Ï, ¤wÂ÷¾³¡¤À, ÁÙ¬O·|¥X²{¦b½s¿èÄæ¦ì, ·|Åý¨Ï¥ÎªÌ¤À¤£²M·¡¤wÂ÷¾¤H­û
·|Ä~Äò½s¿è, ¦pªGªø¤[¥H¨ÓÂ÷¾ªº¤HÅܦh...½s¿è­¶­±´N·|¤@¤j¦ê³£¬OÂ÷¾¤H­û( ¥BÂ÷¾¤H­û¤£¤p¤ß½s¿è , ·|ºâ¦b¥X¶Ô²v·í¤¤ )

2. ¦pµo²{¤w§ó·s¥X¶Ô, ¦ýµo²{¤H­û§ó·s¿ù»~, ­n±N¤H­û¨ú®ø¥X¶Ô , ¦ü¥G¤£¯à¨ú®ø, ¨t²Î°ò¥»³]¸m¥X¶Ô¤@©w­n¶ñ1-8¤p®É, ¦p¤H­ûÁ{®É·í¤Ñ³Q§iª¾©ú¤Ñ¤£¥Î¨Ó
¥X¶Ô¨t²ÎµLªk­×§ïÅý¥LÅÜ0­C

Q2.png
2016-8-24 13:07






¤H­û¤H¤O¦^³øªí(GBKEE).rar (385.77 KB)

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-8-25 15:17 ½s¿è

¦^´_ 50# GBKEE


    ·PÁª©¤jªº¨ó§U, ´ú¸Õµ{¦¡«áµo²{¦p¤U°ÝÃD

1. ÂI¿ï¨ú®ø¥X¶Ô¥X²{¦p¤U¿ù»~!!!
Q2.png
2016-8-25 15:01

Q1.png
2016-8-25 15:01



2. ¤H­ûÂ÷¾«á, ¦A¥´¶}§ó·s¥X¶Ôªº¾Þ§@¤¶­±, µo²{¤H­ûÁÙ¦b¾Þ§@¤¶­±¤W, ÂI¤FÂ÷¾¤H­û¦W¦r·|¼u¥X¦p¤U¿ù»~
    2-1. ÁöµM«ö¤F¡y¤H­û¦^³ø«ö¶s¡z¤w¸g¤£·|¥X²{¦b¡y¤H­û¦^³ø¡z¸ê®Æªí¤W !!!
Q3.png
2016-8-25 15:01


3. 1:1¡B1:2¡B1:3¡B1:4 ªº³¡¤À¥Ñ¥i¾Þ¾÷¼Æ°µ­Ó¥[Á`, ¦p¦ó¥[Á`??
    §Ú·Q¨ìªºÅÞ¿è...½ÐªO¤j«ü±Ð
   3-1. ¥ý¨Ì·Ó¥X¶Ô¸ê®Æ®w¡y¯Z§O¡z¥h§PÂ_­n¦b­þ¤@¯ZªºÄæ¦ì°µ²Î­p
   3-2. ¦A¨Ì·Ó¥X¶Ô¸ê®Æ®w¡y¤é´Á¡z¥h§PÂ_­n¦b­þ¤@¤ÑªºÄ楼°µ¥[Á`
   3-3. ³Ì«á¨Ì·Ó¥X¶Ô¸ê®Æ®w¡y¥i¾Þ¾÷¼Æ¡z¥h§PÂ_¾Þ§@¾÷¥x 1¡B2¡B3¡B4 ªº­Ó§O¼Æ¦r (¦p¤U¹Ï)
Q4.png
2016-8-25 15:13

TOP

¦^´_ 52# GBKEE


    ²Ä¤@­Ó¾Þ§@¿ù»~¨BÆJ
   1. ¤H­û¥ý¾Þ§@Â÷¾
   2. ½s¿è¥X¶Ô§ó·s, Â÷¾¤H­ûÁÙ¥X²{¦b½s¿è¶µ¥Ø¤º, ÂI¿ï´N¥X¿ù

¦p¤Wª¬ªpªº¼ÒÀÀ¬O....°²³]¤µ¤Ñ¦³10­Ó¤H¤wÂ÷¾, ¦ý¨Ï¥ÎªÌ¤£¥i¯à°O¦í¤wÂ÷¾ªº¨º»ò¦h¤H(¦pªG®É¶¡¶b¤@©Ôªø),
¬Û¹ï¦b½s¿è¥X¶Ô®É, ¦pªG§Ñ°O¥L¤w¸gÂ÷¾, ÂI¿ïÂ÷¾¤H­û´N·|¥X²{³o­Ó¿ù»~,
¦pªG¥Hªø»·¨Ó¬Ý...¤wÂ÷¾¤H­ûÁÙ¯à¥X²{¦b¥i½s¿èªºÄæ¦ì¸Ì­±, ¨º¥¼¨Ó(®É¶¡¶b¤@ªø)¡A½s¿èªº¤H¤£´N·|¥X²{¤@°ï¤wÂ÷¾ªº¤Hª«...
³o¼Ë¥i¯à·|³y¦¨¨Ï¥ÎªÌ½s¿èªº¤£«K...­n¤@ª½¸õ¹L, ­Y¤£¤p¤ßÂI¨ì,´N·|¥X²{¤U¹Ïªº¿ù»~
Q1.png
2016-8-26 13:08


¥t¥~¦³µo²{¤@­Ó°ÝÃD...
Q2.png
2016-8-26 13:16

§Ú¦³¹Á¸Õ­×§ï, ¦ý¦ü¥GµLªk, ½Ð°Ý¤@¤U§Ú­þÃä§ï¿ù¤F?
¦pªG§Ú¨S·|¿ù·N«ä, ³o¤@¬qÀ³¸Ó¬O¸ÑÄÀ
¦pªGV, ¤ë¥÷¤p©óµ¥©ó6¤ë, ¬P´Áµ¥©ó¤é©Î¤» «hOverTime = ¦¨¥ß ???

Case "V"
             If Month(xDay) <= 6 And Weekday(xDay) = 7 Or Weekday(xDay) = 6 Then OverTime = True
             If Month(xDay) > 6 And Weekday(xDay) = 1 Or Weekday(xDay) = 7 Then OverTime = True
  1. Private Function OverTime(²Õ§O As String) As Boolean
  2.      '  <= 6   V²Õ ¤»-¥ð®§¤é /  P²Õ ¤é-¥ð®§¤é / K²Õ ¤G-¥ð®§¤é
  3.      '  >6     V²Õ ¤é-¥ð®§¤é /  P²Õ ¤»-¥ð®§¤é / K²Õ ¤G-¥ð®§¤é
  4.      Select Case ²Õ§O
  5.          Case "V"
  6.              If Month(xDay) <= 6 And Weekday(xDay) = 7 Then OverTime = True
  7.              If Month(xDay) > 6 And Weekday(xDay) = 1 Then OverTime = True
  8.          Case "P"
  9.              If Month(xDay) <= 6 And Weekday(xDay) = 1 Then OverTime = True
  10.              If Month(xDay) > 6 And Weekday(xDay) = 7 Then OverTime = True
  11.          Case "K"
  12.              If Weekday(xDay) = 3 Then OverTime = True
  13.     End Select
  14. End Function
½Æ»s¥N½X

TOP

¦^´_ 54# GBKEE


    ·PÁªO¤j¸Ñ¨M¤F¤j°ÝÃD!!¯u¤ß·PÁÂ!!

    ¦p¤Uµ{¦¡´ú¸Õ«áµo²{¤§«eªº¨â­Ó³W«h¦ü¥G¦³¶]±¼¤F, Àµ½Ð¤j¤j¨ó§U...

   Q1. ±Æ§Ç°ÝÃD   , ¥Ø«e¬Ý¨Ó ²Õ§O, ±µ¦³¨Ì·ÓVPK ±Æ§Ç, ¦ý¬O¯Z§O¦n¹³¶]±¼¤F
    ±ÆÄò¤è¦¡¡A¡£¯Z§O¡¤¡÷¡£»â¯Z¡¤¡÷¡£²Õ§O¡¤
Q1.png
2016-8-28 16:50



   Q2. ¦A¨Ó´N¬O¤§«e¦³­×§ï¹L, ¦ý³o¯Z¤S¶]±¼³W«h,
¤U¹Ï¬O¥Ø«eªºª¬ªp, ³Ì¤U­±¨º±i¹Ï¦³Á|¨Ò
Q3.png
2016-8-28 16:51

­ì¥»­qªº³W«h¬O, ·í¯ZÀ³¸Ó¥X²{¦b·í¯ZªºÄæ¦ì, ¦Ü©ó©µªø¥[¯Z¤~¥h§PÂ_Åã¥Ü¦b§O¯ZªºÄê¦ì¤W
©µªø§O¯Z¥u­pºâ¥X¶Ô²v, ¤£­pºâ¡y±Mªø¡z¤HÀY¼Æ !!!
Q2.png
2016-8-28 16:55

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-8-28 18:17 ½s¿è

¦^´_ 54# GBKEE

    ¥Î³o±i¨Ó¸ÑÄÀ¤ñ¸û²³æ...·í¯Z¸ê°T ¤£¨£¤F, ¶]¥h¥[¯Zªº¯Z§O !!
    ¤wÅÞ¿è¤W¨Ó»¡...·í¯Z¸ê°T¤@©w­n¦³, ¦]¬°¥[§O¯Z , ¤£ª¾¹D¨ä¥L¯Z·|«ç»ò¦w±Æ§A¥Î­þ¼Ë±Mªø
   
Q4.png
2016-8-28 18:15

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-8-31 11:58 ½s¿è

¦^´_ 57# c_c_lai


    ·PÁ¤j¤j¨ó§U!!! ¤w¸Ñ¨M±Æ§Ç°ÝÃD!!!!
    #56  =  #55  Q2 ¤ñ¸û²M·¡

TOP

¦^´_ 54# GBKEE

¤w³Ì²³æªº¨Ò¤l¨ÓÁ|¨Ò, ¤U¹Ï³Ì¤U­±ªºªí®æ¬O¤wºûÅ@§ó·s¦nªº¥X¶Ô¦W³æ
¥¿±`¨Ó»¡, ¤T¦ì³£¬O¦­¯ZªºMH , ©Ò¥H¥¿±`¨Ó»¡ 1ST ªºMH À³¸Ó¬O¤T¦ì¤~¹ï
2ND ¬O¨S¦³·í¯Zªº¤H !!!  ¥[¯ZªºÄæ¦ì¦³¤@¦ì ©Ò¥H¥\¯à¥¿±`, ¦ý¬O·í¯Zªº³¡¤À´N¤£¹ï¤F
½Ð°Ý­n±q¦ó­×§ï©O??
   
Q1.png
2016-9-1 04:39

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD