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.
Find all possible sums of two numbers in a list with VBA code
Find all possible combinations of two lists with List All Combinations
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
3. Cliciwch Tools > References, yn y dialog popping, gwiriwch Microsoft Scripting Runtime checkbox.
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.
5. Cliciwch OK, yna rhestrir yr holl symiau posib o ddau rif yn y rhestr yng ngholofn C.
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.
Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
1. Cliciwch Kutools > Insert > List All Combinations.
2. Yn y List All Combinations deialog, cliciwch y botwm dewis i ddewis y rhestr gyntaf y byddwch chi'n ei chyfuno.
3. Cliciwch Add i ychwanegu'r rhestr i mewn Combinations list adran hon.
4. Ailadroddwch gam 2 a 3 i ychwanegu'r ail restr at y Combinations list.
5. Yna cliciwch Ok i ddewis cell i osod canlyniad y cyfuniad.
6. Cliciwch OK. Mae'r holl gyfuniadau posib wedi'u rhestru mewn celloedd.