كيفية إنشاء أو سرد كافة التباديل الممكنة في Excel؟
على سبيل المثال ، لدي ثلاثة أحرف XYZ ، الآن ، أريد سرد جميع التباديل الممكنة بناءً على هذه الأحرف الثلاثة للحصول على ست نتائج مختلفة على النحو التالي: XYZ و XZY و YXZ و YZX و ZXY و ZYX. في Excel ، كيف يمكنك إنشاء أو سرد كافة التباديل بسرعة بناءً على عدد مختلف من الأحرف؟
قم بإنشاء أو سرد كافة التباديل الممكنة بناءً على أحرف برمز VBA
قم بإنشاء أو سرد كافة التباديل الممكنة بناءً على أحرف برمز 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 زر ، يتم عرض جميع التباديل الممكنة في العمود A من ورقة العمل النشطة. انظر لقطة الشاشة:
ملاحظات: إذا كان طول الحرف الذي تم إدخاله يساوي أو يزيد عن 8 أحرف ، فلن يعمل هذا الرمز نظرًا لوجود عدد كبير جدًا من التبديلات.
سرد أو إنشاء كل المجموعات الممكنة من أعمدة متعددة
إذا كنت بحاجة إلى إنشاء جميع المجموعات الممكنة بناءً على بيانات أعمدة متعددة ، فربما لا توجد طريقة جيدة للتعامل مع المهمة. لكن، كوتولس ل إكسيل's سرد كافة المجموعات يمكن أن تساعدك الأداة على سرد كافة التركيبات الممكنة بسرعة وسهولة. انقر لتنزيل Kutools for Excel!
كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!