我想询问如何在范围值上使用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
提前谢谢。
此致
答案 0 :(得分:2)
要检测单元格内容是否包含字母,您可以使用:
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