İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də bir siyahıda iki nömrənin mümkün olan bütün məbləğlərini necə tapmaq olar?

Burada ehtimal olunan nömrələrin siyahısı olduğunu düşünsək, bu siyahıda aşağıda göstərilən ekranındakı iki ədədin mümkün olan bütün məbləğlərini tapa bilərsinizmi? Excel-də heç bir daxili funksiya bu işi həll edə bilməz. İndi sizə bunu idarə etmək üçün VBA kodunu təqdim edirəm.
1 iki nömrənin bütün mümkün dəyərlərini doc

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

Find all possible combinations of two lists with List All Combinationsyaxşı fikir3


List all combinations of two or more lists in Excel sheet

Məsələn, dəyərlərinizin iki siyahısı var, istədiyinizi bu iki siyahıdan birbaşa ekran görüntüsünün aşağıda göstərilən bütün mümkün birləşmələri almaq üçün birləşdirməkdir. Ümumiyyətlə, onları tək-tək birləşdirə bilərsiniz, amma birləşdirmək üçün lazım olan onlarla dəyər varsa, bu dərslik üsulu çox vaxt xərcləyir. Bu halda, müraciət etməyə cəhd edə bilərsiniz Kutools for Excel's List All Combinations tez və asanlıqla iki və ya daha çox siyahıdan ibarət olan bütün kombinasiyalarını yarada bilən yardım proqramı. Click for 60 days free trial!
doc siyahısı kombinasiyası
Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days.

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

Bir siyahıda iki ədəd bütün mümkün miqdarları tapmaq istəyirsinizsə, VBA kodunun altına müraciət edə bilərsiniz.

1. Basın Alt + F11 düymələri göstərmək üçün Microsoft Visual Basic for Applications pəncərə.

2. klik Insert > Module, kodu aşağıda qoyun və yapışdırın.

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 iki nömrənin bütün mümkün dəyərlərini doc

3. klik Tools > References, açma dialoqunda yoxlayın Microsoft Scripting Runtime onay.

3 iki nömrənin bütün mümkün dəyərlərini doc doc arrow sağ 4 iki nömrənin bütün mümkün dəyərlərini doc

4. klik OK dialoqu bağlamaq üçün düyməni basın F5 kodunu çalıştırmak üçün mümkün bir məbləği tapmaq üçün bir siyahısını seçməyi xatırlatmaq üçün bir dialoq çıxır.
5 iki nömrənin bütün mümkün dəyərlərini doc

5. klik OK, siyahıda iki ədəd olan bütün mümkün sütunlar C sütunda verilmişdir.
6 iki nömrənin bütün mümkün dəyərlərini doc

Tip: Kod stringində, Range ("C1") ölçüsünü dəyişin (xDic.Count, 1), nəticəni yerləşdirmək üçün C1-i başqa bir hüceyrəyə dəyişə bilərsiniz.


Find all possible combinations of two lists with List All Combinations

Əgər iki siyahıdakı bütün mümkün birləşmələri göstərilən ekran görüntüsü kimi göstərmək və ya siyahıya almaq istəyirsinizsə, bu List All Combinations faydası Kutools for Excel bir lütf edə bilərsiniz.
7 iki nömrənin bütün mümkün dəyərlərini doc

1. klik Kutools > Insert > List All Combinations.
8 iki nömrənin bütün mümkün dəyərlərini doc

2. İçində List All Combinations dialoq, birləşdirəcək ilk siyahı seçmək üçün seçmək düyməsini basın.
9 iki nömrənin bütün mümkün dəyərlərini doc

3. klik Add siyahı əlavə etmək Combinations list bölmə.
10 iki nömrənin bütün mümkün dəyərlərini doc

4. İkinci siyahını əlavə etmək üçün 2 və 3 addımlarını təkrarlayın Combinations list.
11 iki nömrənin bütün mümkün dəyərlərini doc

5. Sonra basın Ok birləşmənin nəticəsini yerləşdirmək üçün bir hüceyrəni seçmək.
12 iki nömrənin bütün mümkün dəyərlərini doc

6. klik OK. Bütün mümkün birləşmələr hüceyrələrdə verilmişdir.
13 iki nömrənin bütün mümkün dəyərlərini doc

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.