كيف يمكن إنشاء أو سرد جميع التباديل الممكنة في Excel؟
على سبيل المثال، لدي ثلاثة أحرف هي XYZ، وأرغب الآن في سرد جميع التباديل الممكنة لهذه الأحرف للحصول على النتائج الست التالية: XYZ وXZY وYXZ وYZX وZXY وZYX. فكيف يمكنك في Excel إنشاء أو سرد جميع هذه التباديل بسرعة عند استخدام عدد مختلف من الأحرف؟
إنشاء أو سرد جميع التباديل الممكنة استنادًا إلى الأحرف باستخدام كود VBA
إنشاء أو سرد جميع التباديل الممكنة استنادًا إلى الأحرف باستخدام كود VBA
قد يساعدك كود VBA التالي في سرد جميع التباديل استنادًا إلى العدد المحدد من الأحرف؛ يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة البرمجة (Module)، ثم الصق الكود التالي في نافذةالوحدة البرمجية (Module).
كود VBA: سرد جميع التباديل الممكنة في Excel
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 أحرف أو أكثر، فلن يعمل هذا الكود بسبب العدد الهائل من التباديل.
سرد أو إنشاء جميع التركيبات الممكنة من أعمدة متعددة
إذا كنت بحاجة إلى إنشاء جميع التركيبات الممكنة استنادًا إلى بيانات من أعمدة متعددة، فقد تجد صعوبة في العثور على طريقة فعّالة للتعامل مع هذه المهمة. ولكن، تأتي الأداة المساعدةKutools لـ Excel's قائمة جميع التركيباتلتنقذك! فهي تساعدك على سرد جميع التركيبات الممكنة بسرعة وسهولة.انقر لتنزيل Kutools لـ Excel!
Kutools لـ Excel: يحتوي على أكثر من 300 إضافة مفيدة لبرنامج Excel، وجربها مجانًا دون أي قيود لمدة 30 يومًا.نزّل وجرب الآن مجانًا!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل