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

[µo°Ý] ¼W¥[±N·í´Á¶}¼ú¸¹½X¼Ð¥Ü©³¦âªº»yªk¡C

[µo°Ý] ¼W¥[±N·í´Á¶}¼ú¸¹½X¼Ð¥Ü©³¦âªº»yªk¡C

            
·í¸ê®Æ§¨¤ºªºÀɮצWºÙ¤é´Á=DATA!AÄæ¤é´Á®É¡A«h±N¸ÓÀɮפº¤u§@ªíªºB$1¡JAX$1¦³¥X²{= DATA!D¡JJªº¼Æ¦r¼Ð¥Ü©³¦â¡J
= D¡JI ¼Ð¥Ü6¸¹©³¦â¡F = J¼Ð¥Ü38¸¹©³¦â¡C
¦pªGÀɮצWºÙ¤é´Á=DATA!AÄæ¤é´Á¡A¦ýDATA!·í´ÁªºD¡JJ¬°ªÅ¥Õ®É¡A«h¸ÓÀɮפº¤u§@ªíªºB$1¡JAX$1¤£¼Ð¥Ü©³¦â¡C

½Ð°Ý¡JVBA»yªk­n¦p¦ó¼W¼g?
ÁÂÁÂÀ°¦£!

³Æµù¡J
¥Dµ{¦¡ÀɬO§Ú¸`¿ý¥»½×¾Â¤º¦U¦ì¤j¤jªº»yªk¡A·q½Ð¥]²[¡C

2019-0531.rar (90.15 KB)

¦^´_ 1# ziv976688
¥Dµ{¦¡ÀÉ_Test.rar (60.08 KB)
¦³¸`¿ý­ã´£ª©¥Dªºµ{¦¡½X¡A¨Ã±N¨ä©ñ¸m :
¦b¦C6~¦C8´¡¤J
Dim T$, V%
Dim BK As Workbook, xB As Workbook, xS As Worksheet, xF As Range
Set BK = ThisWorkbook

¦b¦C29~¦C40´¡¤J
    '-§ì¤é´Á,¸¹½X¶ñ¶À¦â---------------------------------
         Set xF = Nothing
    T = Format(Left(Right(A, 15), 10), "yyyy/m/d") & ChrW(160) '·j´MÀɮפé´Á
    Set xF = BK.Sheets("DATA").Range("A:A").Find(T, Lookat:=xlPart) '·j´M=AÄæ¤é´Á
    If Not xF Is Nothing Then
       For V = 4 To 10
        If xF(1, V) <> "" Then
           xS.[B1:AX1].Find(xF(1, V), Lookat:=xlWhole).Interior.ColorIndex = IIf(V = 10, 38, 6) 'Åã¥Ü=AÄæ¤é´Á+1¦Cªº¸¹½X
           xB.Sheets(1).[B1:AX1].Find(xF(1, V), Lookat:=xlWhole).Interior.ColorIndex = IIf(V = 10, 38, 6)
        End If
       Next V
    End If

¦ý°õ¦æ «á²£¥Í°»¿ù¡A¤£ª¾­þ¸Ì¤£¹ï?
½Ð¦U¦ì¤j¤j«ü¥¿!
ÁÂÁ¦U¦ìªºÀ°¦£!

TOP

¦^´_ 2# ziv976688


µ{¦¡¥]§t¨ä¥¦¥\¯à, ¨S¿ìªk³æ¿W¥h¼g³o­Ó³¡¥÷~~
_ÁÙ­n¥h¸ÑŪ«e­±¤Î«á­±ªºµ{¦¡, §ó¨S¿ìªk´ú¸Õ

TOP

¦^´_ 3# ­ã´£³¡ªL
­ã´£ª©¥D :
­«·s´£¨Ñ½d¨Ò  :    2019-0603.rar (90.75 KB)
¦C5~¦C7©M¦C28~¦C38 ¤w¸gÂI¬°µù¸Ñ¤£°õ¦æ¡C
¸Û½ÐÀ°¦£©M«ü¾É!ÁÂÁ§A!

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2019-6-4 15:02 ½s¿è

1) ±NCSVÀɲΤ@©ñ¦b [CSV­ìÀÉ]¸ê®Æ§¨¤º, µ{¦¡§¹¦¨¤£·|§R°£­ìÀÉ(¥i¦Û¦æ¤â°Ê§R)
2) °µ¤@­Ó¼Ë¦¡ªí Tmp(1), ©Ò¦³»Ý­nªº®æ¦¡¦b³o±iªí¹w¥ý³]©w, csvÀÉ´N¥Î³oªíªí¨Ó½Æ»s®æ¦¡
3) ©Ò¦³­n³B²zªº¬yµ{, ¥Î¤lµ{¦¡©I¥s, §K¥h¤¾ªøªºµ{¦¡½X, ¸û¦n¾\Ū, ¤]¥iÅý¨ä¥¦»Ý­nªºµ{¦¡¤Þ¥Î
4) §Ú¥u¯àÀ°¨ì³o¸Ì, ²´·ú¤Ó¦Y¤O¤F

2019-0531_v1.rar (91.77 KB)
=========================

TOP

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

­ã´£ª©¥D :
ÁÂÁ§AªºÀ°¦£

TOP

¦^´_ 5# ­ã´£³¡ªL
2019-0605.rar (66.92 KB)
­ã´£ª©¥D :
¤£¦n·N«ä¡A¦]¬°5¼Óªº¸ÑµªÀÉ¡AcsvÀÉÂàxlsÀÉ­n¥Î¤â°Ê(¨C´ÁªºcsvÀɦ³«Ü¦h­Ó)¡A¦³ÂI¤£«K§Q(¦pªG§Ú¨S¦³»~¸Ñ¾Þ§@µ{§Çªº¸Ü)¡A¦Ó¥B¤Ó°ª²`ªºµ{¦¡½X§Ú¦Û¤v¤£·|§ï¡A
©Ò¥H¦pªG¥i¥Hªº¸Ü¡A§Æ±æ§A¥u­n­×§ï¦C5~¦C7©M¦C28~¦C38 (¤w¸gÂI¬°µù¸Ñ¤£°õ¦æªºµ{¦¡½X)¡AÅý¥¦¯à°õ¦æ¼Ð¥Ü©³¦âªº¥\¯à´N¥i¥H¤F¡C
ÁÂÁ§A!

TOP

¦^´_ 7# ziv976688


1) ±NCSVÀɲΤ@©ñ¦b [CSV­ìÀÉ]¸ê®Æ§¨¤º, µ{¦¡§¹¦¨¤£·|§R°£­ìÀÉ(¥i¦Û¦æ¤â°Ê§R)

±Nªºcsv§R±¼, ±N·sªºcsv©ñ¶i¨Ó,
µ{¦¡¬O¦Û°ÊÂনxls

TOP

¦^´_ 8# ­ã´£³¡ªL
­ã´£ª©¥D :
¤£¦n·N«ä¡A­ì¨Ó¸ê®Æ§¨ªº¦WºÙ­n©R¦W[CSV­ìÀÉ]¤~¥i°õ¦æ¡C
5¼Óªº¸ÑµªÀÉ°õ¦æ¨S¦³°ÝÃD¤F!ÁÂÁ±z^^

¦pªG¥i¥Hªº¸Ü¡AÁÙ¬O½Ð§A¥H7¼Óªº½d¨Ò­×§ï¦C5~¦C7©M¦C28~¦C38¡A¨Ï¨ä¯à°õ¦æ¡A
³o¼Ë¸U¤@¥H«á¦³¤°»ò¤pÅÜ°Ê¡A§Ú¤]¤ñ¸û·|¦Û¦æ­×§ï¡C
¦]¬°¦pªG¥H«á¦³¨ä¥¦ªº¤pÅÜ°Ê¡A¥H5¼Óªº¸ÑµªÀɧڬJ¤£·|¦Û¤v­×§ï¡A¤]¤£¦n·N«ä¦A»¡¥X¤f½Ð±z­×§ï^^"
ÁÂÁ±z!

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-6-7 04:43 ½s¿è

¦^´_ 8# ­ã´£³¡ªL
­ã´£ª©¥D :
¥H7¼Óªº½d¨Ò­×§ï¦C5~¦C7©M¦C28~¦C38ªº°ÝÃD¤w§¹¥þ¸Ñ¨M¡C
ÁÂÁ§AªºÀ°¦£

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD