alexandrien قام بنشر ديسمبر 20, 2020 مشاركة قام بنشر ديسمبر 20, 2020 السلام عليكم إخواني الأعزاء أرجو من كل من لديه القدرة على المساعدة في حل هذه المسألة أن يساعدني بالحل وأكون له من الشاكرين. لدي ملف من الاكسل ويحتوي على قاعدة بيانات ضخمة جدا وبها بيانات طلبة وأرغب في توليد كلمات مرور غير متكررة بحث يكون لكل طالب كلمة مرور عشوائية شرط ألا تقل عن 12 حرف وتحتوي على حروف لاتينية كلها. منها حروف كبيرة وحروف صغيرة ورموز رقمية وأرقام ومرفق ملف كمثال . Book1.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 21, 2020 أفضل إجابة مشاركة قام بنشر ديسمبر 21, 2020 جرب هذا الكود (لتغيير عدد كلمات السر استبدل في الكود الرقم 19 الى اي رقم تريده) Option Explicit Sub My_Paws() Dim col As Object Dim i%, m, x, Bol, s, k% Const How_many_Pass = 19 Set col = New Collection For i = 64 To 90: col.Add Chr(i): Next For i = 97 To 122: col.Add Chr(i): Next For i = 0 To 9: col.Add i: Next col.Add "*" m = 2 x = col.Count For i = 1 To How_many_Pass For k = 1 To 12 Bol = Int(Rnd() * (x - 1)) + 1 s = s & col(Bol) Next k Cells(m, "G") = s m = m + 1: s = "" Next End Sub الملف مرفق alexandrien.xlsm 3 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر ديسمبر 21, 2020 مشاركة قام بنشر ديسمبر 21, 2020 alexandrien أين انت من هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان