- 帖子
- 401
- 主題
- 57
- 精華
- 0
- 積分
- 484
- 點名
- 20
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2024-4-24
|
隱藏所有錯誤值
 隱藏所有錯誤值.rar (15.54 KB)
Sub 隐藏所有错误值()
Dim rng As Range, cell As Range
On Error Resume Next '防錯，避免找不到錯誤值時產生錯誤
With ActiveSheet.UsedRange '僅對己用區域進行定位
Set rng = .SpecialCells(xlCellTypeFormulas, 16) '將公式結果為錯誤的區域賦值給變量RNG
If Err.Number = 0 Then '如果無錯誤（有錯誤公式）
Set rng = Union(rng, .SpecialCells(xlCellTypeConstants, 16)) '將非公式的錯誤單元格與變量RNG合併
Else '否則將常量錯誤單元格賦值給變量RNG
Set rng = .SpecialCells(xlCellTypeConstants, 16)
End If
Application.ScreenUpdating = False '並閉屏幕更新，加快速度
For Each cell In rng '遍歷所有錯誤單元格
cell.Font.Color = cell.Interior.Color '將字體色設置為背景色
Next
Application.ScreenUpdating = True '恢復屏幕更新
End With
End Sub |
|
發表於 2012-11-17 11:23
| 
