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

[µo°Ý] ¦A¹ï¤ñ¤£¬Û¦Pªº¸ê®Æ

[µo°Ý] ¦A¹ï¤ñ¤£¬Û¦Pªº¸ê®Æ

¹ï¤ñ¤£¬Û¦Pªº¸ê®Æ,¤£¬Û¦P¥Î¬õ¦âªí¥Ü,¦P®É¦bremark test2009.zip (4.6 KB) ª`©ú,½Ð°Ý¦Ñ®v«ç»ò¼g??

¥»©«³Ì«á¥Ñ kimbal ©ó 2010-7-29 02:02 ½s¿è

¦^´_ 1# john2006168
  1.         Dim ci, msg
  2.     If [e2] = "" Then
  3.         Exit Sub
  4.     End If
  5.    
  6.     For i = 1 To Range("E1").End(xlDown).Row
  7.         If Range("E1").Offset(i) <> Range("E1").Offset(i, 2) Then
  8.             msg = "¤£¬Û²Å (miss)"
  9.             ci = 3
  10.         Else
  11.             msg = ""
  12.             ci = 0
  13.         End If
  14.         With Range("E1")
  15.             .Offset(i, 1) = msg
  16.             .Offset(i, 3) = msg
  17.             Range(.Offset(i), .Offset(i, 3)).Interior.ColorIndex = ci
  18.         End With
  19.     Next
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 1# john2006168
  1. Sub Ex()
  2.     Dim i
  3.     For i = 2 To Range("E1").End(xlDown).Row
  4.         With Range("E1")
  5.             If .Cells(i, 1) = .Cells(i, 3) Then
  6.                 .Cells(i, 1).Resize(, 4).Interior.ColorIndex = 0
  7.             Else
  8.                 .Cells(i, 2) = "¤£¬Û²Å(miss)"
  9.                 .Cells(i, 4) = "¤£¬Û²Å(miss)"
  10.                 .Cells(i, 1).Resize(, 4).Interior.ColorIndex = 3
  11.         End If
  12.         End With
  13.     Next
  14. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD