[已解决]求帮改一小代码：被误输入空格时也算为空

jsdtxin

Sub test ()
    If Cells(13, 3) <> "" Then            (想让D13单元格被误输入空格时也算为空，这行怎么改代码？直接用Trim好像不行）
             Cells(13, 4) = 88
    Else
             Cells(13, 4) = ""
    End If
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-21 12:58

1. Sub test()
   
2.     If Len(Trim(Cells(13, 3).Value)) Then
   
3.              Cells(13, 4) = 88
   
4.     Else
   
5.              Cells(13, 4) = ""
   
6.     End If
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

hwc2ycy

if len(trim(cells(13,3).value)) then

hwc2ycy

1. Sub test()
   
2.     If Len(Trim(Cells(13, 3).Value)) Then
   
3.              Cells(13, 4) = 88
   
4.     Else
   
5.              Cells(13, 4) = ""
   
6.     End If
   
7. End Sub
   

复制代码

jsdtxin

hwc2ycy 发表于 2014-3-21 12:58

谢谢版主啊

jsdtxin

hwc2ycy 发表于 2014-3-21 12:58

Len是什么意思啊，版主

jsdtxin

hwc2ycy 发表于 2014-3-21 12:58

If Len(Trim(Cells(13, 3).Value)) Then

原句中的<>"",怎么没了
If Len(Trim(Cells(13, 3).Value))<>"" Then  把这句放入时还不怎么对，要求确实是空的时候要算空。这个一律没算空了啊

hwc2ycy

直接用len来判断，长度为0自然就是空嘛。

jsdtxin

hwc2ycy 发表于 2014-3-21 13:34
直接用len来判断，长度为0自然就是空嘛。

D3单元格是文字，一般不会输入0，只担心误输入空格键，要让误输入的空格键后，D3单元格还算为“”。版主能帮我改下代码吗？

能不能改成  ..................<>""的形式呢？

ghostjiao

jsdtxin 发表于 2014-3-21 13:52
D3单元格是文字，一般不会输入0，只担心误输入空格键，要让误输入的空格键后，D3单元格还算为“”。版主能 ...

你没明白，版主的那个已经可以了，不是说输入0   是len判断结果为0  你输入空格后，经过trim函数空格便没了 这是len(trim())这个函数返回的结果是0  直接执行else语句了D3还是“”

jsdtxin

ghostjiao 发表于 2014-3-21 13:56
你没明白，版主的那个已经可以了，不是说输入0   是len判断结果为0  你输入空格后，经过trim函数空格便没 ...

嗯，刚测试了下，版主这个是可行的，但能不能写成*******<>""的形式呢？