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

[µo°Ý] VBA ½Æ»sdata°ÝÃD(¸óSheet)

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

ª©¥D§A¦n,
´ú¸Õ«á, ¥i¥H¸õ¹L«ü©wÄæ¦ì, FQC M Äæ¦ì ¶]¨ì«á­±¤F, ªþ¤W¹Ï¤ù»Pµ{¦¡½X


Sample.zip (52.8 KB)

TOP

¦^´_ 21# dea172


¤£¬OÄæ¦ì³£¬O©T©wªº???
¹ê¦b¨S®É¶¡¦A¥h­×§ïµ{¦¡,
µ¥¨ä¥Lª©¥D¨ÓÀ°¦£§a!

TOP

³Ì«á¤@­Óª©¥»¡A¥H¢ÙÄæ¥h±±¨î¨ú¢´®æ©Î¢±®æ©Î±Æ°£¤£¨ú¡G
IPQC-FQC-3.rar (238.5 KB)

TOP

¦^´_ 15# dea172

1.¨S¦³­«½Æ§å¸¹½T»{,
2.¨C¶Ç¤@¦¸¸ê®Æ, ¨Ï¥ÎªÌÁٻݭn¶}±ÒIPQC ÀÉ®×, ¬O§_¦³§ó¤è«K¤è¦¡, ÁÂÁÂ!
µù: IPQC & FQC Àɮ׳£¬O©ñ¦P¤@¸ê®Æ§¨¤U

1.¤£¬O¨C­Ó IPQC ¹ïÀ³¤@­Ó FQC  ¦ó¨Ó­«½Æ§å¸¹?·íµM¤]¤£·|¦³¸ê®Æ²Ö¥[ªº°ÝÃD
2.§Ú14#µ{¦¡¬O¤ñ¹ï¨â­Ó¬Û¦P«eºóÀɦWªºIPQC & FQC
   ­Y¬O§A¤w¸g¶}±Ò¨ä¤¤¬Y¤@Àɮפ~°µ¤ñ¹ï¡A¨º´N½Ð²M·¡±Ô­z§Aªº§@·~¬yµ{
   ¤~ª¾¹D­n¦p¦ó¥h²¤Æ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

ª©¥D§A¦n,
¦A¦¸½Ð°Ý¤@­Ó°ÝÃD, ­Y·Q±NIPQC & FQC ¸ê®Æ©ñ¸m¤£¦P¸ô®|¤U, ¬O§_¥i¹ê²{¦¹¥\¯à?  ÁÂÁÂ

TOP

¦^´_ 25# dea172


If xB Is Nothing Then Set xB = Workbooks.Open("¦Û¦æ¿é¤J¸ô®|" & "\" & xN)

TOP

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

ª©¥D§A¦n,
ÁÂÁª©¥D, ´ú¸Õ¥i¥H, ­ì¨Ó³o»ò²³æ.

TOP

¦^´_  dea172

For i = 0 To UBound(Arr) - 1
    If Arr(i + 1, 1) = "" Then
       '³o¸ÌªÅ¥Õ§Y¥i ...
­ã´£³¡ªL µoªí©ó 2018-4-19 16:37


ª©¥D§A¦n,
­Y§Ú·Q§R°£A6Äæ¦ì(A4), A7~A17 ¥þ³¡©¹¤W¤@®æ, ·Q¤F¦n¤[, ¦ý©l²×µLªk­×§ï¦nµ{¦¡½X, ¬O§_¥i¥HÀ°¦£­×§ï, ÁÂÁÂ!

Test.zip (65.64 KB)

TOP

¦^´_ 28# dea172


§R±¼A4, Âà¦sÀɸê®ÆªºÄæ¦ì¶¶§Ç´N¹ï¤£¤W¤F,
¤£À´~~

TOP

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

ª©¥D§A¦n,
´N¬O§Ú·Q±NA4Äæ¦ì¾ã­Ó¸ê®Æ§R°£, «á­±Äæ¦ì©¹¤W²¾°Ê¤@®æ(¦p¤U¹Ï)
Âà¦sÀɸê®ÆªºÄæ¦ì¶¶§Ç´N¹ï¤£¤W¤F, ¬O¨S¿ù, ©Ò¥H­n­×§ïcode, ¥u¬O¤£ª¾¹D¦p¦ó­×§ïcode

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD