Jump to content

يوسف عطا

05 عضو ذهبي
  • Content Count

    1,652
  • Joined

  • Last visited

Community Reputation

65 Excellent

7 Followers

About يوسف عطا

  • Rank
    مرحباً بكم جميعاً أخوة وأصدقاء
  • Birthday 11/12/1967

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    مدرس
  • Location
    القاهرة - الجيزة - مصر
  • Interests
    كل ما يفيد

Contact Methods

  • Yahoo
    youssef_ata@yahoo.com

Recent Profile Visitors

1,924 profile views
  1. الأستاذ الكبير أحمد بك حفظه الله عندما أدرجت الصفحة فى الملف يبدو أنه حدث تضارب بين البيانات الصفحة تعمل جيداً بمفردها لكن بوضعها فى الملف اصبحت الدرجات مش مظبوطة المهم هذا لينك للملف كامل الرجاء عمل اللازم فيه لكى تعمل الدوائر فى الشهادات جيداً و الف شكر مقدماً الملف المطلوب تظبيطه
  2. الف شكر أستاذنا الكبير بالفعل الملف المرسل يعمل جيداً جارى إستبدال الصفحة بصفحة مماثلة لكن إسمح لى بسؤال الخطأ كان فين ؟؟
  3. أخونا الغالى أحمد بدرة بعد التحية عند محاولة فك الضغط عن الملف تظهر الرسالة التالية ولا يتم فك ضغط الملف
  4. الف شكر استاذنا الفاضل أحمد بدرة جارى التحميل و التجربة
  5. الأخ الغالى بن علية حاجى حفظه الله بخصوص وضع الدوائر من الخطأ أن يكون وضع الدائرة مرتبط فقط بالدرجة لأن فى بعض الحالات تكون الطالبة راسبة فى المادة رغم أن درجتها أعلى من درجة النجاح لأنها لم تستوف شرط تلت درجة التحريرى و جازاكم الله خير و تقبل تحياتى
  6. الأستاذ الغالى أحمد بك بدرة للأسف الكود اللى حضرتك أرفقته لا يلبى إحتياجاتى لأنه يضع الدوائر إعتماداً على درجة النجاح و ربما تكون الطالبة حصلت على درجة النجاح أو أعلى لكنها راسبة لأنها لم تحصل على تلت درجة التحريرى فى المادة وبالتالى فتكون راسبة فى المادة رغم أن درجتها أعلى من درجة النجاح الف شكر لك تحياتى
  7. تفضل اللينك يا أستاذنا الغالى https://www.4shared.com/rar/W5xlOTYQda/_____.html حيث أن الملف المضغوط أكثر من 4 ميجا ولم أستطع تحميله على سيرفر المنتدى
  8. راجعت التحقق من الصحة فى الشهادتين الأولى و الثانية ووجدتهما مطابقتان للثالثة الملف كبير وعند ضغطه يظل أكبر من قدرة الرفع على المنتدى سأرفعه على موقع خارجى و أرسل اللينك لمعاليكم بن علية بك استاذنا الكبير
  9. Private Sub Worksheet_Calculate() Dim DataRange As Range Dim C As Range Dim count As Integer Dim o As Shape On Error GoTo errhandler For Each o In ActiveSheet.Shapes If o.Name Like "InvalidData_*" Then o.Delete Next Set DataRange = Cells.SpecialCells(xlCellTypeAllValidation) count = 0 For Each C In DataRange If Not C.Validation.Value Then Set o = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 1, C.Top + 1, C.Width - 3, C.Height - 3) o.Fill.Visible = msoFalse o.Line.ForeColor.SchemeColor = 10 o.Line.Weight = 2 count = count + 1 o.Name = "InvalidData_" & count End If Next Exit Sub errhandler: End Sub الكود كان يعمل فى ملف آخر نقلته للملف الحالى قمت بتعديل طفيف فى شكل الشهادة أصبح الكود يعمل فى الشهادة السفلى و لا يعمل فى الشهادة العليا ولا الوسطى مرفق شكل الشهادة كصورة مع ملاحظة إن الأسطر اللى تحت الدوائر هيتعملها إخفاء وقت الطباعة
  10. الاستاذ الفاضل أحمد بدرة تحية طيبة الف شكر لتعبك معانا الكود الذى أرفقته حضرتك يقوم بوضع الدوائر و لكنه لا يحذفها أرجو إضافة خاصية الحذف التى كانت موجودة فى الكود الأصلى حيث كان زر الكود تظهر عليه كلمة إضافة الدوائر عندما تكون الدوائر مش موجودة و تظهر عليه كلمة حذف الدوائر عندما تكون الدوائر موجودة ومرفق الملف به الكود الف شكر مرة أخرى تعديل أحمد.rar
  11. الاستاذ الفاضل ابراهيم الحداد بعد التحية الكود الذى أرفقته سيادتكم يعطينى إرور ولا يعمل و مرفق الملف وبه الكود تعديل ابراهيم.xls
×
×
  • Create New...