- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 1# tinching
ªì¾ÇªÌvba- Sub xx()
- For C = 13 To 18
- J = 17
- For R = 79 To 87
- If Cells(C, R) = [CZ15] Then
- Range(Cells(C - 9, J), Cells(C - 9, J + 1)).Font.ColorIndex = 3
- Else
- Range(Cells(C - 9, J), Cells(C - 9, J + 1)).Font.ColorIndex = 0
- End If
- J = J + 2
- Next R
- Next C
- End Sub
½Æ»s¥N½X |
|