احمد بدره

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

أستاذ يوسف عطا كل ما عملته هو أنه لاحظت كود أستاذنا الفاضل الأستاذ إبراهيم لا يعمل ووجدت السبب الذي يجعله لا يعمل فالملف الذي أرفقته في الملف التجريب به عدد 3 ماكرو أحدهم يجمع عمل كودين بحيث إذا تم تشغيل كود الدوائر يظهر كود حذف الدوائر بالتبادل و تم التعديل بإضافة الكود الذي يجعمل الكودين وكود الحذف وإليك الملف بعد التعديل تعديل أحمد.rar

بارك الله فيك أستاذنا الفاضل ولكن هناك ملحوظة في السطر Or C.Offset(0, -3).Value Or C.Offset(0, -3).Value = "" Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then سهوًا لم تكتب شرط = "غ" فيصبح Or C.Offset(0, -3).Value = "غ" Or C.Offset(0, -3).Value = "" Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then حتى يعمل الكود بشكل سليم فالكود بعد التصويب وجزاك الله خيرًا وجعله في ميزان حسناتك 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 = 13 ' صف الدرجات Set MyRng = Range("W14:W1013,AF14:AF1013,AO14:AO1013,BA14:BA1013,BM14:BM1013,BQ14:BQ1013,BU14:BU1013,CF14:CF1013,CO14:CO1013,DA14:DA1013") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For Each C In MyRng If Cells(C.Row, G) = 0 Then GoTo 1 If C.Value = "" Then GoTo 1 On Error Resume Next If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) _ Or C.Offset(0, -1).Value < Cells(R, C.Column - 1) Or C.Offset(0, -3).Value < Cells(R, C.Column - 3) _ Or C.Offset(0, -3).Value = "غ" Or C.Offset(0, -3).Value = "" Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 2, C.Top + 2, C.Width - 4, C.Height - 4) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.5 D = D + 1 End If 1 Next Set MyRng = Range("BV14:BV1013") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ For Each C In MyRng If Cells(C.Row, G) = 0 Then GoTo 2 If C.Value = "" Then GoTo 2 If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Offset(0, -1).Value < Cells(R, C.Column - 1) Or C.Offset(0, -2).Value < Cells(R, C.Column - 2) Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 2, C.Top + 2, C.Width - 4, C.Height - 4) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.5 D = D + 1 End If 2 Next Set MyRng = Range("AX14:AX1013,bj14:bj1013,CX14:CX1013") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ For Each C In MyRng If Cells(C.Row, G) = 0 Then GoTo 3 If C.Value = "" Then GoTo 3 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 = "غـ" Or C.Value = "صفر") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 2, C.Top + 2, C.Width - 4, C.Height - 4) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.5 D = D + 1 End If 3 Next ActiveWindow.Zoom = X Application.ScreenUpdating = True MsgBox "تم إضافة " & D & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub

بارك الله فيك أستاذنا الفاضل وعلى فكرة أنا كان اسمي بالمنتدي سابقًا ahmedkamelelsayed0@yahoo.com وكنت سعيد بمعرفة حضرتك وشرحك للأشياء وفي الصباح لضيق الوقت لذهابي للعمل رفعت الملف بعد التعديل للتجربة تم إلغاء هذه الأسطر في الموديولين الآتيين الموجودين بالصورة هذه الأسطر هي التي منعت تشغيل الملف على 2010

طريقة الماكرو قم بالذهاب إلى محرر الأكواد عن طريق الضغط على مفتاح Alt+F11 H أو من شريط أدوات المطور كما بالصورة

بعد إذن الأستاذ مصطفى قمت بالتعديل على الكود الذي أنشأه حيث أنه لا داعي أن اكتب أرقام في العمود Z أو أي أعمدة أخرى أما كيفية عمل هذا الماكرو فسوف أقوم بشرحه في أقرب وقت لأنني مشغول الآن نسخة من اوفيسنا-1.xlsm

قم بتحديد زر أمر زيادة ونقصان ثم اضغط بزر الفأرة الأيمن تظهر قائمة اختر تنسيق عتصر تحكم يظهر صندوق حواري اختر منه عنصر تحكم اختر ارتباط الخلية واختر الخلية التي تريدها ثم اضغط موافق انظر الصورة ويمكنك نسخ هذا الزر ولصقه في أي مكان أما بالنسبة لطريقة عمل هذا الزر تحتاج أن يكون شريط أدوات المطور ظاهر عندك وسوف أحاول الشرح في أقرب وقت إن شاء الله

