قصي

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

اشكرك اريد ان ضبفها في ملف لجمال الشطل انا اثق انك ملط المعادلات

اخي الكريم استاذ ياسر احبك الذي احببتني فيه عفواممكن تضع الكود قي ملف

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

الاستاذ شوقي السلام عليكم ورحمة الله اين مشاركاتك الشيقه لاتحرمنا من علمك جزاك الله كل خير من عشمي فيك

جزاك الله كل خير استاذ عبد الباري وحفظ الله فلسطين وابناءها

الاساتذه الكرام حفظكم الله الاستاذ سليم مشاركتك رقم 7 اعجبتني لكن لو فيها الترتيب بدون اضافه اعمده مساعده اخرى الاستاذ جمال عبد السميع معادلتك قمه ياريت نزيل علامة الخطأ التي تظهر والترتيب الابجدي مطلوب

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

الاخ الكريم استاذ عبد الباري مرفق ملف يحدد عدد الصفوف المطلوبه بالضبط للعلامة باقشير ضفه في ملفك ليزداد قوة على قوته باذن الله نكتب عدد الطلاب ثم نضغط زر فيظهر هذا العدد من الصفوف فقط KH_COPY.rar

الاستاذ الكريم عبد الباري هيا بنا نبحر في عملك القوي ليكون درسا للمهتمين بهذا المجال وليكون لك ولنا ان شاء الله عمل صالح ينتفع به في صفحة بيانات اساسيه وجدنا الكتابة بالخط البارز كيف تم ذلك في صفحة الشيت الورقي يوجد زر سحري اسمه تحديث وكوده الاتي On Error GoTo kh_Err تصفير_محدد kh_Application False '============================================= kh_cFormula Range("شيت_الصف_الرابع!$c$2:$g$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$k$2:$L$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$p$2:$t$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$x$2:$y$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$ac$2:$ag$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$ak$2:$al$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$ap$2:$at$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$ay$2:$ba$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$bf$2:$bk$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$bo$2:$bp$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$bt$2:$bx$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$ca$2:$cb$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$ce$2:$ci$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$cl$2:$cm$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$cp$2:$ct$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$cw$2:$cx$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$da$2:$de$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$dh$2:$di$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$dl$2:$dr$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$dv$2:$dw$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$ea$2:$ek$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$em$2:$em$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$eo$2:$ew$2"), 7, ورقة8.Range("b1") '============================================= kh_Err: kh_Application True If Err Then MsgBox "Err.Number : " & Err.Number Err.Clear ' Else: MsgBox " تم نسخ المعادلات بنجاح", vbMsgBoxRight, "الحمدلله" End If End Sub ' MyRng : الصف المخفي الذي يحوي المعادلات ملحوق باسم الورقة ' iRow : اول صف للبيانات ' Lastrow : آخر صف للبيانات Sub kh_cFormula(MyRng As Range, iRow As Integer, Lastrow As Long) Dim Col As Range Dim R As Long '======================== For Each Col In MyRng.Cells If Col.HasFormula Then For R = iRow To Lastrow With MyRng.Worksheet .Cells(R, Col.Column).FormulaR1C1 = Col.FormulaR1C1 .Cells(R, Col.Column).Value = .Cells(R, Col.Column) End With Next R End If Next '======================== Set Col = Nothing End Sub Sub kh_Application(ibol As Boolean) With Application .ScreenUpdating = ibol .Calculation = IIf(ibol, -4105, -4135) .EnableEvents = ibol End With End Sub نرجو شرحه بارك الله فيك وجغل هذا العمل من باب علم ينتفع به

حتى محرر الاكواد عليه باسوورد .. المنتدى للتعليم وانت تعلم ذلك اذن نسيت

الاستاذ ابراهيم جعلة الله فى ميزان حسناتك رجاء اكتب نبذه عن موضوك ان تكون جميع الباسووردات الرقم 1 انا كان عندي ملفات طيبه وكان لها باسوورد ومع مرور الوقت نسيت الرقم السري لها ماذا افعل تم مسحها مالهاش فايده

يسعدك ربي اخي الكريم استاذ عبد الباري الرابط ممتاز

.فالقائمة المنسدلة موجوده بالفعل فى الخلية المكتوب قيها اسم الفصل ( C10 ) اقتباس نريدها تاتي اوتوماتك من صفحة ادخال البيانات جزاك الله خيرا

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

الاستاذ الكريم عبد الباري انت بذلت مجهود راائع ربنا يبارك لك ويجزيك خيرا ارجو منك شرح الاكواد بطريقتك لتسهل الفهم للاحوه الذين يريدون التعلم .. علم ينتفع به جعله الله في كفة حسناتك

اخي الاستاذ عبد الباري مجهود عظيم وبدايه قويه منكم جزاك الله خيرا اجدت في تطويع عمل العلامة عبد الله باقشير في الشهادات واوائل الطلبه ولو زدته حسنا وكنت وضعت عمل كشوف المناداة وكذلك اوقام الجلوس ياسلام ... ربنا يجزيك خيرا

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

اضافة ولااروع عمل ارقام جلوس الطلاب وكشوف المناداه بأيسط الاكواد عمل أرقام الجلوس وكشوف المناداه.rar

الاساتذه الكرام استاذ احمد واستاذ صقر جزاكم الله كل خير .. يارب العمل تبارك الله اقترب من النهايه بفضل الله ثم بفضل اخونا عبد الله باقشير ثم بفضلكم لو نجحنا في ازاله خط تقطبع الورقة الافقي الثالث الي يظهر اسفل الصفحة يكون اكثر من رااائع في الجوهر والمظهر

اخي الكريم ابن مصر عند الضغط على زر مسح يتم المسح فعلا ويظهر عدد 3 ارقام جلوس مارأيك دام فضلك في ان يتم المسح ويترك 9 ارقام صفحة واحدة .. عشان جميع تنسيقات الصفحة تنتقل الى الصفحات الخرى وبكده نضبط فواصل الصفحات ونضبط خطوط تقطيع الورقة

اسعدك الله في الدارين اخي ابن مصر زر الطباعه فكرته رائعه فواصل الصفحات .. الخطوط الزرقاء لاتأتي مضبوطه

اخي الكريم مامعنى هذه المعادله لماذا هذه الارقام بالتحديد ؟ ومامعنى هذه For R = 1 To E - 1 ولماذا ناقص 1 --------------------- ومامعنى هذه الارقام =P1*10+1

الاستاذ الفذ ابن مصر السلام عليكم ورحمة الله وبركاته عملك ولااروع بارك الله فيك كان يوجد نقاط تسهل عمليه القطع بعد طباعة الصفحة موجودة النقاط الرأسيه وتم مسح النقاط الافقيه نريد وجودها لتسهل عمليه تقطيع ارقام الجلوس زرا الطباعة نريد ان تفعله

شكرا لاخلاقك الكريمه وعلمك الي ادعو الله ان يزيدك من فيضه يارب عمل ولااروع جاري دراسة المرفق