- ©«¤l
- 518
- ¥DÃD
- 54
- ºëµØ
- 0
- ¿n¤À
- 594
- ÂI¦W
- 243
- §@·~¨t²Î
- win 10
- ³nÅ骩¥»
- []
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-19
- ³Ì«áµn¿ý
- 2024-11-4
|
¦^´_ 4# Airman
½Ð°Ñ¦Ò¡AÀˬd¬Ý¬Ý³o¬O¤£¬O§Anªº¡G
For Each Rng In .Range("AZ1:CC1")
Rng.Value = Replace(Rng, "¤j", "¤p")
If Rng.Interior.ColorIndex = 43 Then
Rng.Interior.ColorIndex = 40
ElseIf Rng.Interior.ColorIndex = 8 Then
Rng.Interior.ColorIndex = 39
ElseIf Rng.Interior.ColorIndex = 37 Then
Rng.Interior.ColorIndex = 45
End If
Next
¤W±ªº´N¨ú¥N¤U±ªºÅo¡F
'''' Range("AZ1:CC1").Replace "¤j", "¤p"
''''
'''' Range("AZ1:CC1").Select
'''' Application.FindFormat.Interior.ColorIndex = 43
'''' Application.ReplaceFormat.Interior.ColorIndex = 40
'''' Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
'''' :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
''''
'''' Application.FindFormat.Interior.ColorIndex = 8
'''' Application.ReplaceFormat.Interior.ColorIndex = 39
'''' Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
'''' :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
''''
'''' Application.FindFormat.Interior.ColorIndex = 37
'''' Application.ReplaceFormat.Interior.ColorIndex = 45
'''' Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
'''' :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True |
|