如何检查范围是否包含字母

我想问一下如何在范围值上使用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 

要检测单元格内容是否仅由单个字母组成：

 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 

检测单元格内容是否只包含一个数值（而不是空的，它将被认为是零，因此是数字）：

 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