½Ð°Ývban«ç¼Ë¼g¤~¯àÅý¤å¦rÃC¦â¥æ¤e§e²{@@
- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¦^´_ 1# s13030029
½Ð°Ñ¦Ò
Sub test()
Dim mycolor%, x$, cell As Range
For Each cell In Range([A1], [A65536].End(3))
If cell.Value <> x Then
mycolor = IIf(mycolor = 5, 10, 5)
x = cell.Value
End If
cell.Font.ColorIndex = mycolor
Next cell
End Sub |
|
|
|
|
|
|