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

วิธีค้นหาผลรวมของตัวเลขสองตัวที่เป็นไปได้ทั้งหมดในรายการใน Excel

สมมติว่านี่คือรายการของตัวเลขตอนนี้คุณสามารถหาผลรวมที่เป็นไปได้ทั้งหมดของตัวเลขสองตัวในรายการนี้ตามภาพด้านล่างนี้หรือไม่? ใน Excel ไม่มีฟังก์ชันในตัวที่สามารถแก้ปัญหานี้ได้ ตอนนี้ฉันแนะนำรหัส VBA เพื่อจัดการกับมัน
doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 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

doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 2

3 คลิก Tools > Referencesในกล่องโต้ตอบ popping ให้เลือก Microsoft Scripting Runtime ช่องทำเครื่องหมาย

doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 3 doc ลูกศรขวา doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 4

4 คลิก OK เพื่อปิดกล่องโต้ตอบจากนั้นกด F5 เพื่อเรียกใช้รหัสกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกรายการเพื่อค้นหาผลรวมที่เป็นไปได้
doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 5

5 คลิก OKจากนั้นผลรวมที่เป็นไปได้ทั้งหมดของตัวเลขสองตัวในรายการจะแสดงในคอลัมน์ C
doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 6

Tip: ในสตริงโค้ดช่วง ("C1") ปรับขนาด (xDic.Count, 1) คุณสามารถเปลี่ยน C1 เป็นเซลล์อื่นได้ตามที่คุณต้องการเพื่อวางผลลัพธ์


Find all possible combinations of two lists with List All Combinations

หากคุณต้องการค้นหาหรือแสดงรายการชุดค่าผสมที่เป็นไปได้ทั้งหมดของสองรายการดังภาพด้านล่างที่แสดง List All Combinations ประโยชน์ของ Kutools for Excel สามารถช่วยคุณได้
doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 7

Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

1 คลิก Kutools > Insert > List All Combinations.
doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 8

2 ใน List All Combinations คลิกปุ่มเลือกเพื่อเลือกรายการแรกที่คุณจะรวมเข้าด้วยกัน
doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 9

3 คลิก Add เพื่อเพิ่มรายชื่อเข้าไป Combinations list มาตรา.
doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 10

4. ทำซ้ำขั้นตอนที่ 2 และ 3 เพื่อเพิ่มรายการที่สองลงในไฟล์ Combinations list.
doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 11

5 จากนั้นคลิก Ok เพื่อเลือกเซลล์เพื่อวางผลการผสม
doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 12

6 คลิก OK. ชุดค่าผสมที่เป็นไปได้ทั้งหมดแสดงอยู่ในเซลล์
doc ผลบวกทั้งหมดที่เป็นไปได้ของตัวเลขสองตัว 13

จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