查两个数字之和是否等于指定数字

舟心ty

已于 2022-10-27 22:09:02 修改

阅读量106

点赞数

分类专栏： VBA 文章标签：开发语言

于 2022-10-27 14:18:45 首次发布

本文链接：https://blog.csdn.net/sx01117/article/details/127551588

版权

VBA 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

Sub 查求和()
Dim c As Single, cys, wcs As Single, hh%, qsh%, jsh%
On Error Resume Next
wcs = [m2]
qsh = [m3]
jsh = [m4]
For i = qsh To jsh
    If Cells(i, "e") < [m1] Then
        For j = i + 1 To jsh
            c = Cells(i, "e") + Cells(j, "e")
            If c < [m1] Then
                cys = Round([m1] - c, 2)
                hh = Application.WorksheetFunction.Match(cys, Range(Cells(1, "e"), Cells(jsh, "e")), 0)
                If hh >= 1 Then GoTo 100
            End If
        Next j
    End If
Next i
100:
If hh >= 1 Then
    Cells(i, "e").Copy Cells(Rows.Count, "m").End(xlUp).Offset(1, 0)
    Cells(Rows.Count, "m").End(xlUp).Offset(0, 1) = i
    Cells(j, "e").Copy Cells(Rows.Count, "m").End(xlUp).Offset(1, 0)
    Cells(Rows.Count, "m").End(xlUp).Offset(0, 1) = j
    Cells(hh, "e").Copy Cells(Rows.Count, "m").End(xlUp).Offset(1, 0)
    Cells(Rows.Count, "n").End(xlUp).Offset(1, 0) = hh
Else
    MsgBox "查无结果。。。"
End If


End Sub