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

[µo°Ý] ¸ó¤u§@ªí¨Ã«ü©wÀx¦s®æ¦b©¹¤U°j°é¬d¸ß

[µo°Ý] ¸ó¤u§@ªí¨Ã«ü©wÀx¦s®æ¦b©¹¤U°j°é¬d¸ß

°ÝÃD1:        ¤u§@ªí1(A,B,C,D,E,F)Ä椤,¥Ñ¼Æ¶q(D)Ä椺Àx¦s®æ§PÂ_¨Ì¾Ú±a¥X¸ê®ÆÂà´«¨ì¤u§@ªí3(A,B,C,D,E,F)Äæ,(¨Ò¦p¤u§@ªí3)¨Ì§Ç°j°é©¹¤U±Æ¦C                                                                                                               
                ¨ä¤u§@ªí1¤¤¦WºÙ(A)Äæ¬O¤U©Ô²M³æ,½s¸¹(B)Äæ,°Ó«~(C)Äæ,»ù®æ(E)Äæ¬O©T©w¸ê®Æ,¼Æ¶q(D)Äæ¬O¤H¤u¶ñ¤J,Á`»ù(F)Äæ¬O(D2)*(E2)                                                                                                               
        °ÝÃD2:        ¦pÂà´«¨ì¤u§@ªí2¥i«ü©wÀx¦s®æ?·í¤u§@ªí1¼Æ¶q(D)Äæ¥Ñ¤H¤u¶ñ¤J«á¥Î¥¨¶°«ö§áÂà´«¨ì¤u§@ªí2                                                                                                               
                ¨Ò¦p:¤u§@ªí1(A2)Âà¤u§@ªí2(B2),¤u§@ªí1(B2)Âà¤u§@ªí2(B6),¤u§@ªí1(C2)Âà¤u§@ªí2(C6),                                                                                                                    
                         ¤u§@ªí1(D2)Âà¤u§@ªí2(D6),¤u§@ªí1(E2)Âà¤u§@ªí2(E6),¤u§@ªí1(F2)Âà¤u§@ªí2(F6),                                                                                                               
                ¨ä¤¤¤u§@ªí1(A2)¥u±a¥X1¦¸,¨ä¾l(B2:B12,C2:C12,D2:D12,E2:E12,F2:F12)¨Ì§Ç°j°é©¹¤U±Æ¦C                                                                                                               
°ÝÃD1»P°ÝÃD2:                ¬Ò¦]¬O¥Ñ¼Æ¶q(D)Ä椺Àx¦s®æ¤¤§@¬°§PÂ_¨Ì¾Ú±a¥X½s¸¹(B)Äæ,°Ó«~(C)Äæ,»ù®æ(E)Äæ,Á`»ù(F)Äæ,©Ò¥H¼Æ¶q(D)Äæ¬O¤£½T©w­þ¦CÀx¦s®æ¦³¼Æ¦r                                                                                                               
                ·í¼Æ¶q(D)Äæ¬Y¤@¦CÀx¦s®æ¦³¼Æ¦r¥X²{(©ÎÅܤƲ§°Ê),¤]´N¬O¼Æ¶q(D)Äæ¬Y¤@¦C¤¤¥X²{0.1¨ì99.9(©Î¬O¦³ÅܤƲ§°Ê)®É¬J¥iIJµo±a¥X(B,C,D,E,F)Äæ                                                                                                               
                ¨S¥X²{¼Æ¦r(©Î¨SÅܤƲ§°Ê)ªºÀx¦s®æ´N¤£¥Î±a¥X¦AÄ~Äò°j°é©¹¤U¬d¸ß¦Ü³Ì«á¤@¦C

  1. Sub Âà¥X¸ê®Æ()
  2. Dim R&, xR As Range, xE As Range, N&
  3. If [¤u§@ªí1!A2] = "" Then MsgBox "**©|¥¼¶ñ¤J¦WºÙ! ": Exit Sub
  4. R = [¤u§@ªí1!B65536].End(xlUp).Row - 1
  5. If Application.Sum([¤u§@ªí1!D2].Resize(R)) = 0 Then
  6.    MsgBox "**©|¥¼¶ñ¤J¼Æ¶q! ": Exit Sub
  7. End If
  8. [¤u§@ªí2!B6:F200].ClearContents
  9. [¤u§@ªí2!B2] = [¤u§@ªí1!A2]
  10. For Each xR In [¤u§@ªí1!B2].Resize(R)
  11.     If Val(xR(1, 3)) = 0 Then GoTo 101
  12.     N = N + 1
  13.     [¤u§@ªí2!B5:F5].Offset(N, 0) = xR.Resize(, 5).Value
  14.     '----------------------------
  15.     Set xE = [¤u§@ªí3!D65536].End(xlUp)(2, -1)
  16.     If N = 1 Then xE(1, 0) = [¤u§@ªí1!A2]
  17.     xE.Resize(, 5) = xR.Resize(, 5).Value
  18. 101: Next
  19. With [¤u§@ªí1!D2].Resize(R)
  20.      .Copy [¤u§@ªí1!H2] '¼Æ¶q¶K¦Ü³Æ¦s°Ï, ¥H¨Ñ°Ñ¦Ò
  21.      .ClearContents '²MªÅ¼Æ¶q, «Ý¤U¦¸­«·s¿é¤J
  22. End With
  23. [¤u§@ªí1!A2] = "" '²MªÅ¦WºÙ, «Ý¤U¦¸­«·s¿é¤J
  24. [¤u§@ªí1!i2] = Date: [¤u§@ªí1!i3] = Time '°O¿ýÂà¥X¤é´Á®É¶¡
  25. End Sub
½Æ»s¥N½X
Xl0000100.rar (16.61 KB)


'=========================

TOP

ÁÂÁ­ã¤j
³o¨Ç¥¿¬O§Ú·Q­n°µªk.§Ú¥Î2­Ó¤ë®É¶¡ºô¸ô½m²ß§@ªk·Q¤£¨ì­ã¤j¦b´X¤p®É¤º¸ÑªR¥X,¯u¬O°ª¤â,°ª¤â,°ª°ª¤âÁÂÁ§A
¦]§Ú¬O(60)¶i¤JExcel2­Ó¦h¤ë,½Ð®e§Ú¤@¤@¤À¸Ñ.¯u¬OÁÂÁ§A

TOP

¦^´_ 2# ­ã´£³¡ªL

­ã¤j¥ý¶i¦Ñ®v¤Î¦U¦ì¥ý¶i«e½ú,¤£­p¥t¶Þ¦h¤è«ü¾É"ÁÂÁÂ"                                                                                                                               
¦p¤WÃD¦³¦h¤è­±²z¸ÑÀò¯q­ê²L,¦ý¥u²z¸Ñ¥Ö¤ò.¥¼²`¤J­ì²z.Àµ½Ð¦A®e¦h¥[§V¤O.§V¤O¾Ç²ß±´°Q,(¨Ò¦pDim R&, xR As Range, xE As Range, N&³o¨Ç¥X¦Ü­þ¸Ì.¨ç·N¬°¦ó                                                                                                                               
¤µ¦p¤WÃD¤¤¦A·s¼W¶µ¥Ø.½Ð¦A½ç±Ð"ÁÂÁÂ"

TOP

¦^´_ 4# BV7BW


    ©êºp.¤W¶Ç¸ê®Æ¦³»~.¦A¸É²î1¦¸ ©êºp

TOP

¦^´_ 5# BV7BW


Ãþ¦ü"¶i/¾P³f"³æ§a!
¶i¾P¦s>²o¯A¨ì[·s¼W-¬d¸ß-§ó§ï-§R°£]°ÝÃD,
³o¶O®É¯Ó¤O, ¹êµLªk³o¼Ë³v¨B¸ò©«,
¥i¦Û¦æ¥ýºô·j§ä¬Ý¬Ý¦³¨S²{¦¨ªºÀÉ®×½d¨Ò©Îµ{¦¡½X°Ñ¦Ò!!!

Dim ~~~~  ¥u¬O©w¸q[ÅܼÆ], ¥i¬Ývbe»¡©úÀÉ, ©ÎG·jÃöÁä¦r__excel vba ÅܼÆ

TOP

¦^´_ 6# ­ã´£³¡ªL


   ·PÁ­ã¤j¥ý¶i.«ü¾É
   §Ú¦b´Â³o¤è­±§V¤O±´°Q.ÁÂÁ§A
   ¦p¦³¤£«K¤§³B.±æ½Ð½Ì¸Ñ...ÁÂÁÂ

TOP

¦^´_ 6# ­ã´£³¡ªL


    ­×§ï«áª©¥»¤§¼W¦C³¡¤À
     [¤u§@ªí6!G2] = [¤u§@ªí1!G2]
     [¤u§@ªí6!H2] = [¤u§@ªí1!H2]
     [¤u§@ªí6!I2] = [¤u§@ªí1!I2]
     [¤u§@ªí6!J2] = Date '°O¿ýÂà¥X¤é´Á®É¶¡
    [¤u§@ªí1!I2] = Range("I2") + 1
Copy [¤u§@ªí1!J2] '¼Æ¶q¶K¦Ü³Æ¦s°Ï, ¥H¨Ñ°Ñ¦Ò
¤£ª¾±q­þ­×§ï¬°©¹¤U±Æ¦C
±æ½Ð­ã¤j³Ò¤ß«ü±Ð
¦p»X½ç±Ð,¹ê·P¼w´f

TOP

¦^´_ 8# BV7BW


¬Ý¤£À´·N¹Ï~~
¦Ó¥B¶i¾P³æÀ³¤£¥i¯à¬O¦p¦¹Â²³æªº®æ¦¡,
°Ó«~¶µ¥Ø­Y«Ü¦h, ³oºØ®æ¦¡´N¤£°÷¨Ï¥Î,
­Y¦A¦Ò¼{«áÄòªº²Î­p(¨Ò¦p:¤ëµ²½Ð´Ú), ¸ê®Æªí¤]¤£¯à³o¼Ë³]­p!!!
================================
¤]³\§A¥i¯à¥u¬O·Q¾Ç²ßVBA, ¦ý¤@¤U´N§ä³oºØÃD¥Ø, ±Ð­Ó¤@¦~¥b¸ü¬O¶]¤£±¼ªº,
ÁÙ¬O«Øij¥h§ä§ä²{¦¨ªº©«¤l¬Ý¬Ý, ³Ì¦n¤]¥h¶RVBA°ò¦®ÑÄy,
§â°ò¥»¥\¥´¦n, ¦Ü¤Ö±o¯à¬ÝÀ´§O¤H¼gªºµ{¦¡½X!

TOP

³o¬O­Ó²©öªk, ¥u¦³¦s¤J, ¨S¦³§ó§ï¤Î§R°£,
Áö¬O²³æ°µªk, ÁÙ¬O­nªá¤j¥b¤Ñ¼gµ{¦¡¤Î³]­pªí®æ:
X0066.rar (24.74 KB)

µ¥§¹¥þ¬Ý±oÀ´¸Ì­±ªºµ{¦¡½X, ¦³°ÝÃD¦A»¡~~

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD