GBKEE

回復 2# pegawang
也可如此寫法

1. Option Explicit
   
2. Sub Ex()  'Sub Find()  :Find 是VBA專屬的文字程式的名稱避免使用
   
3.     Dim FindString As String
   
4.     FindString = InputBox("請輸入數值")
   
5.     If FindString <> "" Then
   
6.         With Range("E1:I3000")
   
7.             .Cells.Replace FindString, "=1/0", xlWhole           '**輸入的文字替換為錯誤值
   
8.             On Error Resume Next                                          '**不理會程式上的錯誤,繼續執行程式
   
9.            With .SpecialCells(xlCellTypeFormulas, xlErrors)  '**沒有錯誤值, 程式會錯誤而中斷
   
10.                 If Err = 0 Then
    
11.                     .Parent.Cells.Interior.ColorIndex = xlNone
    
12.                     .Value = FindString
    
13.                    .Interior.ColorIndex = 4
    
14.                 Else
    
15.                     MsgBox "找不到  " & FindString
    
16.                 End If
    
17.             End With
    
18.         End With
    
19.     End If
    
20. End Sub

複製代碼