اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

علي المصري

05 عضو ذهبي
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1,498

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    5

 نوع المحتوي 

كل منشورات العضو علي المصري

  1. علي المصري
    - لاحظ درجات اللغة العربية كلها متشابهه
  2. علي المصري
    لان الدرجة كانت ثابتة في كل مرة 32.5 وهي اقل من 50 غير الدرحات في الشيت واستخدم ازرار التنقل ولا الفرق كما يمكنك استبدال السطر If C.Value < E.Value Then بالسطر If C.Value < E.Value Or C.Value = "غ" Then لكي يتم وضع دائرة في حالة الغياب الكود صبح بالشكل Sub Circles1() On Error Resume Next Call DeletingShp Dim ws As Worksheet, C As Range, E As Range Dim MyRng As Range, V As Shape Application.ScreenUpdating = False Set ws = Sheets("شهادات الرابع") Dim i As Integer Dim j As Integer For i = 2 To 12: For j = 1 To 70 Step 13 Set MyRng = ws.Cells("25" + j, i): Set MyRng2 = ws.Cells("24" + j, i) For Each C In MyRng: For Each E In MyRng2 If C.Value < E.Value Or C.Value = "غ" Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left - 1, C.Top + 1, C.Width, C.Height - 1) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.2 V.Shadow.Visible = msoFalse End If Next: Next Next Next Application.ScreenUpdating = True End Sub ‏‏2017شيت مدرستى - الصف الرابع 44-44-.rar
  3. علي المصري
    السلام عليكم ورحمة الله وبركاته ممكن تعطيني مثال صور الشهادات التي بها خطأ اخي الكريم استخدم المرفق ‏‏2017شيت مدرستى - الصف الرابع-.rar
  4. علي المصري
    السلام عليكم ورحمة الله وبركاته تم التعديل كما طلب الدوائر على درجة الطالب دوائر حمراء.rar
  5. علي المصري
    السلام عليكم ورحمة الله وبركاته شكرا جزيلا جزاك الله خيرا تم بحمد الله وفضله
  6. علي المصري
    تعديل بسيط على الملف المرفق ‏‏2017شيت مدرستى - الصف الرابع-.rar
  7. علي المصري
    شكرا جزيلا على اهتمام حضرتك انا اقصد ان استغني عن كتابة المعادلات في الخلايا واكتبها داخل محرر VBA وبالتالي استطيع عمل زر " لصق الاسماء" وزر اخر لاستدعاء عمل هذه المعادلات من ال VBA وفي نفس الوقت يستطيع المستخدم اضافة الاسماء عن طريق كتابتها اسم اسم مع الشكر الجزيل لحضرتك على العموم : انا نفذت المعادلات التي قدمتها حضرتك لي والان تعمل بشكل ممتاز
  8. علي المصري
    شكرا جزيلا استاذ بن علية حاجي سؤال اخير هل يمكن استخدام هذه المعادلة في محرر الاوامر VBA اريد ان اترك المجال للمستخدم ان يستخدم جلب الاسماء من قوائم الطلاب أو كتابتها يدوياً في حالة عدم توفر الاسماء مكتوبة ان امكن ذلك ارجو من حضراتكم تطبيقها على المرفق Book1.rar
  9. علي المصري
    السلام عليكم ورحمة الله وبركاته استاذنا الفاضل بن علية حاجي عند نطبيق المعادلات على الملف الاصلي الذي اعمل عليه تم كتابة المعادلة التالية =IF(B8="";"";OFFSET(OFFSET(MyCel;;IF(AliLang="English";2;1));SMALL(IF(((MySections=U$2)+(MySections=CONCATENATE(MID(U$2;1;LEN(U$2)-1);"-";RIGHT(U$2;1))));ROW($1:$2000));B8-1);0)) الي الصورة =IF(B8="";"";OFFSET(OFFSET(MyCel;;IF(AliLang="English";2;1));SMALL(IF(((MySections=U$2)+(MySections=CONCATENATE(MID(U$2;1;LEN(U$2)-1);"-";RIGHT(U$2;1))));ROW($1:$2000));B8);0)) حيث تم جذف -1 من الجزء الاخير كي تعمل بطريقة صحيحة حيث انه في وجود -1 يكون اسم الطالب الاول هو الاسم الاخير من الشعبة السابقة فهل هذ التل سوف يعطي مشاكل فيما بعد ام ماذا وما السبب في ذلك Book1.rar هل الجزء ROW($1:$2000) مرتبط بقائمة الاسماء
  10. علي المصري
    جزاك الله خيرا ROW($1:$1000) هل يمكن استبدالها بنطاف محدد مثلا A1:D1000 هل كل شخص يستعمل البرنامج يعرف هذه الطريقة اريد طريقة عامة مع الشكر الجزيل استاذنا الفاضل عبدالفتاح كيرة
  11. علي المصري
    شكرا جزيلا على اهتمام حضراتكم ولكن المعادلة =IF(C7="";"";OFFSET(OFFSET(MyCel;;IF(AliLang="English";2;1));SMALL(IF(((MySections=D$5)+(MySections=CONCATENATE(MID(D$5;1;1);"-";MID(D$5;2;1))));ROW($1:$1000));C7)-1;0)) عند تجربتها على الصف الثاني عشر 12A مثلا لا تعطي نتيجة كما انني استميحط عذرا في طلباتي اريد ان يكون البحث عن الحالتين 6A أو 6-A في جدول اسماء الطلاب بحيث اذا وجد اي من الحالتين يعطي النتيجة
  12. علي المصري
    السلام عليكم ورحمة الله وبركاته هل يمكن البحث كالتالي اذا كانت الشعبة غي الشيت الخاص باسماء الطلاب StuNames مكتوب كالتالي 6-A وفي صفحة البحث StudentList مكتوبة 6A أو العكس Ali_31.rar
  13. علي المصري
    جزاك الله خيرا استاذناالفاضل بن علية حاجي
  14. علي المصري
    شكرا جزيلا استاذ سليم من بعد اذنك عندي بعض المعلمين يكتبون الشعب كالتالي 6A والبعض يكتبها 6-A اريد ان يتم ادراج ثلاث خلايا في المعادلة لكي تكون عامة بحيث يتم البحث عن الشعبة بأي شكل من الاشكال كما موضح بالمرفق Ali Salim.rar
  15. علي المصري
    شكرا جزيلا استاذنا الفاضل بن علية حاجي شكرا جزيلا استاذنا الفاضل سليم حاصبيا حلول اكثر من رائعة جزاكم الله خيرا وربنا يسهل وافهم الدوال بسرعة لاني لم اتعامل مع هذه الدول من قبل كنت اعتقد ان دلة Vlookup فيها امكانية لعمل ذلك وبعد هذه الحلول وجدت انها دالة عقيمة فاذا كان عند حضراتكم شرح لهذه الدوال ارجو ارسالها لي مع الشكر الجزيل
  16. علي المصري
    السلام عليمن ورحمة الله وبركاته عندي قائمة اسماء المدرسة بحملها من موقع المدرسة بتكون كلها في 4 اعمدة مسلسل الشعبة رقم الطالب اسم الطالب اريد فصل هذه الاسماء كل شعبة على حده فما هي الدالة التي تصلح لذلك Ali.rar
  17. علي المصري
    السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا وانني ارجو من الاستاذ الفاضل الاستاذ ياسر تحميل الملفات على الموقع نفس او تحميله على رابط مباشر على احد المواقع المعرفة للتحميل لأني ظللت وقت كبير من اجل تحميل الملف ولم استطع بالاضافة الى المضايقة التي نواجهها من الاعلانات والصور .... جزيت خيرا على ما تقدمه لنا من علم
  18. علي المصري
    جرب التالي Private Sub Text30_AfterUpdate() Me.Text130 = Me.Text30 - 365 End Sub - ارجو المعذرة هذا الكود تابع للأكسيس وليس اكسيل
  19. علي المصري
    موضوع لابد من ايجاد حل له بسبب كثرة المتطفلين على البرامج
  20. علي المصري
    جزاكم الله خيرا على كا تقدموه من معلومات ومساعدات للاخرين
  21. علي المصري
    جزاكم الله خيرا
  22. علي المصري
    المرفق به فورم يحتوي على عدد 2 ليست بوكس احدهما لجلب اسماء الاوراق الموجودة في ملف الاكسيل يوجد ازرار تمكنك من ترحيل اسماء الاوراق التي تريد طباعتها او حفظها إلى الليست بوكس الاخر ومن ثم الضغط على زر الطباعة او الحفظ يمكنك اكتشاف الامر عمليا حمل المرفق وشاهد Print and Save As pdf Using ListBox in a UserForm.rar
  23. علي المصري
    جزاك الله خيرا بالتوفيق ان شاء الله
  24. علي المصري
    ممكن رفع المرفقات مرة اخرى على الميديا فير او ال الفور شيرد او جوجل درايف
  25. علي المصري
    استخدم =SUM(SUMIFS(الجدول1[المبالغ];الجدول1[مبيعات الدولة]; {"مصر";"السودان"}; الجدول1[الوكيل];"احمد")) أو =SUMIFS(الجدول1[المبالغ];الجدول1[الوكيل];"احمد";الجدول1[مبيعات الدولة];"مصر")+SUMIFS(الجدول1[المبالغ];الجدول1[الوكيل];"احمد";الجدول1[مبيعات الدولة];"السودان") للتمرين.rar
×
×
  • اضف...

Important Information

  I accept