جدول ارقام

[سليم حاصبيا]

اذا كان عندتا مجموعة من الارقام من واحد الى 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

[Ali Mohamed Ali]

أحسنت استاذ سليم ملف ممتاز جعله الله فى ميزان حسناتك

[احمد غانم]

احسنت اخ سليم

ادامك الله ذخراً و عوناً

[Yasser Fathi Albanna]

بارك الله فيك أخى الحبيب

جعله الله فى ميزان حسناتك

[بن علية حاجي]

السلام عليكم

وددت أن أشارك هذا الموضوع بملف يقوم بالعمل نفسه لكن بالمعادلات (غير أن النتائج المنتظرة محدودة في النطاق A6:DZ1005 أي من 130 عمود و 1000 سطر)... أضفت بعض التنسيقات على الصف 4 (تنسيقات على الخلايا) و الصف 5 (تنسيق شرطي للتلوين)...

بن علية حاجي

Num_Table_Formulas.xlsx

[Ali Mohamed Ali]

جزاك الله كل خير استاذنا الكبير بن علية عمل رائع جعله الله فى ميزان حسناتك

وبارك الله فى كل اخوانا من شعب الجزائر

[على متولى]

السلام عليكم ورحمة الله وبركاته
جزاكم الله خيرا
وجعل كل ايامكم رضا
والسلام عليكم ورحمة الله وبركاته

[> محمد جمال <]

السادة الكرام / عمالقة الإكسل,

جزاكم الله عنا كل خير كان لى طلب يرجى التكرم بإفادتنا به لتعم الفائدة على المبدئين فى vba ومشكورين على وقتكم ومجهودكم 

 

[haag292@yahoo.com]

عمل جيد