- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
ÁôÂéҦ³¿ù»~È
ÁôÂéҦ³¿ù»~È.rar (15.54 KB)
Sub 隐ÂéҦ³错误È()
Dim rng As Range, cell As Range
On Error Resume Next '¨¾¿ù¡AÁקK§ä¤£¨ì¿ù»~Ȯɲ£¥Í¿ù»~
With ActiveSheet.UsedRange '¶È¹ï¤v¥Î°Ï°ì¶i¦æ©w¦ì
Set rng = .SpecialCells(xlCellTypeFormulas, 16) '±N¤½¦¡µ²ªG¬°¿ù»~ªº°Ï°ì½áȵ¹ÅܶqRNG
If Err.Number = 0 Then '¦pªGµL¿ù»~¡]¦³¿ù»~¤½¦¡¡^
Set rng = Union(rng, .SpecialCells(xlCellTypeConstants, 16)) '±N«D¤½¦¡ªº¿ù»~³æ¤¸®æ»PÅܶqRNG¦X¨Ö
Else '§_«h±N±`¶q¿ù»~³æ¤¸®æ½áȵ¹ÅܶqRNG
Set rng = .SpecialCells(xlCellTypeConstants, 16)
End If
Application.ScreenUpdating = False '¨Ã³¬«Ì¹õ§ó·s¡A¥[§Ö³t«×
For Each cell In rng '¹M¾ú©Ò¦³¿ù»~³æ¤¸®æ
cell.Font.Color = cell.Interior.Color '±N¦rÅé¦â³]¸m¬°I´º¦â
Next
Application.ScreenUpdating = True '«ì´_«Ì¹õ§ó·s
End With
End Sub |
|