VBA識別範圍內的數字

Question

我相信這是一個簡單的問題，但似乎無法在WWW上找到任何明確的內容。

我需要我的代碼來識別列中的1到9之間的任何數字，以便爲該範圍拋出錯誤，我目前只能使用一個數字來處理它。

Public Sub ErrorCheck() 
Dim FindString As String 
Dim Rng As Range 
FindString = "" 
If VBA.Trim(FindString) <> "" Then 
With Sheets("Scoring").Range("S:S") 
    Set Rng = .Find(What:=FindString, _ 
        After:=.Cells(.Cells.Count), _ 
        LookIn:=xlValues, _ 
        LookAt:=xlWhole, _ 
        SearchOrder:=xlByRows, _ 
        SearchDirection:=xlNext, _ 
        MatchCase:=False) 
    If Not Rng Is Nothing Then 
     MsgBox "Error", True 
    Else 

    End If 
End With 
End If 
End Sub 

感謝您的幫助！

Answer 1

您可以對所需的所有值迭代執行您的代碼。例如：

Public Sub ErrorCheck() 
    Dim FindString As String 
    Dim Rng As Range 
    Dim startVal As Integer, endVal As Integer 

    startVal = 1 
    endVal = 9 

    For i = startVal To endVal 
     FindString = CStr(i) 
     With Sheets("Scoring").Range("S:S") 
      Set Rng = .Find(What:=FindString, _ 
        After:=.Cells(.Cells.Count), _ 
        LookIn:=xlValues, _ 
        LookAt:=xlWhole, _ 
        SearchOrder:=xlByRows, _ 
        SearchDirection:=xlNext, _ 
        MatchCase:=False) 
      If Not Rng Is Nothing Then 
       MsgBox "Error", True 
       Exit For 
      Else 

      End If 
     End With 
    Next i 

End Sub