عطية23

استاذنا الفاضل جزيل الشكر جعله الله في ميزان حسناتك جزاك الله خيراً وبارك فيك

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

السلام عليكم ارجو من حضراتكم مساعدتى في الملف المرفق المطلوب انه يوجد مناطق ولها اكواد في ورقة واحد وفي ورقة 2 يوجد جدول به بيانات ارجو عندما اكتب اسم في العمود d يتم احضار كود المنطقة من ورقة1 ولكم جزيل الشكر ولو تم شرح الكود فلكم الفضل والشكر حتى استطيع ان اعدل عليه عند تغيير البيانات اكواد.xlsx

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

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

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

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

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

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

استاذى العزيز السلام عليكم وجدت هذا الكود ولكن اطلب تعديل عليه Function CountShapes(rngSearch As Range) As Integer Dim sh As Shape For Each sh In rngSearch.Parent.Shapes If Not Intersect(rngSearch, sh.TopLeftCell) Is Nothing Then CountShapes = CountShapes + 1 End If Next sh End Function هو ان يكون مدى الكود صف مثلا يعد الدوائر منa2 : a9 يكتب العدد في الخلية a11 وهكذا مع باقي الصفوف

السلام عليكم المطلوب هو كود لحساب عدد الخلايا التى عليها دوائر ولكم جزيل الشكر عدد الخلايا التى حولها دائرة.xls

السلام عليكم استاذنا الغالى شكر الله لك وجزاك واعطاك وبارك في ذريتك وفيت وكفيت جعله الله في ميزان حسناتك وجعله علم ينتفع به شكراً

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

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

فضلا الخلايا الفارغة تحت اسم المدرس بالجدول ارجو الا يحتسبها الكود لانى عنداضع الفصل تحت اسم المدرس يضع عليه دائرة

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

الملف المرفق به حصص والمطلوب اذا تكرمتم وضع دوائر حول الحصص الزائدة والملف به شرح المطلوب ولك الشكر وضع دوائر حمراء على الحصص.xls

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

السلام عليكم ورحمة الله وبركاته المطلوب فى استمارة الحصص كود يضع دائرة على الخلايا وهى متغيرة وليست ثابتة ممكن تكون 8 خلايا وممكن يكون اكثر من 8 ممكن تصل 35 خلية وكذلك مكان الخلايا متغير وليس ثابت المطلوب كود احدد له الخلايا المطلوب وضع دوائر حولها اتمنى ان اكون استطعت الايضاح ولكم جزيل الشكر حصص زائدة الاول والثانى22.xlsm

المطلوب تعديل على هذا الكود والكود للاستاذ جلال محمد المطلوب هو تحديد الخلايا المراد وضع خلايا عليها اي ان اكتب انا في تكست او خلافه الخلايا b6 ,g8 ,e3 f5 وهكذا ويقوم البرنامج بوضع خلايا حولها مرة واحدة المطلوب عدد كبير من الخلايا لا يقل عن 35 خلية ولكم الشكر Sub اضافة_حذف() On Error Resume Next Dim XX As Shape Set XX = ActiveSheet.Shapes("الدائرة") With XX.TextFrame.Characters If .Text = "إضافة الدوائر" Then Circles1 .Text = "حذف الدوائر" Else RemoveCircles1 .Text = "إضافة الدوائر" End If End With On Error GoTo 0 End Sub Sub Circles1() Dim c As Range Dim MyRng As Range, V As Shape Dim X As Integer, G As Integer, R As Integer, d As Integer '================================================ G = 1 ' عمود رقم الجلوس R = 15 ' صف الدرجات Set MyRng = Range("e16:q6000") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For Each c In MyRng If Cells(c.Row, G) = 0 Or Cells(c.Row, G) = "" Then GoTo 1 If IsNumeric(Cells(R, c.Column)) And Not IsEmpty(Cells(R, c.Column)) And (c.Value < Cells(R, c.Column) Or c.Value = "غ" Or c.Value = "غـ") And c.Value <> "" Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 2, c.Height - 2) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 3 d = d + 1 End If 1 Next ActiveWindow.Zoom = X Application.ScreenUpdating = True MsgBox "تم إضافة " & d & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub Sub RemoveCircles1() Dim shp As Shape, d As Integer For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete: d = d + 1 Next shp MsgBox "تم حذف " & d & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub

,

هي المشكلة صعبة ولا ايه الهمة يا رجالة

الرجاء من حضراتكم كود ترحيل مثل الموجود بالملف ولكن بدل ان يرحل الى الجدول يتم الترحيل الى جدول 2 والترحيل بداية من الفصل 1/4 حتى الفصل 6/6 او من الصف 40 حتى الصف 75 ولكم جزيل الشكر حصص زائدة الاول والثانى22.xlsm الكود الموجود بالملف للاستاذ وجيه شرف الدين وهذا لاعطاء كل ذى حق حقه

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

استاذى الفاضل جزيل الشكر والعرفان مجهود مشكور عليه حضرتك ربنا يجزيك خيرا ومعلش حاغلس على حصرتك جدول محمد صبحبى جدول رقم 3 جدول المعلم بيتم توزيع حصص له سابعة وثامنة رغم ان الكشاف مفيش سابعة وثامنة ولكم احترامى وتقديري جدÙ_Ù_ اÙ_Ø_صص.xlsm