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

[µo°Ý] ¨Ì¦X­p¸ê®Æ¦Û°Ê±Ô¼ú

[µo°Ý] ¨Ì¦X­p¸ê®Æ¦Û°Ê±Ô¼ú

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-1-17 15:32 ½s¿è

Àu¯ÊÂI¬Û©è«á¡AÀuÂI¹F12¦¸ªÌ¹Å¼ú2¦¸¡FÀuÂI¹F6¦¸ªÌ¹Å¼ú1¦¸¡A½Ð°Ý¦p¦ó®Ú¾ÚQÄæ¸ê®Æ¡A©ó¡u¥»®×¼úÃg«Øij¦W¥U¡v¨Ì¼úÃg¨Æ¥Ñ¤º®e¦Û°Ê±Ô¼ú¨Ã¨Ì°ª§C±Æ§Ç¡A·J¾ã«á¦p¡u¥»®×¼úÃg«Øij¦W¥U¡v

123.rar (18.12 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-1-18 08:20 ½s¿è

¦^´_ 1# h60327
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar(), xi As Integer, xB As Integer, Rng As Range
  4.     xi = 4
  5.     xB = 0
  6.     With Sheets("¤@²Õ")
  7.         Do While .Cells(xi, "B") <> ""            '°õ¦æ°j°éDo Loopªº±ø¥ó: BÄ檺Àx¦s®æ <> ""
  8.             If .Cells(xi, "Q") >= 6 Then          'QÄ檺Àx¦s®æ>=6
  9.                 ReDim Preserve Ar(1 To 6, xB)     '°ÊºA°}¦C: ReDim(½Õ¾ã)  ³Ì«á¤@ºû¤¸¯Àªº¼Æ¶q(xB)
  10.                 'Preserve ¿ï¾Ü©Ê¤Þ¼Æ¡C·í§ïÅܭ즳°}¦C³Ì«á¤@ºûªº¤j¤p®É¡A¤´µM«O¦³­ì¨Óªº¸ê®ÆªºÃöÁä¦r¡C
  11.                 Set Rng = Sheets("¤H¸ê").Cells.Find(.Cells(xi, "B")) 'Sheets("¤H¸ê")¤¤´M§ä .Cells(xi, "B") :
  12.                 Ar(1, xB) = Rng.Cells(1, 2)       '¼g¤J:©m¦WÄ橹¥k2Äæ
  13.                 Ar(2, xB) = Rng.Cells(1, 3)
  14.                 Ar(3, xB) = Rng                   '¼g¤J:©m¦WÄæ
  15.                 Ar(4, xB) = Rng.Cells(1, 4)
  16.                 Ar(5, xB) = "100¤U¥b¦~ÀuÂI¹F" & IIf(.Cells(xi, "Q") >= 12, "12", "6") & "¦¸¡A¨¯³Ò±o¤O"
  17.                 Ar(6, xB) = "¹Å¼ú" & IIf(.Cells(xi, "Q") >= 12, "¶L¦¸¡]4002¡^", "³ü¦¸¡]4001¡^")
  18.                 xB = xB + 1                       '³Ì«á¤@ºû¤¸¯Àªº¼Æ¶q(xB)
  19.             End If
  20.             xi = xi + 1                           '¨ÏBÄ檺Àx¦s®æ©¹¤U¤@¦C²¾°Ê
  21.         Loop
  22.     End With
  23.     If xB <> 0 Then Sheets("¥»®×¼úÃg«Øij¦W¥U").[a3].Resize(xB, 6) = Application.Transpose(Ar)
  24.     ' Transpose : Âà¸m(¤u§@ªí¨ç¼Æ)
  25. End Sub
½Æ»s¥N½X

TOP

§¹¥þ¾A¥Î,«D±`·PÁª©¥Dªº¨ó§U,¥i±¤¦Û¤vªºµ{«×ÁÙ¬O¤Ó®t,¹ï©óµ{¦¡½Xªº¤º®eÁÙ¬O¤£ª¾¨ä©Ò¥HµM

TOP

GBKEEª©¥D±z¯u¬O¤Ó¶K¤ß¤F,«D±`·PÁ±zªº»¡©ú

TOP

¦A½Ð±ÐGBKEEª©¥D,¦pªG¬O¦h¤u§@ªí®É¤S­n¦p¦óÅܤƩO?¦A¦¸·PÁ¤£§[«ü±Ð¤F.

123.rar (17.92 KB)

TOP

¦^´_ 5# h60327
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar(), xi As Integer, xB As Integer, Rng As Range, xSh As Variant
  4.     xB = 0                                            '°ÊºA°}¦C:  ³Ì«á¤@ºû¤¸¯Àªº¼Æ¶q(xB)
  5.     For Each xSh In Array("¤@²Õ", "¤G²Õ", "¤T²Õ")     '°}¦C: ¶·³B¸Ìªº¤u§@ªí¦WºÙ
  6.         With Sheets(xSh)                              '¥N¤J°}¦C¤¸¯À
  7.             xi = 4                                    '³]©w¤u§@ªí¶}©lªºÀx¦s®æªº¦C¼Æ
  8.             Do While .Cells(xi, "B") <> ""            '°õ¦æ°j°éDo Loopªº±ø¥ó: BÄ檺Àx¦s®æ <> ""
  9.                 If .Cells(xi, "Q") >= 6 Then          'QÄ檺Àx¦s®æ>=6
  10.                     ReDim Preserve Ar(1 To 6, xB)     '°ÊºA°}¦C: ReDim(½Õ¾ã)  ³Ì«á¤@ºû¤¸¯Àªº¼Æ¶q(xB)
  11.                     'Preserve ¿ï¾Ü©Ê¤Þ¼Æ¡C·í§ïÅܭ즳°}¦C³Ì«á¤@ºûªº¤j¤p®É¡A¤´µM«O¦³­ì¨Óªº¸ê®ÆªºÃöÁä¦r¡C
  12.                     Set Rng = Sheets("¤H¸ê").Cells.Find(.Cells(xi, "B")) 'Sheets("¤H¸ê")¤¤´M§ä .Cells(xi, "B") :
  13.                     Ar(1, xB) = Rng.Cells(1, 2)       '¼g¤J:©m¦WÄ橹¥k2Äæ
  14.                     Ar(2, xB) = Rng.Cells(1, 3)
  15.                     Ar(3, xB) = Rng                   '¼g¤J:©m¦WÄæ
  16.                     Ar(4, xB) = Rng.Cells(1, 4)
  17.                     Ar(5, xB) = "100¤U¥b¦~ÀuÂI¹F" & IIf(.Cells(xi, "Q") >= 12, "12", "6") & "¦¸¡A¨¯³Ò±o¤O"
  18.                     Ar(6, xB) = "¹Å¼ú" & IIf(.Cells(xi, "Q") >= 12, "¶L¦¸¡]4002¡^", "³ü¦¸¡]4001¡^")
  19.                     xB = xB + 1                       '³Ì«á¤@ºû¤¸¯Àªº¼Æ¶q(xB)
  20.                 End If
  21.                 xi = xi + 1                           '¨ÏBÄ檺Àx¦s®æ©¹¤U¤@¦C²¾°Ê
  22.             Loop
  23.         End With
  24.     Next
  25.     If xB <> 0 Then                                   '°ÊºA°}¦C¦³¤¸¯À¦s¦b
  26.         With Sheets("¥»®×¼úÃg«Øij¦W¥U")
  27.             .Range(.[a3], .[a3].End(xlDown)).Resize(, 6) = ""          '²M°£­ì¦³¤º®e
  28.             .[a3].Resize(xB, 6) = Application.Transpose(Ar)            ' Transpose : Âà¸m(¤u§@ªí¨ç¼Æ)
  29.         End With
  30.         MsgBox "²Å¦Xªº¸ê®Æ ¦@ " & xB & "µ§"
  31.     Else
  32.         MsgBox "¬dµL ²Å¦Xªº¸ê®Æ"
  33.     End If
  34. End Sub
½Æ»s¥N½X

TOP

·PÁª©¥Dªº¨ó§U¡A¨Ã¹w¯¬¦U¦ìª©¥D­Ì·s¬K´r§Ö¡A¨Î¸`§Ö¼Ö¡E

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD