एक्सेल में सभी संभावित क्रमपरिवर्तन कैसे उत्पन्न या सूचीबद्ध करें?
उदाहरण के लिए, मेरे पास तीन अक्षर XYZ हैं, अब, मैं छह अलग-अलग परिणाम प्राप्त करने के लिए इन तीन अक्षरों के आधार पर सभी संभावित क्रमपरिवर्तन सूचीबद्ध करना चाहता हूं: XYZ, XZY, YXZ, YZX, ZXY और ZYX। एक्सेल में, आप विभिन्न वर्णों की संख्या के आधार पर सभी क्रमपरिवर्तनों को शीघ्रता से कैसे उत्पन्न या सूचीबद्ध कर सकते हैं?
VBA कोड वाले वर्णों के आधार पर सभी संभावित क्रमपरिवर्तन उत्पन्न करें या सूचीबद्ध करें
VBA कोड वाले वर्णों के आधार पर सभी संभावित क्रमपरिवर्तन उत्पन्न करें या सूचीबद्ध करें
निम्नलिखित वीबीए कोड आपके अक्षरों की विशिष्ट संख्या के आधार पर सभी क्रमपरिवर्तनों को सूचीबद्ध करने में आपकी सहायता कर सकता है, कृपया निम्नानुसार कार्य करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: एक्सेल में सभी संभावित क्रमपरिवर्तनों की सूची बनाएं
Sub GetString()
'Updateby Extendoffice
Dim xStr As String
Dim FRow As Long
Dim xScreen As Boolean
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xStr = Application.InputBox("Enter text to permute:", "Kutools for Excel", , , , , , 2)
If Len(xStr) < 2 Then Exit Sub
If Len(xStr) >= 8 Then
MsgBox "Too many permutations!", vbInformation, "Kutools for Excel"
Exit Sub
Else
ActiveSheet.Columns(1).Clear
FRow = 1
Call GetPermutation("", xStr, FRow)
End If
Application.ScreenUpdating = xScreen
End Sub
Sub GetPermutation(Str1 As String, Str2 As String, ByRef xRow As Long)
Dim i As Integer, xLen As Integer
xLen = Len(Str2)
If xLen < 2 Then
Range("A" & xRow) = Str1 & Str2
xRow = xRow + 1
Else
For i = 1 To xLen
Call GetPermutation(Str1 + Mid(Str2, i, 1), Left(Str2, i - 1) + Right(Str2, xLen - i), xRow)
Next
End If
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और आपको उन वर्णों को दर्ज करने की याद दिलाने के लिए एक प्रॉम्प्ट बॉक्स पॉप आउट होता है जिन्हें आप सभी क्रमपरिवर्तनों को सूचीबद्ध करना चाहते हैं, स्क्रीनशॉट देखें:
4. अक्षर दर्ज करने के बाद क्लिक करें OK बटन, सभी संभावित क्रमपरिवर्तन सक्रिय वर्कशीट के कॉलम ए में प्रदर्शित होते हैं। स्क्रीनशॉट देखें:
नोट: यदि दर्ज किए गए वर्ण की लंबाई 8 वर्णों के बराबर या उससे अधिक है, तो यह कोड काम नहीं करेगा क्योंकि बहुत अधिक क्रमपरिवर्तन हैं।
एकाधिक स्तंभों से सभी संभावित संयोजनों को सूचीबद्ध करें या उत्पन्न करें
यदि आपको एकाधिक कॉलम डेटा के आधार पर सभी संभावित संयोजन उत्पन्न करने की आवश्यकता है, तो शायद कार्य से निपटने का कोई अच्छा तरीका नहीं है। लेकिन, एक्सेल के लिए कुटूल's सभी संयोजनों की सूची बनाएं उपयोगिता आपको सभी संभावित संयोजनों को जल्दी और आसानी से सूचीबद्ध करने में मदद कर सकती है। एक्सेल के लिए कुटूल डाउनलोड करने के लिए क्लिक करें!
एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। अभी डाउनलोड करें और निःशुल्क परीक्षण करें!
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!