قنديل الصياد قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 (معدل) مرفق كود للاستاذ القدير عبد الله باقشير (كود الدوائر الحمراء) والكود يعمل بكفاءة بشرط ان تكون صفحة درجات الطالب غير محمية بكلمة مرور برجاء تعديل الكود لكى يعمل والصفحات تحت الحماية 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 = 11 ' صف الدرجات Set MyRng = Range("j12:j56,n12:n56,aa12:aa56,ar12:ar56") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For Each C In MyRng If Cells(C.Row, G) = 0 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 = "غـ") 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 = 1.25 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, 2015 بواسطه قنديل الصياد رابط هذا التعليق شارك More sharing options...
ابوصلاح قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 تضع في بداية الكود Sheets("اسم الشيت").Select ActiveSheet.Unprotect وفي نهاية الكود Sheets("اسم الشيت").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 2, 2015 الكاتب مشاركة قام بنشر يناير 2, 2015 شكرا جزيلا ابوصلاح تم عمل المطلوب بنجاح رابط هذا التعليق شارك More sharing options...
ابوصلاح قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 استاذ قنديل الصياد شكرا علي الكود كود رائع رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 أخي وأستاذي قنديل هلا أرفقت ملف للاستفادة منه؟ رابط هذا التعليق شارك More sharing options...
عبدالباري البنا قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 اخى الحبيب ياسر هذا الملف يعمل تحت الحماية بدون مشاكل جرب المرفق الدوائر.rar 1 رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 استاذنا القدير الاستاذ ياسر خليل اليك ملف ومنفذ عليه الكود وكلمة سر الملف (1900) درجات نصف العام.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 (معدل) أخي وأستاذي الحبيب قنديل الصياد بارك الله فيك وجزاك الله خير الجزاء أخي الغالي أستاذ عبد الباري أدعو الله أن يجعل عملك في ميزان حسناتك يوم القيامة تقبلوا تحياتي :fff: تم تعديل يناير 3, 2015 بواسطه YasserKhalil رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 (معدل) أستاذى قنديل الصياد بارك الله فيكم الملفات دى مهمة اليومين دول عشان امتحانات نصف العام الملف الثانى يعمل بكفاءة الملف الاول ( الدوائر ) يعطينى خطأ فى الفيجوال بيسك 1004 تم تعديل يناير 3, 2015 بواسطه مختار حسين محمود رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 الاستاذ العزيز / مختار حسين ارفق الملف الذى وجد به الخطا وباذن الله نحاول اصلاحه تحياتي رابط هذا التعليق شارك More sharing options...
alsamalapi قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 سكرا لكم اريد برنامج الاجر الاضافي للموظفين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.