ممكن عمل ذلك بإضافة زر أمر زيادة ونقصان وربطه بالخلية جرب هذا اوفيسنا.xlsx

عودًا حميدًا أستاذ ناصر هذه محاولة مني وعمل على 2010 برنامج خبور المدرسي الاصدار الأول.rar

تم التعديل تفضل الملف كنترول اولى - ت النهائى 201999.rar

أولاً كان هناك عبث في بعض الخلايا التي بها معادلات تم التعديل وتم وضع كود لمنع العبث في المعادلات عن طريق الخطأ في حدث ورقة الشيت كنترول اولى - ت النهائى 201999.rar

عليكم السلام ورحمة الله وبركاته بعد إذن أستاذنا الفاضل ومعلمنا الجليل الأستاذ / إبراهيم الحداد أولا تم تعديل درجة النجاح في مادة الجغرافيا فقط تم نغيير النهاية الصغرى في الشييت إلى 16 وكذلك الحال في الشهادات ثانيًا بالنسبة لمادة الاقتصاد فمجموع 33.5 فهو ناجح وإليك الملف مضغوط حتى يتم رفعه على موقع المنتدى كنترول اولى - ت النهائى 201999.rar

اعتقد أن غالبًا أنك لم تقوم بإدراج أرقام الصفحات في الملف بإصدار 2003 قبل فتحه بإصدار 2007

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

عليك السلام ورحمة الله وبركاته تم تنسيق الامتحان بالنسبة للإطار من قائمة تنسيق اختر حدود وتظليل ثم اختر حد الصفحة ثم اختر رسم أو صورة اختر الإطار الذي يناسبك هذا بالنسبة لأوفيس 2003 وما قبله وبالنسبة لباقي الإصدارات قم بالضغط على تخطيط الصفحة ثم اختر رسم أو صورة اختر الإطار الذي يناسب بالنسبة للخريطة تم إدراج خريطة صماء وتم عمل الأرقام فوق الخريطة كل ما عليك أن تقوم بسحب الرقم وتضعه في المكان الذي تريده windows-1256__دراسات.doc

عليك السلام من فضلك ضع طلبك في قسم الأكسس لأن هذا قسم الوورد

بعد إذن أستاذنا الفاضل هل ما تقصده هو الطباعة من الفورم فقد عمل أستاذنا الجليل أ/ عبدالله باقشير تعديل على هذا الفورم وجعل فيه خاصية الطباعة وإليك الملف بعد استبدال الفورم السابق بالفورم الذي يوجد به زر أمر طباعة ادخال و تعديل بيانات الطلاب.xls

ممكن هذا الرابط https://pdf.wondershare.com/ar/how-to/convert-pdf-image-to-excel.html أو الرابط الموجود أسفل الفيديو في هذا الموقع https://www.youtube.com/watch?v=4h6nfTtY1LU

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

ربما يكون هذا الرابط يساعدك

تم التعديل ربما يكون المطلوب new primo.xlsm

بعد إذن الأستاذة الأفاضل الأستاذ علي والأستاذ عبدالله تم تصحيح المعادلة وتم حذف أيضًا قيود ليس لها فائدة المصنف3.xlsx

تمت المعالجة باتباع شرح أستاذنا الفاضل بن علية فتم ظهور كل الصفوف وعند آخر خلية بها معادلة في العمود A يتم عمل دبل كليك من التعامد أو السحب والنزول لأسفل

بارك الله فيك أستاذ علي ولإثراء الموضوع يمكن باستخدام دالة if نتيجة الرابع والخامس والسادس.xlsm

أستاذ أبو علي الحبيب قمت بمسح جميع الخلايا الموجودة في العمود b وأعطاني النتيجة 0 ربما يكون قد نسيت مسح بعض خلايا ثانيًا تم عمل زري للانتقال للأعلى وأسفل بمقدار 5صفوف لون الزرين أزرق ولكن الانتقال من الخلية المحددة ( التي يقف عليها المؤشر ) ليس لعمود معين وتم تعديل زر أمر ( اخر صف ) للوقوف على العمود c ( بعيدًا عن المعادلات ) الانتقال 25 صف.xlsm