طائع قام بنشر مايو 9, 2014 قام بنشر مايو 9, 2014 الرجاء المساعدة فى ايجاد كود يضع دوائر حمراء على الدرجة بحيث ينظر الى درجة اخرى بمعنى:- انه فى المرفق التالى توجد أعمدة الدرجة الفعلية للمادة التى تتغير من مادة الى اخرى اريد وضع دائرة حمراء حول الدرجة الفعلية اذا كانت اقل من الحد الأدنى للمادة وشرط أساسى حصول الطالب على 15 درجة فى الامتحان وهو يسمى شرط 30 % من درجة الامتحان أى اذا كان الطالب حاصل على درجة أكبر من الحد الأدنى للدرجة الفعلية للمادة ولم يحصل على 15 درجة فى الامتحان توضع دائرة حمراء أيضا طباعة.rar
أبو إيمان قام بنشر مايو 9, 2014 قام بنشر مايو 9, 2014 السلام عليكم أخي الفاضل يمكنك الدخول على الروابط التالية قد تفيدك بإذن الله http://www.officena.net/ib/index.php?showtopic=53200&hl=%D8%A7%D9%84%D8%AF%D9%88%D8%A7%D8%A6%D8%B1 http://www.officena.net/ib/index.php?showtopic=52163&hl=%D8%A7%D9%84%D8%AF%D9%88%D8%A7%D8%A6%D8%B1 http://www.officena.net/ib/index.php?showtopic=48108&hl=%D8%A7%D9%84%D8%AF%D9%88%D8%A7%D8%A6%D8%B1
طائع قام بنشر مايو 9, 2014 الكاتب قام بنشر مايو 9, 2014 (معدل) اخى ابوايمان جزاك الله خيرا ولكن بعد نقل الكود للمرفق تم وضع الدوائر الحمراء على جميع الخلايا وانظر بنفسك فهل من تعديل يجعل الكود يضع الدوائر على الامتحان والدرجة الفعلية فقط تقبل تحياتى طباعة.rar تم تعديل مايو 9, 2014 بواسطه هانى ابو ادهم
طائع قام بنشر مايو 9, 2014 الكاتب قام بنشر مايو 9, 2014 بعد وضع الكود فى البداية كان يعمل وبعد عمل بعض التنسيقات لم يعد يضع الدوائر الحمراء الا على أول صف المرفق Book-braa.rar
محمد ابو البـراء قام بنشر مايو 9, 2014 قام بنشر مايو 9, 2014 أخي الحبيب // هاني أبو ادهم بارك الله فيك تفضل ما تريده وان اردت التعديل على ملفك الخاص بالتنسيقات التى تريدها فلك ما تريد وبعتذر مرفق خارجي لضعف النت عندي http://www.gulfup.com/?lmdh0t
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 9, 2014 قام بنشر مايو 9, 2014 السلام عليكم الاخ العزيز هانى ارجو ان تكون بك لخير مرفق الملف اتمنى ان يكون مرادك طباعة1.rar
طائع قام بنشر مايو 9, 2014 الكاتب قام بنشر مايو 9, 2014 اخى ابو حنين الدوائر تظهر على جميع الخلايا كما هى اما فهمت قصدى ؟ اننى اريدها على عمود اختبار فصل ثان و عمود الدرجة الفعلية فقط
طائع قام بنشر مايو 9, 2014 الكاتب قام بنشر مايو 9, 2014 أخى وحبيبى ابو البراء عندى رؤيتى للمرفق لم أجد كلاما اكتبه لشكرك ولكن ما أقوله هو زادك الله علما على علمك وجعله فى ميزان حسناتك يو القيامة تقبل وافر تحياتى أخيك وتلميذك
محمد ابو البـراء قام بنشر مايو 9, 2014 قام بنشر مايو 9, 2014 جزاك الله خيرا أخي الحبيب وهذا هو ملف الاستاذ أبو حنين بعد القيام بالتعديل عليه طباعة2.rar
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 9, 2014 قام بنشر مايو 9, 2014 السلام عليكم الاخ العزيز محمد أبو البراء برجاء توضيح ممكمن الخطاء فى المرفق الذى ارسلتة جزاك الله كل الخير
محمد ابو البـراء قام بنشر مايو 9, 2014 قام بنشر مايو 9, 2014 جزك الله خيراً الاخ الفاضل أبو حنين اظن ان المشكلة عندك في هذا السطر من الكود R = 10 فهذا الجزء خاص بتحديد صف الدرجات الصغرى والذي سيتم وضع الدرجات اقل من الدرجات الموجودة في هذا الصف وحضرتك واضع الدرجات الصغرى في الصف رقم10 فقم باستبدالها برقم 11
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 9, 2014 قام بنشر مايو 9, 2014 السلام عليكم جزاك الله كل الخير اخى محمد 1
ناصر سعيد قام بنشر مايو 9, 2014 قام بنشر مايو 9, 2014 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 = 2 ' عمود رقم الجلوس R = 10 ' صف الدرجات Set MyRng = Range("o11:dn500") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ 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 لو تكرمتم اريد شرح لكل سطر في الكود جزاكم الله خيرا
محمد ابو البـراء قام بنشر مايو 9, 2014 قام بنشر مايو 9, 2014 أخي الحبيب // الاستاذ ناصر سوف اخبرك باهم اسطر في الكود G = 2 ' عمود رقم الجلوس هذا السطر تحتاج ان تضع رقم العمود الموجود فيه رقم الجلوس بمعنى انك اذا كان عمود رقم الجلوس b فان الرقم هو 2 واذا كان c فيكون 3 وهكذا R = 10 اما هذا السطر فقد بينت مراده في المشاركة رقم 11 o11:dn500 هذا السطر خاص بنطاق الذي تريد وضع الدوائر الحمراء فيه Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 2, c.Height - 2 وهذا الجزء خاص بضبط حدود الدائرة الحمراء V.Line.ForeColor.SchemeColor = 10 وهذا الجزء خاص بلون الدائرة فاذا قمت بتغيير اللون الى رقم اخر سيتغير لون الدائرة الحمراء الى لون اخر V.Line.Weight = 3 وهذا الجزء خاص بسمك الدائرة فاذا قمت بتغيير الرقم تغير سمك الدائرة حسب ما تريد رقيعة او سميكة. 2
محمد يوسف محمد1 قام بنشر مايو 10, 2014 قام بنشر مايو 10, 2014 أخي الحبيب // الاستاذ ناصر سوف اخبرك باهم اسطر في الكود G = 2 ' عمود رقم الجلوس هذا السطر تحتاج ان تضع رقم العمود الموجود فيه رقم الجلوس بمعنى انك اذا كان عمود رقم الجلوس b فان الرقم هو 2 واذا كان c فيكون 3 وهكذا R = 10 اما هذا السطر فقد بينت مراده في المشاركة رقم 11 o11:dn500 هذا السطر خاص بنطاق الذي تريد وضع الدوائر الحمراء فيه Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 2, c.Height - 2 وهذا الجزء خاص بضبط حدود الدائرة الحمراء V.Line.ForeColor.SchemeColor = 10 وهذا الجزء خاص بلون الدائرة فاذا قمت بتغيير اللون الى رقم اخر سيتغير لون الدائرة الحمراء الى لون اخر V.Line.Weight = 3 وهذا الجزء خاص بسمك الدائرة فاذا قمت بتغيير الرقم تغير سمك الدائرة حسب ما تريد رقيعة او سميكة. زادكم الله من فضله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.