ياسر العربى

تفضل اخي الكريم ونأسف على التأخير ادرجت لك طريقة اخرى للتنوع تقبل تحياتي 3 يوزرفورم للبحث.rar

اخي الكريم لقد قمت بتوسيع نطاق البيانات فوق 16 الف صف ووقت نقل التذييل لم يتعدى ال16 ثانية لجهاز متوسط الامكانيات يعني لو جهاز كويس مش هياخد وقت كبير المهم السبب الاكيد كثرة المعادلات داخل المصنف والتنسيقات والكائنات هعملك طريقة وتجربها Sub RoundedRectangle3_Click() Dim last As Long Dim y As Long y = 40 Application.Calculation = xlManual Do Application.ScreenUpdating = False last = Sheets("ناجح").Range("a10000").End(xlUp).Row If y - 36 >= last Then GoTo 0 Sheets("كعب الشيت").Rows("2:7").Copy Sheets("ناجح").Rows(y).Insert Shift:=xlDown Application.CutCopyMode = False y = y + 36 Loop 0 Application.ScreenUpdating = True Application.Calculation = xlAutomatic MsgBox "تم بحمد الله" End Sub ضع الكود دا وجرب كدا

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

تفضل لعله المطلوب طباعة.rar

تفضل oficeina.rar

تفضل الحل البطاقة المدرسية.rar

جرب التأكيد على تفعيل الماكرو من ملفات التفعيل الخاصة بالريجستري المرفقة اذا لم يفلح معك الامر حاول تعمل اصلاح لنسخة الاوفيس او ازالتها وتنزيلها مره اخرى او ادخل على الموضوع الاتى لتشغيل البرنامج بدون تفعل الماكرو وجربه http://www.officena.net/ib/topic/69631-شغل-برنامجك-بدون-تفعيل-الماكرو-لمن-يعانون-من-تفعيل-الماكرو/ Enable Macros.rar

جرب المرفق اشتغل كان بها لو مشتغلش ونفس الرسالة يبقي تتأكد ان مفيش زرار في لوحة المفاتيح معلق غير كدا تقول نوع الاوفيس عندك ايه وجرب الطريقة دي مؤقتا ندخل للمسار دا C:\Program Files\MS Office\XLSTART نمسح الملف دا GWXL97.XLA نشغل البرنامج تاني Timer.rar

الخطأ في حاجتين Sub nexttick() sheet3.Range("B1").Value = sheet3.Range("B1").Value - TimeValue("00:00:01") If sheet3.Range("B1").Value <= TimeValue("00:00:01") Then sheet3.Shapes("textbox1").Fill.ForeColor.RGB = RGB(255, 0, 0) Else sheet3.Shapes("textbox1").Fill.ForeColor.RGB = RGB(255, 255, 255) End If starttimer End Sub اولا اسم الشيت ورقة3 وبالكود Sheet3 اما نغير الشيت لنفس الاسم او نغير الاسم بالكود لاسم الشيت الفعلي او نلغى اسم الشيت نهائيا طالما هنتعامل من داخل نفس الشيت كما وضح الاخ الكريم عبد السلام ابو العوافي ثانيا خطأ املائي في كلمة forcolor والاصل تكتب هكذا ForeColor

تفضل اخي الكريم ناصر اما بخصوص الهيدر فتستطيع عمله عن طريق تثبيت صفوف الهيدر لكل صفحة كما بالصورة 1213123.rar

الاخت الكريمة تفضلي هذه الفكرة لعلها تفيدك يتم نسخ اسطر لعمل تذييل من كعب الشيت الى شيت ناجح بعد كل 30 طالب مثلا ؟؟؟!! تقبلي تحياتي 1213123.rar

اخي الكريم تفضل هذا الموضوع افضل من هذه الطريقة لانك في هذا الكود تقوم بعمل المعادلات ومن ثم تحويلها لقيم اما داخل الموضوع الحساب مباشرة تفضل الموضوع http://www.officena.net/ib/topic/64572-الاستغناء-عن-المعادلات-والدوال-داخل-ورقة-العمل-لتجنب-بطئ-الملف/ تقبل تحياتي

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

الاخ الغالي ابو حنين مشكور على حلك الجميل ولكن يبقي العائق الذي يمنعنا من تقديم المساعدة بالشكل السليم وهو عدم وضوح المعطيات فلذلك ينتج اجابات خاطئة اخي الغالي علي المصري انا كنت مستغرب من موضوع ان الخلية نفسها لو فيها رقم واحد او اتنين يتم تعديل التنسيق ولكن عملتها لان كلامك يشير الى كدا __________________________ لدي الخلية C2 بها الرقم اما 1 او 2 إذا كان الرقم الموجود 1 اريد تنسيق الخلية كما يلي ____________________________ طبعا الخلية عائدة على C2 المهم عشان مطولشي عليكم تفضل المرفق Private Sub Worksheet_Activate() If AliElbasry.Range("I5") = 1 Then With AliELbasry2.Range("C5").Font .Name = "AdvertisingLight" .FontStyle = "Bold" .Size = 14 End With Else With AliELbasry2.Range("C5").Font .Name = "Candara" .FontStyle = "Bold" .Size = 14 End With End If End Sub او عن طريق الـــ Select Case كما وضح اخي الكريم ابو حنين Private Sub Worksheet_Activate() With AliELbasry2.Range("c5").Font Select Case AliElbasry.Range("i5").Value Case Is = 1: .Size = 14: .Name = "times newroman": .Bold = True Case Is = 2: .Size = 14: .Name = "Candara": .Bold = False End Select: End With End Sub Book1.rar

تفضل هل تقصد هكذا؟؟؟ Book1.rar

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

تفضل اخي ايمن 2.rar

تفضل اخي 1213123.rar

تفضل test1.rar

تسلم حبيبي بس واضح انك مشغول جامد بعيد عننا ربنا يعينك ياريس

اخي الكريم سعد جرب انك تضعها انت على الفورم داخل ال VBA وشوف هتشتغل ولا لا تقبل تحياتي

كل عام والامة الاسلامية بخير

يرجى ارفاق الملف او ملف مشابه له ببيانات وهميه لتصحيح الخطأ به

اخي الكريم ابو ادهم تم ارفاق حل المشكلة في المشاركة السابقة تقبل تحياتي

اخي الكريم البرنس النصراوي طلبك ما اكثره داخل المنتدى يرجى البحث قبل طرح المواضيع قم بالبحث عن ترحيل البيانات وستجد الكثير من الامثلة التى تريدها واكثر من ذلك تقبل تحياتي