[已解决]这样的平衡关系代码为何不正确？

ycb20010823

我想验证一下，A列加B列，C列加D列，E列加F列 这三列相加后，相不相等，为什么我写的代码运行就不正确呢？请朋友指点一下1谢谢！！

  dvymY5Ca.rar (7.32 KB, 下载次数: 1)

2008-12-24 10:50 上传

点击文件名下载附件
这样的平衡关系代码为何不正确？

最佳答案

月排行榜 / 总排行榜

fssunnymen

2008-12-24 11:10

Sub 找平衡关系()
For X = 1 To 4
    QQ = Cells(X, 1) + Cells(X, 2)
    WW = Cells(X, 3) + Cells(X, 4)
    EE = Cells(X, 5) + Cells(X, 6)
       
        If QQ = WW And QQ = EE Then
            MsgBox X & "行平衡"
        Else
            MsgBox "不平衡在" & X & "行"
        End If
Next X
End Sub

[此贴子已经被作者于2008-12-24 11:10:16编辑过]

跳转到最佳答案楼层

fssunnymen

Sub 找平衡关系()
For X = 1 To 4
    QQ = Cells(X, 1) + Cells(X, 2)
    WW = Cells(X, 3) + Cells(X, 4)
    EE = Cells(X, 5) + Cells(X, 6)
       
        If QQ = WW And QQ = EE Then
            MsgBox X & "行平衡"
        Else
            MsgBox "不平衡在" & X & "行"
        End If
Next X
End Sub

[此贴子已经被作者于2008-12-24 11:10:16编辑过]

fssunnymen

嘻嘻....比搁浅早到,,,

搁浅2008

呵呵 来晚了

[em03]

ycb20010823

fssunnymen你好，那我写的那样有什么问题吗？

fssunnymen

QUOTE:

以下是引用ycb20010823在2008-12-24 11:58:00的发言：
fssunnymen你好，那我写的那样有什么问题吗？

好像没有QQ = WW  = EE 的写法吧...

QQ = WW And QQ = EE

ycb20010823

那也就这么理解吧，没有那样的写法，不过我觉得那样写，并没有什么错的地方，可能就是VBA中，不能那样写等式吧，好的，谢谢你，fssunnymen朋友！！