انشاء الصفوف

[الخضر]

السلام عليكم و رحمة الله تعالى و بركاته

بمناسبة قدوم شهر رمضان الكريم ، اتمنى من الله العلي القدير أن يجعل صيامه يسيرا و كل الاعمال مقبولة .رمضان كريم لجميع الاخوة .

ارفق هذا الملف الذي حاولت أن اطبق عليه عبارة for ......next و لكن بدون جدوى الاخطاء كثيرة .ارجو المساعدة .شكرااا

الصفوف.rar

[الحسامي]

السلام عليكم

اخي الكريم

اذ كنت تقصد بانشاء الصفوف بترحيل

فشاهد المرفق

وكل عام وانت بخير

الصفوف1.rar

[الخضر]

شكرا على سرعة الاستجابة و لكن ليس هذا ما اريده .اليك الملف مرة اخرى

الصفوف2.rar

[الحسامي]

السلام عليكم

عسى ان اكون قد فهمت عليك

وما يعني توليد الارقام

هنا مرفق حسب ما فهمت

الصفوف2 معدل.rar

[قصي]

جزاك الله كل خير اخي العمده

وبارك الله لك

[عبدالله باقشير]

السلام عليكم

بارك الله فيك اخي الحسامي

وبعد اذنك

دي محاولة حسب ما فهمت من الطلب

والله اعلم

Private Sub CommandButton1_Click()

Dim I As Integer, Z As Integer, R As Integer

Range("C4:F25").ClearContents

For I = 1 To 4

    R = 0

    Z = Val(Me.Controls("TextBox" & I))

    Do While R < Z

        R = R + 1

        Cells(3 + R, I + 2).Value = I & "م" & R

    Loop

    Me.Controls("TextBox" & I).Value = ""

Next I

End Sub

خبور خير

الصفوف3.rar

[الحسامي]

السلام عليكم

اخي خبور بارك الله فيك

والله لم أفهم المطلوب إلا منك ومن إبداعاتك

ولاثراء الموضوع هنا حل بأستخدام الكود التالي

وهو نفس مبدأ الكود الذي طرحته

مرفق ملف

Private Sub CommandButton1_Click()

Range("C4:F25").ClearContents

For i = 3 To 6

For k = 1 To Me.Controls("TextBox" & i - 2).Value

Cells(3 + k, i) = i - 2 & "م" & k

Next k

Me.Controls("TextBox" & i - 2).Value = ""

Next i

End Sub

الصفوف4.rar

تم تعديل يوليو 19, 2010 بواسطه الحسامي

[الخضر]

السلام عليكم و رحمة الله تعالى وبركاته

تحية معبقة برائحة الفل و الياسمين و كافة الورود الى الاخوة القائمين على ادارة منتدى اكسل الجميل.اشكركم شكرامن عمق الفؤاد على سرعة الرد فإن دل فإنما يدل على المحبة و التواصل بين جميع أنباء المة الاسلامية العربية من المشرق الى الخليج .دمتم لنا ذخرا و نبعا من ينابيع المعرفة .منكم نتعلم و نتمتع بكل ما هو شيق و هادف.100000000 شكر

[عبد الفتاح كيرة]

هذا مقارب

Private Sub CommandButton1_Click()

Range("c4:f50").ClearContents

Dim i As Integer

For j = 1 To 4

For i = 1 To Val(Me.Controls("TextBox" & j).Text)

    Cells(i + 3, j + 2).Value = j & " م" & i

    Next i

    Next j

End Sub

تم تعديل يوليو 19, 2010 بواسطه kemas