如何糾正我的 VBA 代碼中的類型 13 錯誤不匹配

Question

Sub WorksheetChange()
'declare a variable
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Foundation Budget Template")
'calculate if a cell contains text, using the ISNUMBER function, and then return a specified value
If Application.WorksheetFunction.IsNumber(ws.Range("A1:A100")) = False Then
ws.Range("C1:C100") = "Contains Text"
Else

ws.Range("C1:C100") = "No Text"
End If
End Sub

我不斷收到類型不匹配 13 錯誤。 我不確定我的類型在哪里失敗，但我想知道。 此 vba 代碼用於掃描 A 列，如果 A 列是數字，則發布“包含文本”，否則如果 A 不是數字，則在 C 列中發布“無文本”。

Answer 1

Sub WorksheetChange()
    
    'declare a variable
    Dim ws As Worksheet
    Dim row As Long
    
    Set ws = ThisWorkbook.Worksheets(1)
    
    'calculate if a cell contains text, using the ISNUMBER function, and then return a specified value
    For row = 1 To 100
        If Application.WorksheetFunction.IsNumber(ws.Cells(row, 1)) = False Then
            ws.Cells(row, 3) = "Contains Text"
        Else
            ws.Cells(row, 3) = "No Text"
        End If
    Next row
    
End Sub