چگونه حاصلجمع های ممکن اعداد در اکسل را بدست آوریم ؟

با سلام خدمت کاربران عزیز آی تی سواد

با فرض اینکه در اینجا لیستی از اعداد وجود دارد ، چگونه می توانید تمام اعداد ممکن حاصل جمع دو عدد را در این لیست پیدا کنید ؟

در اکسل ، هیچ ابزار پیش فرض وجود ندارد که بتواند این کار را انجام دهد، در زیر شیوه انجام اینکار را با کمک vba به شما آموزش می دهیم.

حاصلجمع های ممکن اعداد در اکسل با vba

۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .

۲. در پنجره Microsoft Visual Basic for Applications بر رویInsert > Module کلیک کنید و سپس از زیر کد VBA را کپی و در درون پنجره ماژول قراردهید .

Sub Combinations()
    Dim xRgArr
    Dim xNum As Long
    Dim I, J, K As Long
    Dim xTemp As Double
    Dim xRg As Range
    Dim xRgCount As Long
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select a list (one column):", "itsavad.ir", Selection.Address, , , , , 8)
    If (xRg Is Nothing) Or (xRg.Count = 1) Then Exit Sub
    xRgCount = xRg.Count
    K = 1
    ReDim xRgArr(1 To xRgCount)
    For Each xCell In xRg
      xRgArr(K) = xCell.Value
      K = K + 1
    Next
    K = 0
    For I = 1 To xRgCount
        For J = I + 1 To xRgCount
            xTemp = xRgArr(I) + xRgArr(J)
            If Not xDic.Exists(xTemp) Then
                xDic.Add CDbl(xTemp), CStr(xTemp)
                K = K + 1
            End If
        Next
    Next
    Range("C1").Resize(xDic.Count, 1) = Application.WorksheetFunction.Transpose(xDic.Keys)
End Sub

Sub Combinations()

Dim xRgArr

Dim xNum As Long

Dim I, J, K As Long

Dim xTemp As Double

Dim xRg As Range

Dim xRgCount As Long

Dim xDic As New Dictionary

On Error Resume Next

Set xRg = Application.InputBox("Select a list (one column):", "itsavad.ir", Selection.Address, , , , , 8)

If (xRg Is Nothing) Or (xRg.Count = 1) Then Exit Sub

xRgCount = xRg.Count

K = 1

ReDim xRgArr(1 To xRgCount)

For Each xCell In xRg

xRgArr(K) = xCell.Value

K = K + 1

K = 0

For I = 1 To xRgCount

For J = I + 1 To xRgCount

xTemp = xRgArr(I) + xRgArr(J)

If Not xDic.Exists(xTemp) Then

xDic.Add CDbl(xTemp), CStr(xTemp)

K = K + 1

End If

Range("C1").Resize(xDic.Count, 1) = Application.WorksheetFunction.Transpose(xDic.Keys)

End Sub

۳. بر روی Tools > References کلیک کنید و در پنجره باز شده تیک گزینه Microsoft Scripting Runtime را بزنید .

۴ سپس روی ok کلیک کرده و کلید F5 را بزنید در پنجره ظاهر شده اعداد مورد نظر را انتخاب کنید.

۵. روی OK کلیک کنید سپس تمام مقادیر ممکن حاصلجمع دو عدد در ستون C فهرست شده‌اند.

ترجمه شده از سایت www.extendoffice.com

ممنون از همراهی شما کاربران عزیز آی تی سواد

اشتراک گذاری

بیشتر

با سلام خدمت کاربران عزیز آی تی سواد

حاصلجمع های ممکن اعداد در اکسل با vba

ممنون از همراهی شما کاربران عزیز آی تی سواد

دیدگاهتان را بنویسید لغو پاسخ