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

Sut i ddod o hyd i'r holl symiau posib o ddau rif mewn rhestr yn Excel?

Gan dybio yma mae rhestr o rifau, nawr a allech chi ddod o hyd i'r holl symiau posibl o ddau rif yn y rhestr hon fel y dangosir isod y screenshot? Yn Excel, nid oes unrhyw swyddogaeth adeiledig a all ddatrys y swydd hon. Nawr rwy'n cyflwyno cod VBA i chi i'w drin.
doc pob swm posib o ddau rif 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

Os ydych chi am ddod o hyd i'r holl symiau posib o ddau rif mewn rhestr, gallwch wneud cais o dan god VBA.

1. Gwasgwch Alt + F11 allweddi i arddangos y Microsoft Visual Basic for Applications ffenestr.

2. Cliciwch Insert > Module, copïo a gludo islaw'r cod i'r modiwl.

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

doc pob swm posib o ddau rif 2

3. Cliciwch Tools > References, yn y dialog popping, gwiriwch Microsoft Scripting Runtime checkbox.

doc pob swm posib o ddau rif 3 saeth doc dde doc pob swm posib o ddau rif 4

4. Cliciwch OK i gau'r ymgom, yna pwyswch F5 i redeg y cod, mae deialog yn ymddangos i'ch atgoffa o ddewis rhestr i ddod o hyd i'r symiau posib.
doc pob swm posib o ddau rif 5

5. Cliciwch OK, yna rhestrir yr holl symiau posib o ddau rif yn y rhestr yng ngholofn C.
doc pob swm posib o ddau rif 6

Tip: Yn y llinyn cod, Ystod ("C1"). Newid maint (xDic.Count, 1), gallwch newid C1 i gell arall gan fod angen i chi roi'r canlyniad.


Find all possible combinations of two lists with List All Combinations

Os ydych chi am ddarganfod neu restru'r holl gyfuniadau posib o ddwy restr fel y dangosir isod, llun y List All Combinations cyfleustodau Kutools for Excel allwch chi o blaid.
doc pob swm posib o ddau rif 7

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

1. Cliciwch Kutools > Insert > List All Combinations.
doc pob swm posib o ddau rif 8

2. Yn y List All Combinations deialog, cliciwch y botwm dewis i ddewis y rhestr gyntaf y byddwch chi'n ei chyfuno.
doc pob swm posib o ddau rif 9

3. Cliciwch Add i ychwanegu'r rhestr i mewn Combinations list adran hon.
doc pob swm posib o ddau rif 10

4. Ailadroddwch gam 2 a 3 i ychwanegu'r ail restr at y Combinations list.
doc pob swm posib o ddau rif 11

5. Yna cliciwch Ok i ddewis cell i osod canlyniad y cyfuniad.
doc pob swm posib o ddau rif 12

6. Cliciwch OK. Mae'r holl gyfuniadau posib wedi'u rhestru mewn celloedd.
doc pob swm posib o ddau rif 13

sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir