سليم حاصبيا قام بنشر ديسمبر 11, 2018 مشاركة قام بنشر ديسمبر 11, 2018 اذا كان عندتا مجموعة من الارقام من واحد الى N ) N من اختيارك ) و يجب توزيع هذه الأرقام على جدول من M عامود ( M من اختيارك ابضاً) انظر الى الملف المرفق لمعرفة كيف يقوم الاكسل بفعل هذا الشيء الكود Option Explicit Sub CreateNumbers(rg As String, col_num As Long, max_num As Long) Dim n As Long Dim My_row As Long Dim My_col As Long ActiveSheet.Cells(6, 1).CurrentRegion.Clear For n = 0 To max_num - 1 My_row = n \ col_num My_col = n Mod col_num ActiveSheet.Range(rg).Offset(My_row, My_col) = n + 1 Next n End Sub '============================================== Sub give_numbers() Call CreateNumbers(Cells(6, 1).Address, [b2], [c2]) End Sub الملف مرفق Num_table.xlsm 5 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 11, 2018 مشاركة قام بنشر ديسمبر 11, 2018 أحسنت استاذ سليم ملف ممتاز جعله الله فى ميزان حسناتك 2 رابط هذا التعليق شارك More sharing options...
احمد غانم قام بنشر ديسمبر 12, 2018 مشاركة قام بنشر ديسمبر 12, 2018 احسنت اخ سليم ادامك الله ذخراً و عوناً 1 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر ديسمبر 12, 2018 مشاركة قام بنشر ديسمبر 12, 2018 بارك الله فيك أخى الحبيب جعله الله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر ديسمبر 15, 2018 مشاركة قام بنشر ديسمبر 15, 2018 السلام عليكم وددت أن أشارك هذا الموضوع بملف يقوم بالعمل نفسه لكن بالمعادلات (غير أن النتائج المنتظرة محدودة في النطاق A6:DZ1005 أي من 130 عمود و 1000 سطر)... أضفت بعض التنسيقات على الصف 4 (تنسيقات على الخلايا) و الصف 5 (تنسيق شرطي للتلوين)... بن علية حاجي Num_Table_Formulas.xlsx 4 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 15, 2018 مشاركة قام بنشر ديسمبر 15, 2018 جزاك الله كل خير استاذنا الكبير بن علية عمل رائع جعله الله فى ميزان حسناتك وبارك الله فى كل اخوانا من شعب الجزائر رابط هذا التعليق شارك More sharing options...
على متولى قام بنشر ديسمبر 17, 2018 مشاركة قام بنشر ديسمبر 17, 2018 السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا وجعل كل ايامكم رضا والسلام عليكم ورحمة الله وبركاته رابط هذا التعليق شارك More sharing options...
> محمد جمال < قام بنشر ديسمبر 24, 2018 مشاركة قام بنشر ديسمبر 24, 2018 السادة الكرام / عمالقة الإكسل, جزاكم الله عنا كل خير كان لى طلب يرجى التكرم بإفادتنا به لتعم الفائدة على المبدئين فى vba ومشكورين على وقتكم ومجهودكم رابط هذا التعليق شارك More sharing options...
haag292@yahoo.com قام بنشر يناير 2, 2019 مشاركة قام بنشر يناير 2, 2019 عمل جيد رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.