Sub Sample6()
Dim i As Long
For i = 1 To 5
If TypeName(Cells(i, "A").Value) = "String" Then
MsgBox "このセルのデータは文字列です"
End If
Next i
End Sub
注意: TypeName(Cells(i, "A").Value) = "String"
.value は省略してはいけない。
StringのSは大文字でなくてはいけない。TypeNameの結果のまま使うこと。
その他のタイプを判定したい場合は、TypeName(Cells(i, "A").Value) の結果をイコールで結んで判定すれば良い。
注意: TypeName(Cells(i, "A").Value) = "String"
.value は省略してはいけない。
StringのSは大文字でなくてはいけない。TypeNameの結果のまま使うこと。
その他のタイプを判定したい場合は、TypeName(Cells(i, "A").Value) の結果をイコールで結んで判定すれば良い。