- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-12
|
- Sub TEST()
- Dim R&, xR As Range, xF As Range, xE As Range, j%, Jm%, k%, Km%
- R = Cells(Rows.Count, 2).End(xlUp).Row: If R < 3 Then Exit Sub
- Range("A3:I" & R).Interior.ColorIndex = xlNone
- For Each xR In Range("B3:B" & R)
- If xR = "" Then GoTo 101
- Set xF = Sheets("Sheet1").[B:B].Find(xR, lookat:=xlWhole)
- If xF Is Nothing Then xR.Interior.ColorIndex = 3: GoTo 101 '§ä¤£¨ì¨¥÷ÃÒ¸¹
- If xF(1, 0) <> xR(1, 0) Then xR(1, 0).Interior.ColorIndex = 3: GoTo 101 'ÃÒ¸¹©m¦W¤£²Å
-
- If xF(1, 21) = "µ²·~" Then GoTo 101
-
- For j = 3 To 6
- If Not IsDate(xR(1, j)) Then GoTo 102
- Jm = 0: Km = 0
- For k = 1 To 3
- Set xE = xF(1, 7 + (j - 3) * 3 + k)
- If xR(1, j) = xE Then Jm = 1
- If xE <> "" Then Km = Km + 1
- If Jm = 0 And xE = "" Then xE = xR(1, j): Exit For
- Next k
- If Km = 3 Then xR(1, j).Interior.ColorIndex = 6: GoTo 102
- If Jm = 1 Then xR(1, j).Interior.ColorIndex = 3
- 102: Next j
-
- 101: Next
- End Sub
½Æ»s¥N½X
Xl0000143(¨¥÷¤ñ¹ï)_v2.rar (27.8 KB)
³o¬Oª©¥»2, ¦Û¦æ¥h¬ã¨s, ¨S®É¶¡¦A¸ò©«! |
|