[已解决]解释If？

adadada

Private Sub CommandButton1_Click()
    Dim i&, j&
    arr = [a1:c1806]
    brr = Sheets("表1").[a1:b81428]
    For i = 2 To 1806
        t1 = arr(i, 1): t2 = arr(i, 3)
        For j = 2 To 81428
            If t1 = brr(j, 1) Then If brr(j, 2) = "" Then brr(j, 2) = t2
        Next
    Next
    Sheets("表1").[a1:b81428] = brr
End Sub
这种If写法没见过，解释下？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-9-29 21:41

如果T1等于brr(j,1),则再比较brr(j,2)是否为空，如果为空，则brr(j,2)=t2

直接用一个AND就成了。
if t1=brr(j,1) and brr(j,2)="" then brr(j,2)=t2

跳转到最佳答案楼层

hwc2ycy

如果T1等于brr(j,1),则再比较brr(j,2)是否为空，如果为空，则brr(j,2)=t2

直接用一个AND就成了。
if t1=brr(j,1) and brr(j,2)="" then brr(j,2)=t2

adadada

hwc2ycy 发表于 2013-9-29 21:41
如果T1等于brr(j,1),则再比较brr(j,2)是否为空，如果为空，则brr(j,2)=t2

直接用一个AND就成了。

If t1 = brr(j, 1) Then If brr(j, 2) = "" Then brr(j, 2) = t2
这代码还原应该怎么写的？

hwc2ycy

adadada 发表于 2013-9-29 21:49
If t1 = brr(j, 1) Then If brr(j, 2) = "" Then brr(j, 2) = t2
这代码还原应该怎么写的？

这个写法运行有没有问题我没试过，这么写有点啰嗦了。

danio112

hwc2ycy 发表于 2013-9-29 21:41
如果T1等于brr(j,1),则再比较brr(j,2)是否为空，如果为空，则brr(j,2)=t2

直接用一个AND就成了。

从字面上看，的确是这样解释，但是出现了两个if ,却一个end if 也没有，这是不对的。不知道运行起来会不会报错

adadada

danio112 发表于 2013-9-29 22:34
从字面上看，的确是这样解释，但是出现了两个if ,却一个end if 也没有，这是不对的。不知道运行起来会不会 ...

看别人发的帖子，改进if 语句结构提高速度

hwc2ycy

adadada 发表于 2013-9-29 22:36
看别人发的帖子，改进if 语句结构提高速度

VBA里不知没有没这种逻辑运算。
假如 IF A AND B  
如果A为FALSE，这个AND就没有再计算的必要了,直接PASS。
貌似别的语言里有这种逻辑运算。