Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս գտնել Excel- ի ցուցակում երկու թվերի բոլոր հնարավոր գումարները:

Ենթադրելով, որ այստեղ թվերի ցուցակ է, այժմ կարո՞ղ եք գտնել այս թվերի երկու թվերի բոլոր հնարավոր գումարները, ինչպես ցույց է տրված ստորև նշված նկարում: Excel- ում ներկառուցված գործառույթ չկա, որը կարող է լուծել այս աշխատանքը: Այժմ ես ձեզ եմ ներկայացնում VBA կոդ ՝ այն կարգավորելու համար:
փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 1

Find all possible sums of two numbers in a list with VBA code

Find all possible combinations of two lists with List All Combinationsgood idea3


Find all possible sums of two numbers in a list with VBA code

Եթե ​​ցանկանում եք ցուցակում գտնել երկու թվերի բոլոր հնարավոր գումարները, կարող եք դիմել ներքևում գտնվող VBA կոդով:

1. Մամուլ Alt + F11 ստեղները ցուցադրելու համար Microsoft Visual Basic for Applications պատուհան.

2: սեղմեք Insert > Module, պատճենեք և կպցրեք կոդը ներքո մոդուլում:

VBA: List all possible sums of two numbers in a list

Sub Combinations()
'UpdatebyExtendoffice20180628
    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):", "KuTools for Excel", 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

փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 2

3: սեղմեք Tools > References, բացվող երկխոսության մեջ, ստուգեք Microsoft Scripting Runtime վանդակը.

փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 3 doc սլաք աջ փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 4

4: սեղմեք OK երկխոսությունը փակելու համար, ապա սեղմել F5 Կոդը գործարկելու համար բացվում է երկխոսություն `հիշեցնելու համար, որ դուք ընտրում եք ցուցակ` հնարավոր գումարները գտնելու համար:
փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 5

5: սեղմեք OK, ապա ցուցակում երկու թվերի բոլոր հնարավոր գումարները թվարկված են C սյունակում:
փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 6

TipThe կոդի տողի մեջ, Range («C1»): Չափափոխել (xDic.Count, 1), կարող եք փոխել C1- ը մեկ այլ բջիջի վրա, քանի որ անհրաժեշտ է արդյունքը տեղադրել:


Find all possible combinations of two lists with List All Combinations

Եթե ​​ցանկանում եք գտնել կամ թվարկել երկու ցուցակի բոլոր հնարավոր համադրությունները, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, ապա List All Combinations օգտակարությունը Kutools for Excel կարող է ձեզ բարեհաճություն դրսեւորել:
փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 7

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

1: սեղմեք Kutools > Insert > List All Combinations.
փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 8

2. Մեջ List All Combinations երկխոսություն, կտտացրեք ընտրելու կոճակին `առաջին ցուցակը ընտրելու համար:
փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 9

3: սեղմեք Add ցուցակն ավելացնել Combinations list բաժնում:
փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 10

4. Կրկնեք 2-րդ և 3-րդ քայլերը `երկրորդ ցուցակը լրացնելու համար Combinations list.
փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 11

5. Այնուհետեւ կտտացրեք Ok ընտրել բջիջ `համակցության արդյունքը տեղադրելու համար:
փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 12

6: սեղմեք OK, Բոլոր հնարավոր համադրությունները նշված են բջիջներում:
փաստաթուղթ երկու թվերի բոլոր հնարավոր գումարները 13

Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից