UC知道VB如何检测空格
来源：百度知道 编辑：UC知道 时间：2024/06/17 00:35:06
'检查变化区域是否在指定区域
If Not (Intersect(Range("D3:S666"), Target) Is Nothing) Then
'删除已有的图形
If Sh.Shapes.Count > 0 Then
Sh.Shapes.SelectAll
Selection.Delete
End If
For Each Cell In ColRng
Set EndR = Cell.End(xlToRight)
If EndR.Column <= 19 Then
If DrawMode Then
'绘制线条
这是一段VB语言，我想在最后“ If DrawMode Then
'绘制线条”这个前面加一个代码，意思就是要检测("D3:S666"),这个区域的任何一个值如果是空格的话就不执行下面“ '绘制线条”，也就是说如果是一直数值的话就继续下去。。。
不知道我说明白了没有，请大虾指点。。。
多谢。
如果是一个整数的话就执行下去 ,如果是空格就不执行。 因为空格隐藏了函数，。。
If Not (Intersect(Range("D3:S666"), Target) Is Nothing) Then
'删除已有的图形
If Sh.Shapes.Count > 0 Then
Sh.Shapes.SelectAll
Selection.Delete
End If
For Each Cell In ColRng
Set EndR = Cell.End(xlToRight)
If EndR.Column <= 19 Then
If DrawMode Then
'绘制线条
这是一段VB语言，我想在最后“ If DrawMode Then
'绘制线条”这个前面加一个代码，意思就是要检测("D3:S666"),这个区域的任何一个值如果是空格的话就不执行下面“ '绘制线条”，也就是说如果是一直数值的话就继续下去。。。
不知道我说明白了没有，请大虾指点。。。
多谢。
如果是一个整数的话就执行下去 ,如果是空格就不执行。 因为空格隐藏了函数，。。
说实话没看明白，如果判断是否为数值，可以用IsNumeric，如果是判断字符串中是否有空格，那比较麻烦些，只能用Len得到字符串长度，然后来个循环，一个字符一个符的比较判断了