[英]How can I correct my VBA Code for a type 13 error mismatch
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 列中发布“无文本”。
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.