[已解决]求助

ws278106483 · 发表于 2012-5-22 16:35

Sub jis()
Dim x, y, z As Long
For x = 2 To Range("a65536").End(xlUp).Row
For y = 2 To Range("a65536").End(xlUp).Row
For z = 2 To Range("a65536").End(xlUp).Row
If Range("B2").Value = Cells(x, 1).Value + Cells(y, 1).Value + Cells(z, 1).Value Then
MsgBox Cells(x, 1) & "+" & Cells(y, 1) & "+" & Cells(z, 1)
Else
Range("c2").Value = "没有满足条件的"
End If
Next z, y, x
End Sub

复制代码

ws278106483 · 发表于 2012-5-22 16:36

看一下，楼主，我把数字放在第一列和第二列了，如果没有结果会在C2中显示结果没有满足条件的，你看一下对不对。

ws278106483 · 发表于 2012-5-22 16:37

这是附件跟上，楼主，看一下，如果觉得好给个最佳。

jb_008 · 发表于 2012-5-23 09:01

那个代码我怎么觉得即使有正确的也算不出来，你仔细看看

jb_008 · 发表于 2012-5-23 09:04

它只算了三个数，而你的数据里面三个数相加根本就不可能得到设定的数

carlisa616 · 发表于 2012-5-23 11:30

呜呜，一头雾水，看不懂，

visardwl · 发表于 2012-5-23 17:03

have a look, thanks

		自动登录	找回密码
密码			注册