এক্সেল সমন্বয় 6 [বন্ধ]

Question

সুপ্রভাত,

আমি পুনরাবৃত্তি ছাড়া 1 থেকে 6 সব সম্ভব সংমিশ্রণ এক্সেল করতে চেষ্টা করছি।

6! আমি কিভাবে 720 সম্ভাবনার তালিকা করতে পারেন

ধন্যবাদ, উদাহরণ 123456 132456 654321

Comments

এখানে সি সমাধান। কেন আপনি এক্সেল ব্যবহার করতে চান? আউটপুটটি নিতে এবং এটি 720 সারির মতো পেস্ট করা যথেষ্ট, নাকি আপনার কার্যকারিতার কিছু গতিশীল দিক আছে?

— Aron Foster

আপনি যদি চান তবে এক্সেলের মধ্যে এটি রাখতে VBA এ অরন ফস্টারের উদাহরণটি প্রয়োগ করতে পারেন।

— Eric F

আপনি নিজেকে খুঁজে figuring এই সব কোন প্রচেষ্টা করা আছে?

— Raystafarian

আপনি কি কোড এতদূর আছে? কি ঠিক কাজ করে এবং না?

— Mokubai

@ STTR - যদি এটি শুধুমাত্র একটি গণিত সাইট ছিল।

— fixer1234

Answer 1

এই ম্যাক্রো সহজ, কিন্তু ধীর:

Sub Pickz()
    Dim i As Long, j As Long, k As Long, l As Long, m As Long, n As Long
    Dim Z As Long
    Z = 1
    For i = 1 To 6
    For j = 1 To 6
    For k = 1 To 6
    For l = 1 To 6
    For m = 1 To 6
    For n = 1 To 6
    If Zort(i, j, k, l, m, n) Then
        Cells(Z, 1) = i & j & k & l & m & n
        Z = Z + 1
    End If
    Next n
    Next m
    Next l
    Next k
    Next j
    Next i
End Sub

Function Zort(i, j, k, l, m, n) As Boolean
    Dim c As Collection
    Set c = New Collection
    Zort = True
    On Error Resume Next
    c.Add i, CStr(i)
    c.Add j, CStr(j)
    c.Add k, CStr(k)
    c.Add l, CStr(l)
    c.Add m, CStr(m)
    c.Add n, CStr(n)
    If Err.Number = 0 Then
    Else
        Zort = False
        Err.Number = 0
    End If
    On Error GoTo 0
End Function

Comments

@ fixer1234 কোডটি চেষ্টা করে দেখুন ......... ZORT () 720 নমুনার আউটপুট হ্রাস।

— Gary's Student

কপি করুন Zort () বরাবর আমার পোস্ট থেকে ফাংশন Pickz () সাব।

— Gary's Student

আমি ভিবিএ উপর খুব rusty উপায়। একটি সংগ্রহে একটি সম্পত্তি যে সব সদস্যদের অনন্য হতে হবে?

— fixer1234

হ্যাঁ .... যদি আপনি এটি দিয়ে ব্যবহার করেন চাবি ( দ্য CStr () অংশ) সদৃশ প্রত্যাখ্যাত হয়

— Gary's Student

শিক্ষা জন্য ধন্যবাদ। +1 টি। আপনি যদি উচ্চাভিলাষী হন, এটি কীভাবে কাজ করে সে সম্পর্কে একটি সংক্ষিপ্ত ব্যাখ্যা সহ এটি একটি দুর্দান্ত সাধারণ উত্তর দেবে।

— fixer1234