寻求思想

zlz2115

Public Sub abc()
Dim x As Range, rng As Range, str
For Each x In Range("a1").CurrentRegion
    If x.Interior.Color = vbRed Then
        str = str & IIf(str = "", "", "  ") & Cells(x.Row, 1) & Cells(1, x.Column) & "," & x
    End If
Next
MsgBox str
End Sub


请问各位大侠IIf(str = "", "", "  ")   这句的目的是否为了加个空格，但是为什么要用这种表达方式，是否有什么深意？

hehex

我觉得没啥深意，就是为了写语句简洁。
IIf(str = "", "", "  ") 是判断Str 如果为空的话，就直接连后面的各单元格内容，如果不为空则先添加一个空格。
如果用if 语句判断则会需要多行，用iif 函数做这个使语句更简洁，但是同时降低了可读性。
我个人对降低可读性的任何做法一向都是反感的。

ctp_119

这句的目的就是区分开始和非开始，因为开始是str是空，其他情况就以空格来连接。就是这个意思啦

zlz2115

受教了！谢谢！

zlz2115

ctp_119 发表于 2012-12-27 15:38
这句的目的就是区分开始和非开始，因为开始是str是空，其他情况就以空格来连接。就是这个意思啦

那我直接以这样的形式呈现程序，也是可以运行的啊，会有什么漏洞吗？
Public Sub abc()
Dim x As Range, rng As Range, str
For Each x In Range("a1").CurrentRegion
    If x.Interior.Color = vbRed Then
        str = str & " " & Cells(x.Row, 1) & Cells(1, x.Column) & "," & x
    End If
Next
MsgBox str
End Sub

hehex

zlz2115 发表于 2012-12-31 14:36
那我直接以这样的形式呈现程序，也是可以运行的啊，会有什么漏洞吗？
Public Sub abc()
Dim x As Range ...

不同就在于你现在的程序没有判断str 变量是否为空，所以当str 是一个空字符串的时候，你连接结果字符串前面会多一个空格，而上面的程序不会，只会将有内容的字符串用空格分开。

ctp_119

zlz2115 发表于 2012-12-31 14:36
那我直接以这样的形式呈现程序，也是可以运行的啊，会有什么漏洞吗？
Public Sub abc()
Dim x As Range ...

后果是多出前面一个空格，如果那样处理了就没有这个空格。

zlz2115

hehex 发表于 2012-12-31 15:12
不同就在于你现在的程序没有判断str 变量是否为空，所以当str 是一个空字符串的时候，你连接结果字符串前 ...

谢谢大虾！