- ©«¤l
- 678
- ¥DÃD
- 147
- ºëµØ
- 0
- ¿n¤À
- 799
- ÂI¦W
- 0
- §@·~¨t²Î
- win 8
- ³nÅ骩¥»
- MS 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-2-9
- ³Ì«áµn¿ý
- 2022-1-20
|
¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-8-23 07:41 ½s¿è
¦^´_ 19# samwang
¤£¤Ó¯à²z¸Ñ±zªº·N«ä¡A
´M§ä = .[A4:A9] ¥B¦rÅéÃC¦â=7¸¹ªº¼Æ¦r¡A¨ú¥N¬°4¸¹©³¦â >> ³o¬O¤£¬O©M#16µ{¦¡»Ý¨D¤@¼Ë¶Ü?
¬Oªº! ÁÂÁ±z
-----------------
¤£¦n·N«ä~
§Ú¥u·|³Ì°ò¥»ªº If..... Then......End If ªº»yªk
EX :³oӻݨD¡A§Ú¥u·|~
Sub test()
Dim i%, j%, k%
With Sheets("Sheet1")
For i = 4 To 9
For j = 2 To 50
For k = 2 To 110
If Cells(j, k).Font.ColorIndex = 7 Then
If (Cells(j, k) = Cells(i, 1)) Then
Cells(j, k).Interior.ColorIndex = 4
End If
If (Cells(j, k) = Cells(10, 1)) Then
Cells(j, k).Interior.ColorIndex = 8
End If
End If
Next k
Next j
Next i
End With
End Sub
¦]¬°«Ü·Q¾Ç²ß¶Q»yªk¡A©Ò¥H¤~«_¬N¤@ÃD³Ò·Ð±z³o»ò¦h¦¸~©|½Ð¨£½Ì
ÁÂÁ±z |
|