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

[µo°Ý] ½Ð­×¥¿µ{¦¡½Xªº¿ù»~¡CÁÂÁ !

[µo°Ý] ½Ð­×¥¿µ{¦¡½Xªº¿ù»~¡CÁÂÁ !

¥»©«³Ì«á¥Ñ papaya ©ó 2019-12-22 08:32 ½s¿è

´ú¸Õ¥ÎÀÉ : 2019-1222.rar (149.71 KB)
'-§ì¤é´Á,¸¹½X¶ñ¶À¦â©M¦rÃC---------------------------------  ¦C641
    Set BK = ThisWorkbook         '¦C642'
         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
       For Each AD In Array("B77:AX77", "B83:AX83", "B88:K97", "Q88:Z97", "BB88:BK97", "BO88:BX97")
           If xF(2, V) <> "" Then
              Set FF = Range(AD & "").Find(xF(2, V), Lookat:=xlWhole)
              If Not FF Is Nothing Then FF.Interior.ColorIndex = IIf(V = 10, 8, 6)
           End If
       Next
   Next V                        '¦C654
End If                           '¦C655

¤W¦Cªºµ{¦¡½X¬Oª½±µ½Æ»s¦C373~¦C387ªºµ{¦¡½X¶K¤W¡A¦ý°õ¦æ«á¡ASheets(1)¤u§@ªíªº¼Ð¥Üªº©³¦â¥þ¹ï¡F
¥i¬O¡A"«e¤T¤p"¤u§@ªíªº¼Ð¥Ü¡J
¦³ªº¥þ¹ï(EX¡J49_§À¼Æ±Æ§Ç-±Æ¼ÆÁ`Äý-(2019-11-01)-OK)
¦³ªº·|²£¥Í¿ù»~ªº©³¦â¼Ð¥Ü(49_§À¼Æ±Æ§Ç-±Æ¼ÆÁ`Äý-(2019-11-22)-NG)¡F(49_§À¼Æ±Æ§Ç-±Æ¼ÆÁ`Äý-(2019-11-26)-NG)

ÅãµMª½±µ½Æ»sSheets(1)¤u§@ªíªº¦C373~¦C387µ{¦¡½X®M¥Î¨ì"«e¤T¤p"¤u§@ªí¬O¿ù»~ªºÁ|±¹¡C
½Ð°Ý¡J¦C642~¦C655ªºµ{¦¡½X­n¦p¦ó­×¥¿ ?
ÁÂÁÂ !

¥»©«³Ì«á¥Ñ papaya ©ó 2019-12-22 11:25 ½s¿è

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

ª©¥D : ±z¦n!
¤£¦n·N«ä¡A¥´ÂZ±zªº°²¤é¥ð®§®É¶¡¡C
§Ú¦A·Q¿ìªk§@²µu¥B¦³®Äªº»¡©ú!
ÁÂÁ±z

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2019-12-22 12:37 ½s¿è

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

ª©¥D :±z¦n!
¾ã²z¦p¤U__
1_Sheets(1)©M"«e3¤p!"ªº¤º®e³£¬Û¦P¡A¥u¬OSheets(1)¤½¦¡³£¬O¤ñ¤j¡A"«e3¤p"¤u§@ªíªº¤½¦¡³£¬O¤ñ¤p¡C

2_¦C374~¦C387¬O=
·íSheets(1)ªº"B77:AX77", "B83:AX83", "B88:K97", "Q88:Z97", "BB88:BK97", "BO88:BX97"µ¥Àx¦s®æªº¼Æ¦r¦³Åã¥Ü¦b«ü©wªº¤é´Áªº¤U1´Á®É¡A«h±N¸Ó¼Æ¦r¼Ð¥Ü¶À¦â©Î²LÂŦâ¡C

3_¦C641~¦C654¬O=
·í"«e3¤p!"ªº"B77:AX77", "B83:AX83", "B88:K97", "Q88:Z97", "BB88:BK97", "BO88:BX97"µ¥Àx¦s®æªº¼Æ¦r¦³Åã¥Ü¦b«ü©wªº¤é´Áªº¤U1´Á®É¡A«h±N¸Ó¼Æ¦r¼Ð¥Ü¶À¦â©Î²LÂŦâ¡C

§Úªº©å«ä¬O~
¦]¬°¦C641~¦C654ªºµ{¦¡½X¬O¥Ñ§¹¥þ½Æ»s¦C374~¦C387ªºµ{¦¡½X¦Ó¨Ó¡A
©Ò¥H¬O¤£¬O¦C641~¦C654ªº¬Y¨ÇÅܼƨS¦³¥ýÂk0(=Nothing)¡A¦]¦¹¤~¥u¦³"«e3¤p"·|²£¥ÍBug?

§Úªº¥t1­Ó©å«ä¬O~
¦C641~¦C654ªºµ{¦¡½X­«·s½s¼g¡AÅܼƤ£­n»P¦C374~¦C387¬Û¦P¡A¥H§Q¤G¬qµ{¦¡½X¤£·|²£¥Í½Ä¬ð¡C

¥H¤Wªº"©å«ä"¬O§_¥i¦æ?
¯à§_³Ò¾r±z«ü¾É¤@¤U?
ÁÂÁ±z:)

PS : ÁÙ¬O°ÝÃDªº²£¥Í~¦P¦phttp://forum.twbts.com/thread-22143-1-1.htmlÃþ¦ü?

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2019-12-22 13:02 ½s¿è

¦^´_ 2# ­ã´£³¡ªL
PS : ÁÙ¬O°ÝÃDªº²£¥Í~¦P¦phttp://forum.twbts.com/thread-22143-1-1.htmlÃþ¦ü?
§Úªº·N«ä¬O :
¬O¤£¬O¤S¬O¦]¬°¬YÅܼÆ=Nothing¡A©Ò¥Hµ{¦¡½X¤~·|²£¥ÍBug !?

¦]¬°©Ò¦³ªº¹Bºâ¤½¦¡³£Âন¯Â­È¤F¡A©Ò¥H§Ú²q·QÀ³¸Ó¬O»P¤½¦¡µLÃö¡C

³Ò¾r±z¤F!¦A¦¸ÁÂÁ±z!

TOP

¦^´_ 2# ­ã´£³¡ªL
ª©¥D :±z¦n!
­è­è±NxF,FF,AD§ï¦¨xK,KK,AK(Åܼƫŧi¤]§@¤F)¡A¦ý°õ¦æµ²ªG³ºµM§¹¥þ¤@¼Ë¨SÅÜ^^"
ÁöµM¹ïVBA»yªk§¹¥þ¬Oªù¥~º~¡A¦ý¹ê¦b¤£¸Ñ¬°¤°»ò°õ¦æªºÀx¦s®æ½d³ò§¹¥þ¬Û¦P¡A°õ¦æªº¼Ðªº©Ê½è¤]³£¬O¤@¼Ëªº¯Â­È¡A¥u¦³¤u§@ªí¤£¦P¡A
¥H¦C374~¦C387ªºµ{¦¡½X=¦C641~¦C654ªºµ{¦¡½X¨Ó°õ¦æ¡A«o¬O·|«e¬q¥¿½T¦³®Ä¡A«á¬q·|¦³°ÝÃD?
¨SÂá¤F!©ñ±ó¤F!
¥´ÂZ±z¤F!ÁÂÁ±z^^

TOP

¦^´_ 2# ­ã´£³¡ªL
´ú¸ÕÀÉ : T-1.rar (103.61 KB)
ª©¥D¤j¤j¡J±z¦n¡I
³Æµù¡J
1_¦³¾¨¶q±N¤£¥²­nªºµ{¦¡½X²¾°£¤F^^
2_¦³¾¨¶q¥[µù¤å¦r»¡©ú¡C

¤£¦n·N«ä¡A¤p§Ì¯à§_¦V±z½Ð±ÐShee1ªº1­Ó¥ý«e¨S¦³µo²{ªº¤p°ÝÃD¡J
¦C178~¦C191¼Ð¥Ü©³¦âªºµ{¦¡½X¡A¥Ø«e¹ï·j´M¨ìªº¼Ðªº¼Æ¦r¦³­«½Æ®É¡A
¥u¯à¼Ð¥Üªº²Ä1­Ó¼Æ¦r¡A¤§«á¦³­«½Æªº²Ä2­Ó¬Û¦P¼Æ¦r¤£·|¼Ð¥Ü¡C
EX¡J
49_§À¼Æ±Æ§Ç-±Æ¼ÆÁ`Äý-(2019-11-22)ªºX88©MBV88Àx¦s®æ(=45)
49_§À¼Æ±Æ§Ç-±Æ¼ÆÁ`Äý-(2019-11-26)ªºF89©MBF89Àx¦s®æ(=45)

¥i§_½Ð±z±N¨ä§ï¦¨~
±N¦b«ü©wªº·j´M½d³ò¤º¡A¦³Åã¥Ü²Å¦X¼Ð¥ÜÅ޿誺¼Æ¦r¤§Àx¦s®æ¡A³£¼Ð¥Ü¶À©³¦â©Î²LÂÅ©³¦â¡H
ÁÂÁ±z¡I

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD