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

[µo°Ý] ½Ð­×¥¿¤W©³¦âªºµ{¦¡½X

[µo°Ý] ½Ð­×¥¿¤W©³¦âªºµ{¦¡½X

´ú¸ÕÀÉ®× : ½Ð­×¥¿¤W©³¦âªºµ{¦¡½X.rar (53.32 KB)
'-§ì¤é´Á,¸¹½X¶ñ¶À¦â------------------------------------------------------------------
    Set BK = ThisWorkbook    '¦C65
         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("B74:K84", "S74:AB84")
           If xF(1, V) <> "" Then
              Set FF = Range(AD & "").Find(xF(1, V), Lookat:=xlWhole)
              If Not FF Is Nothing Then FF.Font.ColorIndex = IIf(V = 10, 3, 10)
           End If
           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
End If      '¦C82
'==============================================================================
¥Ø«e¤W­zªºµ{¦¡½X°õ¦æ«áªº®ÄªGÀɮסA
¨äArray("B74:K84", "S74:AB84")ªº©³¦â¼Ð¥Ü¦³Bug¡J
NG1_«ü©wªº³æ°Ï°ìªº°_©lÀx¦s®æ¼Æ¦r¡A¦³²Å¦X¤W¦â±ø¥ó®É¡A¨äÀx¦s®æµLªk¼Ð¥ÜÃC¦â¡F
EX¡JB74(=01)¡FS74(=01)
NG2_·í«ü©wªº³æ°Ï°ì¤º¡A²Å¦X¤W¦âªº¼Æ¦r¦³­«½Æ®É¡A¨ä­«½Æ¼Æ¦rÀx¦s®æµLªk¼Ð¥ÜÃC¦â¡C
¸Ô¦p¡J49_§À¼Æ±Æ§Ç-±Æ¼ÆÁ`Äý-(2019-11-26)_NGªºArray("B74:K84", "S74:AB84")ªº©³¦â¼Ð¥Ü¡C

µ{¦¡½X°õ¦æ«áªº»Ý¨D®ÄªGÀɮסA¸Ô¦p¡J
49_§À¼Æ±Æ§Ç-±Æ¼ÆÁ`Äý-(2019-11-26)_AnsªºArray("B74:K84", "S74:AB84")ªº©³¦â¼Ð¥Ü¡C

½Ð°Ý¡Jµ{¦¡¥DÀɪº¦C65~¦C82µ{¦¡½XÀ³¸Ó¦p¦ó­×¥¿¡H
·q½Ð¦U¦ì¤j¤j½ç±Ð©MÀ°¦£¡IÁÂÁ¡I

¦^´_ 6# ­ã´£³¡ªL
­ã´£ª©¥D : ±z¦n!
§¹¥þOK¤F!
ÁÂÁ±z

TOP

¦^´_ 5# ziv976688


Set BK = ThisWorkbook:  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Äæ¤é´Á
Dim FA%(49), FB%(49), xA As Range
If Not xF Is Nothing Then
   For V = 4 To 10
       FA(Val(xF(1, V))) = V
       FB(Val(xF(2, V))) = V
   Next V
   '---------------------------
   For Each xA In Range("B74:K84,S74:AB84")
       If FA(Val(xA)) > 0 Then xA.Font.ColorIndex = IIf(FA(Val(xA)) = 10, 3, 10)
       If FB(Val(xA)) > 0 Then xA.Interior.ColorIndex = IIf(FB(Val(xA)) = 10, 8, 6)
   Next
End If
Erase FA, FB '¥[³o¤@¦æ, ­«¸m°}¦C  
ÃC¦â°Ñ¼Æ¦Û¦æ¥h§ï§a~~


===========================

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2020-1-18 01:14 ½s¿è

¦^´_ 3# ­ã´£³¡ªL
­ã´£ª©¥D : ±z¦n!
±zªº3¼Ó¸ÑÃDµ{¦¡½X¡A³£¤w¦p»Ý¨D~
±N«ü©w°Ï°ìªº°_©lÀx¦s®æ¼Æ¦r©M¥þ³¡²Å¦X¤W¦âªº¼Æ¦r(§t¦³­«½Æ)¡A¼Ð¥Ü¦rÃC©Î©³¦â¡C
ÁÂÁ±z
=============================================================================
'-§ì¤é´Á,¸¹½X¶ñ¶À¦â------------------------------------------------------------------
Set BK = ThisWorkbook:  Set xF = Nothing   '¦C64
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Äæ¤é´Á
Dim FA%(49), FB%(49), xA As Range
If Not xF Is Nothing Then
   For V = 4 To 10
       FA(Val(xF(1, V))) = V   '¦C70
       FB(Val(xF(2, V))) = V   '¦C71
   Next V
   '---------------------------
   For Each xA In Range("B74:K84,S74:AB84")
       If FA(Val(xA)) > 0 Then xA.Font.ColorIndex = IIf(FA(Val(xA)) = 10, 3, 10)   '¦C75
       If FB(Val(xA)) > 0 Then xA.Interior.ColorIndex = IIf(FB(Val(xA)) = 10, 8, 6)  '¦C76
   Next
End If    '¦C78
'==============================================================================
¤£¦n·N«ä¡A¤W­z±zªº3¼Óµ{¦¡½X·|¦]°õ¦æ´ú¸ÕÀɮתº¤è¦¡¡A¦Ó²£¥Í¦³Bugªº®ÄªGÀɮסJ
A¤è¦¡¡J¤@¦¸¥u´ú¸Õ³æ´Á®É ==> «h¦U³æ¿W´ú¸Õ´Á¼ÆªºÀ³¼Ð¥Ü¼Æ¦r_¥þ³¡OK
B¤è¦¡¡J¤@¦¸´ú¸Õ³sÄò´Á©Î¦h´Áªº´Á¼Æ®É==> «h¥u¦³´ú¸Õ°_©l´Á¼ÆªºÀ³¼Ð¥Ü¼Æ¦r_OK¡A¨ä«áªº´ú¸Õ´Á¼ÆªºÀ³¼Ð¥Ü¼Æ¦r³£¦³Bug¡C
½Ð¸Ô¨£´ú¸ÕÀÉ¡C

»Ý¨D¡J
½Ð±NFor Each xA In Range ("B74:K84,S74:AB84")ªº¼Æ¦r¤§¼Ð¥ÜÅÞ¿è±ø¥ó­×¥¿¬°¡J
1_¦³Åã¥Ü¦bDATA´ú¸Õ·í¤é´ÁªºDÄæ¡JIÄ檺¼Æ¦r¼Ð¥Ü10¸¹¦rÃC¡A¦³Åã¥Ü¦bJÄ檺¼Æ¦r¼Ð¥Ü3¸¹¦rÃC¡C
2_¦³Åã¥Ü¦bDATA´ú¸Õ·í¤é´Áªº¤U1´ÁªºDÄæ¡JIÄ檺¼Æ¦r¼Ð¥Ü¶À¦â¡A¦³Åã¥Ü¦bJÄ檺¼Æ¦r¼Ð¥Ü²HÂŦâ¡C

½Ð°Ýª©¥D¡Jµ{¦¡¥DÀɪº¦C64~¦C78µ{¦¡½XÀ³¸Ó¦p¦ó­×¥¿¡H
ÁÂÁ±z

´ú¸ÕÀÉ®× :    ½Ð­×¥¿¤W©³¦âªºµ{¦¡½X_2020-0117.rar (78.08 KB)

TOP

¦^´_ 3# ­ã´£³¡ªL
ÁÂÁª©¥Dªº«ü¥¿¡C
´ú¸Õ¦¨¥\!·P®¦

TOP

'-§ì¤é´Á,¸¹½X¶ñ¶À¦â------------------------------------------------------------------
Set BK = ThisWorkbook:  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Äæ¤é´Á
Dim FA%(49), FB%(49), xA As Range  
If Not xF Is Nothing Then
   For V = 4 To 10
       FA(Val(xF(1, V))) = V
       FB(Val(xF(2, V))) = V
   Next V
   '---------------------------
   For Each xA In Range("B74:K84,S74:AB84")
       If FA(Val(xA)) > 0 Then xA.Font.ColorIndex = IIf(FA(Val(xA)) = 10, 3, 10)
       If FB(Val(xA)) > 0 Then xA.Interior.ColorIndex = IIf(FB(Val(xA)) = 10, 8, 6)
   Next
End If

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

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2020-1-2 09:52 ½s¿è

¸É¥R :
¬°Â²¤Æµ{¦¡½X¡A¥H§Q¾\Ū¡A¬ÛÃö²Å¦X¼Ð¥Ü¤ÎÁ`ªí¹ïÀ³¤é´Áªº¼Æ¦r³£¬O¼ÒÀÀ¤º®e¡C©|½Ð¨£½Ì !  ÁÂÁ !

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD