الخضر قام بنشر يوليو 18, 2010 قام بنشر يوليو 18, 2010 السلام عليكم و رحمة الله تعالى و بركاته بمناسبة قدوم شهر رمضان الكريم ، اتمنى من الله العلي القدير أن يجعل صيامه يسيرا و كل الاعمال مقبولة .رمضان كريم لجميع الاخوة . ارفق هذا الملف الذي حاولت أن اطبق عليه عبارة for ......next و لكن بدون جدوى الاخطاء كثيرة .ارجو المساعدة .شكرااا الصفوف.rar
الحسامي قام بنشر يوليو 18, 2010 قام بنشر يوليو 18, 2010 السلام عليكم اخي الكريم اذ كنت تقصد بانشاء الصفوف بترحيل فشاهد المرفق وكل عام وانت بخير الصفوف1.rar
الخضر قام بنشر يوليو 18, 2010 الكاتب قام بنشر يوليو 18, 2010 شكرا على سرعة الاستجابة و لكن ليس هذا ما اريده .اليك الملف مرة اخرى الصفوف2.rar
الحسامي قام بنشر يوليو 18, 2010 قام بنشر يوليو 18, 2010 السلام عليكم عسى ان اكون قد فهمت عليك وما يعني توليد الارقام هنا مرفق حسب ما فهمت الصفوف2 معدل.rar
عبدالله باقشير قام بنشر يوليو 18, 2010 قام بنشر يوليو 18, 2010 السلام عليكم بارك الله فيك اخي الحسامي وبعد اذنك دي محاولة حسب ما فهمت من الطلب والله اعلم 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
الحسامي قام بنشر يوليو 19, 2010 قام بنشر يوليو 19, 2010 (معدل) السلام عليكم اخي خبور بارك الله فيك والله لم أفهم المطلوب إلا منك ومن إبداعاتك ولاثراء الموضوع هنا حل بأستخدام الكود التالي وهو نفس مبدأ الكود الذي طرحته مرفق ملف 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 بواسطه الحسامي
الخضر قام بنشر يوليو 19, 2010 الكاتب قام بنشر يوليو 19, 2010 السلام عليكم و رحمة الله تعالى وبركاته تحية معبقة برائحة الفل و الياسمين و كافة الورود الى الاخوة القائمين على ادارة منتدى اكسل الجميل.اشكركم شكرامن عمق الفؤاد على سرعة الرد فإن دل فإنما يدل على المحبة و التواصل بين جميع أنباء المة الاسلامية العربية من المشرق الى الخليج .دمتم لنا ذخرا و نبعا من ينابيع المعرفة .منكم نتعلم و نتمتع بكل ما هو شيق و هادف.100000000 شكر
عبد الفتاح كيرة قام بنشر يوليو 19, 2010 قام بنشر يوليو 19, 2010 (معدل) هذا مقارب 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.