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

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

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-8-30 07:00 ½s¿è

¦^´_ 55# v03586
  1. Sub Main()
  2.         .
  3.         .
  4.         .
  5.         Main_¥X¶Ô²v Rng.Offset(-1), e & ""
  6.     Next
  7.    
  8.     With Sheets("¤H­û¦^³ø")      '  ¨Ì¯Z§O¡B»â¯Z¡B²Õ§O ±Æ§Ç
  9.         With Range(.Range("A84"), .Range("AL" & .Range("A" & Rows.Count).End(xlUp).Row))
  10.             .Sort key1:=.Cells(1, 1), key2:=.Cells(1, 2), Order1:=xlAscending, key3:=.Cells(1, 7), Order3:=xlDescending, Header:=xlYes
  11.         End With
  12.     End With
  13. End Sub
½Æ»s¥N½X
#55 Q2 ¥H¤Î #56 ªº´£°Ý©|½Ð GBKEE ¤j¤j«ü¾É (¹Ï¥Ü¤Ó¤p¡A¥Ø«e¬Ý°_¨ÓÁÙÆZ¦Y¤Oªº)¡C

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

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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-8-27 13:22 ½s¿è

¦^´_ 53# v03586


¤w­×§ï§A´£ªº°ÝÃD.



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

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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-8-25 20:57 ½s¿è

¦^´_ 51# v03586
µ{¦¡¦³¿ù»~,¥i¥ýGoogle ¤F¸Ñ¿ù»~¤~·|¶i¨B,

¥¼©R¦W.GIF
2016-8-25 20:48


"ÂI¤FÂ÷¾¤H­û¦W¦r·|¼u¥X¦p¤U¿ù»~"
§A¬O¦p¦ó¾Þ§@¨S³o¿ù»~
³o¤£¬O§R°£Â÷¾¤H­û
  1. Private Sub UserForm_Initialize()
  2.     ³]©w             '  Åª¨ú UserForm ¤º¤§Àô¹Ò³]©w
  3.     ¤H¤O¸ê®ÆŪ¨ú     '  °õ¦æ¼Ò²Õ¤¤¡yµ{¦¡¡z¡A¨Ã±q¡y¤H¤O¸ê®Æ®w¡z¤¤Åª¨ú¡uDA¯Z§O¡v¡B¡uDA»â¯Z¡v¡B
  4.                      '  ¡uDA¤u¸¹¡v¡B¡uDA²Õ§O¡v¡B¡uDA±Mªø¡vµ¥«Å§i¬°¤½¥ÎÅܼƤ§¡u¦r¨åª«¥ó¡v¡C
  5.     Â÷¾À˵ø '****¥[¤W³o­Ó¬Ý¬Ý
½Æ»s¥N½X
"1:1¡B1:2¡B1:3¡B1:4 ªº³¡¤À¥Ñ¥i¾Þ¾÷¼Æ°µ­Ó¥[Á`, ¦p¦ó¥[Á`??"
§Ú¦A¬Ý¬Ý¦p¦ó§@

Sub ¥X¶Ô¨ú®ø ¦³­×§ï
  1. Private Sub ¥X¶Ô¨ú®ø()
  2.     Dim St As String  ', i As Integer  'ÅܼƩw¸q As «Å§i«¬ºA
  3.     ¥X¶ÔAr(2) = xDay
  4.     St = ¥X¶ÔAr(2) & "," & ¥X¶ÔAr(3) & "," & ¥X¶ÔAr(4) & "," & ¥X¶ÔAr(5)
  5.     If ListBox1.ListIndex < 0 Or Not DA¥X¶Ô¸ê®Æ.exists(St) Then
  6.         If ListBox1.ListIndex < 0 Then
  7.             MsgBox "¨S¿ï¾Ü  ¥X¶Ô¤H­û !!!"
  8.         ElseIf Not DA¥X¶Ô¸ê®Æ.exists(St) Then
  9.             MsgBox St & "  ©|¥¼¥X¶Ô !!!"
  10.         End If
  11.         Exit Sub
  12.     Else
  13.         If MsgBox(St & "", vbYesNo, "¥X¶Ô¨ú®ø") = vbNo Then Exit Sub
  14.     End If
  15.     i = ListBox1.ListIndex
  16.     ListBox1.ListIndex = -1
  17.    DA¥X¶Ô¸ê®Æ(St).Delete (xlUp)
  18.    DA¥X¶Ô¸ê®Æ.Remove St
  19.     With Sheets("¥X¶Ô¸ê®Æ®w").[N5].Offset(i)
  20.             ListBox1.RowSource = ""
  21.             For i = 5 To 8
  22.                 .Cells(1, i) = "" '
  23.             Next
  24.             With .CurrentRegion
  25.                 ListBox1.RowSource = .Rows("2:" & .Rows.Count).Address(, , , 1, 1)
  26.             End With
  27.     End With
  28. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

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

¦^´_ 49# v03586
1:1¡B1:2¡B1:3¡B1:4 ªº³¡¤À¥Ñ¥i¾Þ¾÷¼Æ°µ­Ó¥[Á`
¦p¦ó¥[Á`??
ªþÀÉ   ·s¥[¤W Â÷¾¤H­ûªº½ð°£+ ¥X¶Ôªº¨ú®ø

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

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

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

¦^´_ 47# GBKEE


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

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD