الحديثة

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

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

او ممكن شرح كود الاستاذ خبور اوشرح كود زرع الدالة ولكم جزيل الشكر

استاذى العزيز لك منى كل تقدير واحترام واشكرك على سعة صدرك وعلمك الذى افادنى كثيرا ولى طلب لو طبقنا هذا على الورقة 1 بحيث يضع على درجة الترم 2 مربع اذا كانت اقل من 15 درجة اما فى مجموع الدرجة للمادة يكون عليها دائرة بمعنى استعمل كود لدرجة ربع الدرجة فى الترم 2 يكون مربع وكود للدرجة المادة اقل من 40 درجة فى العربى يضع دائرة هل هذا ممكن باى طريقة

استاذى عبد الله المجرب بعد التحية والاحترام ام اتوصل الى الحل ولكن اليك المرفك اريد مربع على درجة الترم الثانى اذا كان اقل من 15 درجة ومجموع العربى لو اقل من 40 دائرة الثالث.rar

بيطلع خطاء فى السطر If (cCell.Value >= MinDegree Or cCell.Formula = "") And (cCell.Value "Û" And cCell.Value "ÛÜ") Then

انا استخدم هذا الكود Sub sDrawOval() If TypeName(Selection) <> "Range" Then Exit Sub Dim ssRange As Range Set ssRange = Selection DrawOvals ssRange, 60, 0.1 End Sub Function fDrawOval(ByVal fRange As Range, MinDegree As Single, MarginRatio As Single) As String Application.Volatile DrawOvals fRange, MinDegree, MarginRatio fDrawOval = "" End Function Function DrawOvals(sRange As Range, MinDegree As Single, OvMargRatio As Single) Dim cCell As Range Dim shShape As Shape Dim OvName As String, OvSheet As String On Error GoTo DR_OVAL_Err For Each cCell In sRange OvName = "oval" + cCell.AddressLocal OvSheet = cCell.Worksheet.Name If IsExistShape(OvName, OvSheet) Then 'If cCell.Value >= MinDegree Or cCell.Formula = "" Then If (cCell.Value >= MinDegree Or cCell.Formula = "") And (cCell.Value <> "Û" And cCell.Value <> "ÛÜ") Then cCell.Worksheet.Shapes(OvName).Delete End If Else 'If cCell.Value < MinDegree And cCell.Formula <> "" Then If cCell.Value < MinDegree And cCell.Formula <> "" Or (cCell.Value = "Û" Or cCell.Value = "ÛÜ") Then MrH = OvMargRatio * cCell.Height MrW = OvMargRatio * cCell.Width OvalW = cCell.Width - MrW OvalH = cCell.Height - MrH Set shShape = cCell.Worksheet.Shapes.AddShape(msoShapeOval, cCell.Left + MrW / 2, cCell.Top + MrH / 2, OvalW, OvalH) With shShape .Name = OvName .Fill.Transparency = 1# .Fill.Visible = msoFalse .Line.ForeColor.RGB = RGB(255, 0, 0) .Line.Weight = 1# End With End If End If Next Set cCell = Nothing Exit Function DR_OVAL_Err: MsgBox Err & " : " & Error Err.Clear Resume Next End Function Function IsExistShape(ShapeName As String, SheetName As String) As Boolean Dim shShape As Shape IsExistShape = False For Each shShape In ThisWorkbook.Worksheets(SheetName).Shapes If shShape.Name = ShapeName Then IsExistShape = True Exit Function End If Next shShape End Function

هل يمكن عمل مربع بدل الدائرة فى كود الدوائر الحمراء اى عمل مربع على ربع الدرجة ودائرة على على الدرجة للمجموع

شكراااااااااااااا لك استاذى العزيز على سرعة مد يد العون فلك كل احترام وتقدير

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

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

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

الفاضل المحترم بوش اريد الترحيل على نتيجة الطالب اذا كان الطالب ناجح ينقل الى شيت الناجح واذا كان لة دور ثانى ينقل الى شيت الراسب والعمود الذى بة النتيجة هو العمود 38 او عمود الدوائر وهو العمود 37

الرجاء شرح عمل وتصحيح الكود

الاستاذ القدير المحترم خبور الخير لقد وضعت الكود فى هذا الشيت ولم يعمل ما هو الخطئ فى هذا الكود مرفق الشيت 3.rar

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

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

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

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

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

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

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

لو تكرمتم ممكن شرح طريقة تثبيت عناوين رؤوس الجدول في مطلع كل صفحة عند الطباعة تظهر عناوين رؤوس الجدول في مطلع كل صفحة مثلا الاسم والرقم كل العناوين تظهر فى كل الصفحات

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

المرفق الاخ العزيز مع سرعة الرد لو امكن ذلك ___________.rar