範囲に文字が含まれているかどうかを確認する方法

Question

範囲値にIsletterを使用する方法について質問したいと思います。

私のコードは、以下を参照してください。

If Range("$E$52").Value = **"Isletter"** Then 

    Worksheets("Offloading_Tributary").Shapes("Object 115").Visible = False 

     Else 

    Worksheets("Offloading_Tributary").Shapes("Object 115").Visible = True 

End If 

は、事前にありがとうございます。セルの内容は、文字が含まれている場合

よろしく、

Answer 1

を検出するには、使用できます。

If Range("$E$52").Value Like "[a-zA-Z]" Then 
    Worksheets("Offloading_Tributary").Shapes("Object 115").Visible = False 
Else 
    Worksheets("Offloading_Tributary").Shapes("Object 115").Visible = True 
End If 

：セルの内容を1文字だけで構成されている場合は

If Range("$E$52").Value Like "*[a-zA-Z]*" Then 
    Worksheets("Offloading_Tributary").Shapes("Object 115").Visible = False 
Else 
    Worksheets("Offloading_Tributary").Shapes("Object 115").Visible = True 
End If 

を検出するには

セルの内容が数値のみで構成されているかどうかを検出するには（空ではなく、0とみなされ、したがって数値と見なされます）：

If IsNumeric(Range("$E$52").Value) And Range("$E$52").Value <> "" Then 
    Worksheets("Offloading_Tributary").Shapes("Object 115").Visible = False 
Else 
    Worksheets("Offloading_Tributary").Shapes("Object 115").Visible = True 
End If