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

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

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

¦^´_ 39# GBKEE


    Sorry....¸ê½è¸û®t!! ­è¤~µo²{ ¤w­×¥¿!!! ¤w¸Ñ¨M³o­Ó°ÝÃD  !!! ·PÁª©¤j     ¾ã¦X­¶­±, ¯uªºÃø¦³ÅÞ¿è¥h·Q, §Ú¦A«ä¦Ò¹Á¸Õ¦p¦ó§e²{¦n¤F....
          §Ú¥Ø«e¥i¥H·Qªº¨ìªº´N¬O°ò¥»¸ê®Æ µµ¦â®Ø®Ø ¥Î¨ç¼Æ µ¥©ó ¡y¤H­û¦^³ø¡z¸ê®Æªíªº¹ïÀ³Äæ¦ì
           ÂŦâ®Ø®Ø¥Î½Æ»s¡y¤H­û¦^³ø¡z¸ê®Æªíªº¹ïÀ³¤é´Á¶K¹L¥h...

                  °ß¿W¤£ª¾¹D¥Î¤°»ò¥h§PÂ_¤W­±¤é´Á¥h­pºâ¤H¾÷¤ñªº¼Æ¶q( ¬õ¦â®Ø®Ø ) ,
                ¥uª¾¹D­n±q¥X¶Ô¸ê®Æ®w¼´¥X¶Ô¸ê®Æ®w¤¤, ¾Þ¾÷¼Æ 1, 2, 3 , 4 ¥xªº¦U¦³´X¦ì....
             ²¦³º¶È»Ý­n§e²{¡y¤»¡z¡y¤é¡z¡y¤@¡z¡y¤G¡z
               
           By the way ....   
  
Q1.png
­è­è­n°µ³Ì«áªºCheck , µo²{¥[¤J·s¦¨­û , ¬ðµM¤£¯à¨Ï¥Î¤F, ¸õ¥X³o­ÓError code, ¤£ª¾¹D¬O¥X¤F¤°»ò°ÝÃD
  1. Private Sub UserForm_Initialize()
  2.   
  3.    ¯Z§O.List = Da_Data(1).keys
  4.    ±Mªø.List = Da_Data(4).keys
  5.     ¨ì¾¤é = Date
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 41# v03586


    §Úµy·L¾ã²z¤F¤@¤U¦U¦ì¤j¤jªºµ{¦¡¡A¤j¦h³£¥i¥Î¤F¡C
20160815 ¤H­û¤H¤O¦^³øªí V16.rar (484.99 KB)

TOP

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


µ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??
  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

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-8-18 15:55 ½s¿è

¦^´_ 43# v03586
¦^´_ 35# GBKEE
§ÚÀ³¥Î GBKEE ª©¤j³Ì«áªºªºª©¥»µy¥[¾ã²z¡A
¥ç¿Ä¦X¤F jeffrey628litw ¤j¤jªº(·s¼W¡B­×§ïªí³æ)¡F
¶¶«K±N§Aªº´£°Ý¤@¨Ö¤©¥H³B²z¡A¨Ã¥[´î­×¹¢ª©­±¡C
(·s¼W¡B­×§ïªí³æ¤º¤§¤º®e¤Îª©­±µy¤©½Õ¾ã)
ªñ´Á (¦]­Ó¤H¨p¤H¦]¯À) ¤º¦pÁÙ¤´¦³°ÝÃD¡A
§A´N¦A½Ð¯q GBKEE ª©¤j §a¡I
¤H­û¤H¤O¦^³øªí(GBKEE).rar (468.92 KB)

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¿ù???


TOP

¦^´_ 45# v03586
½Ð°Ý§A¨º¡y¥X¶Ô¸ê®Æ®w¡z¤ºªº©Ò¦³¸ê®Æ¬O³z¹L
¦óºØ¤è¦¡²£¥Í (·s¼W) ¥X¨Óªº¡H ¤H¤u§@·~¤@¤@¿é¤J¡H
¤@¯ë¦b­û¤uÂ÷¾«e©Ò¦³¤w¦s¦b¤§¡y¥X¶Ô¸ê®Æ®w¡z
¤º¸ê®Æ¬O¤£¤¹³\¦A¤©¥H²§°Êªº¡A¥B¨ä¤§«e¤w¥X¶Ô
¤§¨Æ¹ê¬O¤£¥i¤©¥H§_©w¡B§R°£ªº¡C
°ò¥»¤W¡A½u¤W´£°Ý®É¦^ÂЪ̥u¬OºÉ¤O¨Ì§Aªº»Ý¨D­±
µ¹¤©¸û¥¿­± (¤Þ¾É¦¡) ªº¦^À³¡A¦Ó«D¥þµMÀ°§A³Ð«Ø·sªº§½­±¡C
´£°Ý¤WÀ³¦³ªº§G§½»PÅ޿訫¦V¬O´£°Ý¤H­n¨ã³Æ´£¥Xªº¡A
¦^ÂЪ̥u¬O§U§A¸Ñ´b¡B¾É¤J¡B¥H¤Î¨Ç³\¦³·Nªº¹ê½è´£¥Ü¡C

TOP

¦^´_ 46# c_c_lai
¤â³N«á­n¦h¥ð®§.

    ¦^´_ 45# v03586
´£°Ý¤WÀ³¦³ªº§G§½»PÅ޿訫¦V¬O´£°Ý¤H­n¨ã³Æ´£¥Xªº¡A
¦^ÂЪ̥u¬O§U§A¸Ñ´b¡B¾É¤J¡B¥H¤Î¨Ç³\¦³·Nªº¹ê½è´£¥Ü

¨º¸Õ¸Õ¬Ý
  1. Private Sub UserForm_Initialize()
  2.     ³]©w
  3.     ¤H¤O¸ê®ÆŪ¨ú
  4.     Â÷¾À˵ø '****¥[¤W³o­Ó¬Ý¬Ý
  5.     ¯Z§O.List = DA¯Z§O.keys
  6.     ©µªø¥[¯Z.List = DA¯Z§O.keys
  7.     ¥i¾Þ¾÷¼Æ.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
  8.     V = True
  9.     ¯Z§O.ListIndex = 0
  10.     ¦~.List = Array(Year(Date) - 2, Year(Date) - 1, Year(Date))  '3¦~¤ºªº½d³ò
  11.     ¤ë.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
  12.     ¦~.ListIndex = ¦~.ListCount - 1
  13.     ¤ë.ListIndex = Month(Date) - 1
  14.     ¤é.ListIndex = Day(Date) - 1
  15. End Sub
½Æ»s¥N½X
  1. Sub Â÷¾À˵ø()
  2.     Dim Rng As Range, i As Long, St   As String
  3.     With Sheets("¥X¶Ô¸ê®Æ®w")
  4.         For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
  5.             St = .Cells(i, "D")
  6.             If DA¤u¸¹.EXiSTS(St) = False Then
  7.                 If Rng Is Nothing Then
  8.                     Set Rng = .Cells(i, "D").EntireRow
  9.                 Else
  10.                     Set Rng = Union(.Cells(i, "D").EntireRow, Rng)
  11.                 End If
  12.             End If
  13.         Next
  14.     End With
  15.     If Not Rng Is Nothing Then Rng.Delete
  16.     Set Rng = Nothing
  17.     With Sheets("¤H­û¦^³ø")
  18.         For i = 63 To .Range("A" & Rows.Count).End(xlUp).Row
  19.             St = .Cells(i, "D")
  20.             If DA¤u¸¹.EXiSTS(St) = False Then
  21.                 If Rng Is Nothing Then
  22.                     Set Rng = .Cells(i, "D").EntireRow
  23.                 Else
  24.                     Set Rng = Union(.Cells(i, "D").EntireRow, Rng)
  25.                 End If
  26.             End If
  27.         Next
  28.     End With
  29.     If Not Rng Is Nothing Then Rng.Delete
  30. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

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¬Û¹ï­×§ï­þÃä



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







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

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

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD