نجوم المشاركات

السلام عليكم اريد كتابة نتيجة الارقام على الشكل التالي الرقم 100 في الخلية B3 هو الرقم المبدئي و الرقم 30 هوٍ الستيب 100+30 = 130 و هي القيمة G تتحدد الكتابة Up , Down من خلال سلسلة القيمة G مطروح و مضاف اليها Step كما يلي : 10 . 40 . 70 . 100 . 130 . 160 . 190 . 220 . 250 . 280 . 310 . 340 فاذا كان الرقم في العامود B مساويا أو اكبر من أحد قيم الدالة G يكتب Up و تصبح القيمة الجديدة هي G الجديدة مثال :الرقم في البدء هو 100 و الستيب 30 اذا القيمة G = 130 و الرقم في B5 = 140 و هو أكبر من G وتجاوز احد حدود السلسلة يكتب Up و تصبح القيمة الجديدة ل G هي 130 حسب السلسلة ... الان الرقم G الجديد هو 130 والقيمة في B8 = 220 و هو اكبر من G يكتب Up ثلاث مرات ( لانه تجاوز حدود السلسلة ثلاثا ) و تكون 220 هي قيمة G الجديدة حسب السلسلة وهكذا .... اما بالنسبة لخانة الكومنت : Date : هو تاريخ اليوم الموجود بجانب العامود B الذي تم عنده اختيار Up , Down Before Reaching : هي اقل قيمة قبل الوصول الى Up أو اكبر قيمة قبل الوصول الى Down مثال : بفرض اننا عند B6 = قيمة G الحالية = 130 G = 130 و الرقم عند B7 = 120 و بالتالي لم نصل الى 100 او 160 ( حسب السلسلة ) و عند B8 = 220 اذا نكتب كومينت داخل Up اقل قيمة وهي 120 1.rar

عند ربط اسم الادارة مع المدرسة تظهر رسالة لا اعلم لماذا رغم ان نموذج wazefa data يعمل جيدا فأين الخطأ nnn.rar

السلام عليكم ورحمة الله وبركاتة أريد أن أعرف علي أي أساس تتم الترقيات وشكراً .

السلام عليكم ورحمة الله وبركاته انا من المعجبين جدا بموضوعات المنتدى وعندي مشكله كبيره مش عارف حلها في اكسل 2010 بعد الانتهاء من شغلي على شيت الاكسل اقوم بالحفظ تظهر هذه الرساله المزعجه والغير منتظمه في الظهور your changes could not be saved because of a sharing violation try saving to a different file ياريت يا جماعه اللي يعرف حل المشكله ايه يبلغني مع العلم اني بستخدم انتي فيروس EST NOD

السلام عليكم كود الترحيل Sub kh_Start() Dim x Dim Cont As Integer, M As Integer, Z As Integer Dim r As Integer, rr As Integer, c As Integer, cc As Integer 1: x = InputBox("ادخل عدد الارقام . ") If x = Cancel Then Exit Sub x = Val(x) If x = 0 Then GoTo 1 Cont = Abs(Int(-x / 30)) M = x Mod 30 rr = 1 Z = 30 Sheets("02").UsedRange.ClearContents For r = 1 To x Step 30 c = c + 1 cc = cc + 1 If cc = Cont Then If M Then Z = M Sheets("02").Cells(rr, c).Resize(Z, 1).Value = Sheets("01").Cells(r, 1).Resize(Z, 1).Value If c = 7 Then c = 0: rr = rr + 30 Next End Sub كود المسح Sub kh_Clear() Sheets("02").UsedRange.ClearContents End Sub شاهد المرفق 2010 ترحيل الى جدول.rar

الاخ البروفوسير بارك الله فيك ونشاط ملحوظ وسرعه فى الاجابه والردود فى المساعده وحلول رائعه بارك الله فيك

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

تفضل اخي ملفك بعد تعديل snawnaw40.rar

لا غررررررررررررررررررررررررابه هذ التعاون بين الاحبه

بعد إذن أخوتى ولاثراء الموضوع حل أخر المعادلة المناسبة2.rar

بعد اذنك استاذنا طارق محمود الحل بالمشاركة التالية : http://www.officena.net/ib/index.php?showtopic=49214&p=299081 لم ارد ان ارفع الملف مرة اخرى هنا حتى لا يكون حمل على سيرفر الموقع ومكرر بدون فائدة .. تقبل تحياتى استاذنا الكبير طارق محمود

والله انه شرف لا استحقة ... شهادتك وسام على صدرى اخي حمادة عمر بارك الله فيك وفى عملك وزادك علم على علمك ..انما انت والاساتذة الكبار بالمنتدي المميزين فى كل شيء .. تقبل وافر احترامي و تحياتى اخي الكريم

اللهم امييييييييييييييييين ولا شكر على واجب اخي الخلوق .. الحمد لله ان الكود اعجبك وكان هو المطلوب .. تقبل تحياتى اخي