الحديثة

=IF(p11<15"عربى";if(r11<20"عربى";))

الاستاذ يوسف عطا هذه الدالة = if (p11<15;"عربى" ;if(r11<20;"عربى";)) هذه الدالة تقول لو العمود بى 11 فية اقل من 15 يكتب عربى ولو العمود ار 11 فية اقل من 20 يكتب عربى المطلوب لو العمود بى 11 فية غ يكتب عربى ولو العمود ار 11 فية غ يكتب عربى

المساعدة فى هذه الدالة

مفيش رد

ممكن المعادلة دى تقول ان العائب بطلع كلمة عربى مثل 15 فى الربع و 20 فى مجموع المادة =IF(P13<15;"عربى";IF(R13<20;"عربى";))

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

الف شكر وتقدير للاساتذة الاجلاء لو المجمع الكلى فية الدالة =CEILING(SUM(S12+Y12+AE12+AM12+AU12+BA12+BI12);0.5) ممكن تعدلها لتجمع غ

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

ممكن دالة تجمع الغائب فى العمود h مع تعديل الدالة المجودة فى المرفق بحيث اذا تم وضع رقم فى العمود c لوحدة يتم الجمع واليكم المرفق New ورقة عمل Microsoft Excel.rar

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

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

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

ممكن دائرة على الدرجة والترم 2 مربع ازرق

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

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

هذا هو الكود الرجاء يعض التعديلات علية لياخذ من صف الدرجات اى لا يتقديد ب 15 او 40 درجة فى الدرجة ةالترم2 Sub ÖÇÝÉ_ÍÐÝ2() On Error Resume Next Dim XX As Shape Set XX = ActiveSheet.Shapes("ÇáÏÇÆÑÉ") With XX.TextFrame.Characters If .Text = "ÇÖÇÝÉ ÇáÏæÇÆÑ" Then Circles2 .Text = "ÍÐÝ ÇáÏæÇÆÑ" Else RemoveCircles1 .Text = "ÇÖÇÝÉ ÇáÏæÇÆÑ" End If End With On Error GoTo 0 End Sub Sub Circles2() 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 = 2 ' ÚãæÏ ÑÞã ÇáÌáæÓ R = 7 ' ÕÝ ÇáÏÑÌÇÊ '================================================ X = Activewindow.Zoom Application.ScreenUpdating = False Activewindow.Zoom = 100 For Each C In Range("D5:AE154") 'If Cells(C.Row, G) = 0 Then GoTo 1 If Cells(4, C.Column).Value = "ÊÑã2" And C.Value <> "" And (C.Value < 15 Or C.Value = "Û" Or C.Value = "ÕÝÑ") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, C.Left + 3, C.Top + 3, C.Width - 6, C.Height - 6) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 12 V.Line.Weight = 1.75 TT = TT + 1 End If If Cells(4, C.Column).Value = "ÇáÏÑÌÉ" And C.Value <> "" And (C.Value < 40 Or C.Value = "Û" Or C.Value = "ÕÝÑ") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 3, C.Top + 3, C.Width - 6, C.Height - 6) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.75 D = D + 1 End If 1 Next Activewindow.Zoom = X Application.ScreenUpdating = True MsgBox "Êã ÅÖÇÝÉ " & TT & " ãÑÈÚ æ " & D & " ÏÇÆÑÉ ÈäÌÇÍ", vbMsgBoxRtlReading, "ÇáÍãÏááå" End Sub

مفيش رد

ممكن الشرح من اساتذة المنتدى الكرام

استخدم اوفيس 2003

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

الف شكر ولك منى كل التقدير والاحترام

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

اريد ان يظهر اسماء من لهم صيانة بالارتباط مع تاريخ الكمبيوتر فى صفحة خاصة New ورقة عمل Microsoft Excel.rar

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

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