اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

الصفوف.rar

قام بنشر

السلام عليكم

اخي الكريم

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

فشاهد المرفق

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

الصفوف1.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

تم تعديل بواسطه الحسامي
قام بنشر

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information