moussaanis قام بنشر يونيو 5, 2019 مشاركة قام بنشر يونيو 5, 2019 لدي عمود فيه أرقام من1 الى300 اريد ان يصل الرقم إلى 50 و يصعد ب50اخرى لعمود ثاني و هكذا دوليك فكيف اقوم بها بدالة لاكمل 5 اعمدة كل واحد فيه50 مصفوفة.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة عادل حنفي قام بنشر يونيو 5, 2019 أفضل إجابة مشاركة قام بنشر يونيو 5, 2019 (معدل) اخي ضع في الخلية B2 بداية الارقام وفي الخليةة B3 ضع الرقم الذي ستنتهي عنده الارقام ثم اضغط علي زر توزيع ارجو ان يكون المطلوب مصفوفة.xlsm تم تعديل يونيو 5, 2019 بواسطه عادل حنفي 1 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يونيو 5, 2019 مشاركة قام بنشر يونيو 5, 2019 أحسنت أستاذ عادل كود ممتاز بارك الله فيك وكل عام وانتم بخير 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 5, 2019 مشاركة قام بنشر يونيو 5, 2019 بعد اذن الاستاذ عادل زيادة في اثراء الموضوع هذا الكود Private Sub CommandButton1_Click() Dim My_min#: My_min = Application.Min([b2:b3]) Dim My_max#: My_max = Application.Max([b2:b3]) Dim i#, c%, r%, Max_ro% c = 4: r = 3: Max_ro = 52 Range("b2").CurrentRegion.Offset(1, 2) = vbNullString For i = My_min To My_max Cells(r, c) = i r = r + 1 If r = Max_ro + 1 Then: r = 3: c = c + 1 Next End Sub 2 رابط هذا التعليق شارك More sharing options...
moussaanis قام بنشر يونيو 5, 2019 الكاتب مشاركة قام بنشر يونيو 5, 2019 حقيقة شكرا لكم من كل قلبي وعيدكم مبارك اذا كانت وضعية اخرى ارقام عشوائية هل الكود هو نفسه 1 رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يونيو 5, 2019 مشاركة قام بنشر يونيو 5, 2019 استاذ علي محمد مشكور مرورك وكلماتك استاذ سليم حاصبيا كعادتك كود جميل وبدون استأذان اخي فالهدف واحد الاستاذ موسي انيس ان لم اخطئ في الاسم بالنسبة للكود ممكن ينفع بشرط معرفة درجة العشوائية وطريقة وجود الارقام بالملف الاساسي وكل عام وانتم بخير 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 5, 2019 مشاركة قام بنشر يونيو 5, 2019 51 دقائق مضت, moussaanis said: حقيقة شكرا لكم من كل قلبي وعيدكم مبارك اذا كانت وضعية اخرى ارقام عشوائية هل الكود هو نفسه لم افهم ما تقصده 2 دقائق مضت, عادل حنفي said: استاذ علي محمد مشكور مرورك وكلماتك استاذ سليم حاصبيا كعادتك كود جميل وبدون استأذان اخي فالهدف واحد الاستاذ موسي انيس ان لم اخطئ في الاسم بالنسبة للكود ممكن ينفع بشرط معرفة درجة العشوائية وطريقة وجود الارقام بالملف الاساسي وكل عام وانتم بخير تشرفت بمروركم الكريم استاذ عادل 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 5, 2019 مشاركة قام بنشر يونيو 5, 2019 اذا اردت التوزبع عشوائي هذا الماكرو Option Explicit Sub choose_rnd() '============================================= Rem this Macro distributs all numbers bettween Two given Ones _ In Columns with fixed lenght(by Choise) _ without repetition _ ========>> Created by_salim hasbaya On 6/6/2019 '============================================= If ActiveSheet.Name <> "SALIM" Then Exit Sub Dim i% Dim myStart%: myStart = Application.Min([c2:c3]) Dim myEnd%: myEnd = Application.Max([c2:c3]) Range("c2").CurrentRegion.Offset(2, 1).ClearContents If Not IsNumeric([a2]) Or [a2] < 1 _ Or Int([a2]) <> [a2] Then [a2] = 50 Dim Max_ro%: Max_ro = [a2] + 2 If Max_ro > 102 Then Max_ro = 52 Dim r%, c% r = 3: c = 4 With CreateObject("System.Collections.SortedList") For i = myStart To myEnd .Item(Rnd) = i Next i i = 0 Do Until i > .Count - 1 Cells(r, c) = .GetByIndex(i) r = r + 1 If r = Max_ro + 1 Then r = 3: c = c + 1 i = i + 1 Loop End With End Sub الملف مرفق Rnd _Distribution.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
moussaanis قام بنشر يونيو 5, 2019 الكاتب مشاركة قام بنشر يونيو 5, 2019 حقيقة شكرا لكم ولمروركم الرائع ودمتم بالف خير ومنارة لكل اعضاء المنتدى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان