hayyan alaa

استاذ سليم الف الف الف شكر و اعتذر عن التاخير في الرد و الشكر

و بالتاكيد لا نتاخر عن شكركم

ولكن ظروف خارجة عن ارادتي

و هي قطع الكهرباء و الشبكة

السلام عليكم

في ملفي المرفق في الصفحة search الجدول الازرق قمت بعمل كود لعد انواع الايصالات و مجموعها ولا اعرف اين الخطا

ارجو المساعدة

صندوق 10.2019.xlsm

السلام عليكم

الاساتذة الافاضل و الاكارم

في ملفي المرف في الصفحة (mine)  اريد عند الكتابة في الخلية (a8) نوع الايصال

ان يتم احتساب عدد الايصالات في الخلية(b8) من كل الشيتات

علما ان عدد الشيتات يتزايد  باستمرار لذلك اريد ان يؤخذ ها  بعين الاعتبار

و شكرا سلفا

333.xlsm

شكرا استاذ سليم مشكور  جدا

نعم استاذ سليم ولكن المطلوب عند وضع المؤشر على الخلية ظهور هذه المعلومات في تعليق وليس ظهورها في خلايا اخرى

اسعد الله صباحكم

في ملفي المرفق الذي قد تم تنفيذه و حله بواسطة الاستاذ سليم حاصبيا وفقه الله

اريد ادراج تعليق هذا التعليق يظهر مكان استقاء المعلومات الموجودة في الخلية  (علما ان هذه المعلومات قد تتغير و يتغير مكان استقائها)

وفي الملف المرفق اعتقد انه يوح المطلوب اكثر

هل من حل

"اعذر عن النشر مرة اخرى وذلك بسبب خلل في الشبكة لدي او في الحاسب"

Max_min_special.xlsx

شكرا استاذنا سليم بجهودك و جهود الاساتذة حلت المشكلة شكرا جزيلا

السلام عليكم

في مرفقي يوجد صف قمت بتلوينه باللون الاخضر هو عبارة عن درجات طالب لمادة واحدة قد يتقدم الطالب اكثر من مرة لامتحان هذه المادة

المطلوب في الخلية الصفراء نحضر اول علامة ناجحة قد حققها الطالب من هذا الصف (لانة قد يتقدم اكثر من مرة للمادة وينجح اكثر من مرة و يطلب منا تسجيل اكبر علامة ناجحة محاولا خداعنا)

ارجو حل هذه المشكلة عن طريق الدوال وليس vba

ملاحظة :قد قمنا بحل المسالة عن طريق دالة if ولكنها كانت طويلة جدا و  مربكة وخاصة في الملف الاصلي حيث الصف اكبر بكثير من المثال المرفق ارجو الحل بطريقة اخرى

111.xlsx

استاذ احمد بدره

تستاهل الف الف الف اعجاب

لا تؤاخذوني على التاخير في شكركم استاذ احمد بدره يا رائع

صباح  الخير يا اساتذتنا

عملت كود عبارة عن بحث بطريقة index  و match

بواسطة vba

ولكن هناك بطء شديد في التنفيذ

ما المشكلة و ما الحل 

ارفقت الملف

شكرا سلفا

حركات معدل1.xlsm

السلام عليكم

ارفقت اليكم يا اساتذتنا العظماء ملفا ما اريدة منه انه عندما اقوم بكتابة الرقم الامتحاني لطالب يظهر اسمه في الخليه المجاورة لقد تمكنت من الحل عبر المعادلات والدوال مثل vlolookup

ولكن لم يفيد غرضي اريد الحل عبر vba

ارجوكم اعذرو جهلي

__قوائم اعلام الطلاب االفصل االثاني 2018-2019 -.xls

جيد جيد يا صديقي ولكن الملف الذي قدمته انا يحتوي على الفكرة التالية اذا كانت الخلية j46ليست فارغة  يتم انشاء صفحة جديدة باسم جديد 

وهنا ياتي المطلوب :

لا يتم تنفيذ الدالة بشكل الي في الصفحة الجديدة بل يجب الدخول اليها وكتابة الدالة  وما يظهر في هذة الحالة انه يقوم بنسخ نص التفقيط في الصفحة السابقة حرفيا

و يجب الدخول الى الصفحة الجديدة و كتابة الدالة يدويا لكي تعمل

السلام عليكم يا استذتنا الافاضل

عبر البحث في مواضيعكم الرائعة وجدت دالة تفقيط للاستاذ باقشير جزاك الله كل خير

دالة رائعة 

الدالة تعمل في حالة كانت ضمن شيت واحد ولكن اذا كان هناك ازدياد في عدد الشيتات واريد ان استفاد من الدالة في كل شيت جديد يتم انشاؤه حيث يجب في كل مرة الدخول الى الشيت الجديد و تحديث معلومات الدلة لكي تعمل بشكل صحيح

هل يمكن الحل بحيث لا اضطر للدخول الى كل شيت و اجراء التعديل

ارفقت ملف يوضح المطلوب

لكم كل الشكر

صندوق.xlsm

شكرا جزيلا اخ احمد

شكرا شكرا شكرا

ولكن هل تعتبر هذه مشكلة ستؤثر على العمل بالمستقبل عندما تزداد البيانات ام انه وضع طبيعي

مشكور جدا يا اخ ولكن المشكلة ما زالت تظهر عند الضغط على ادخال البيانات

السلام عليكم

اخيرا  و بفضلكم يا اساتذتنا و بالاخص الاستاذ سليم حاصبيا انجزت ملفي بالشكل المطلوب و النهائي

ولكن اشعر بان هناك ارتجاج بسيط في الشاشة عند تنفيذ الاوامر 

هل هذا طبيعي ام هناك مشكلة

ارجو افادتي ولك الشكر

الملف مرفق

صندوق 2019.xlsm

السلام عليكم

هل من  الممكن المساعدة في شرح هذا الكود

و ارفق معه ملف الاكسل

Option Explicit

Sub my_sum_By_Chosen_Sheets()
    Dim s#, k%, t1%, t2%
    On Error GoTo Leave_me_Out

t1 = Sheets(Sheets("mn").Range("a15").Value).Index
t2 = Sheets(Sheets("mn").Range("b15").Value).Index
  For k = Application.Min(t1, t2) _
          To Application.Max(t1, t2)
    s = s + IIf(IsNumeric(Sheets(k).Range(Sheets("mn").Range("C15"))), _
    Sheets(k).Range(Sheets("mn").Range("C15")), 0)
  Next
    Sheets("mn").Range("d15") = s
    Exit Sub
Leave_me_Out:
   MsgBox "Check Please the Addrees And The Sheet's Names" & Chr(10) & _
   "In The Range(A15:C15)"
End Sub

sum_from_multy_sheet.xlsm

ما في مشكلة استاذ سليم

عكل حال مشكوووور جدااا

وانا مقدر ضيق وقتك و حجم عملك

استاذ سليم صار لازم نقلك بروفيسور انت رائع و  شكرا كتير كتير

كنت متخيل ان الموضوع ابسط من هيك "طبعا هوي بسيط بالنسبة لك ولكن بالنسبة الي شي كبير" لهيك 

بطمع كمان بشرح الكود منك اذا امكن وكان وقتك بيسمح وخاصة فرض المتغيرات

يا راااائع انت

ادخل لهذا العنوان و حمل المرفق لقد افادني عله يفيدك

اسعد الله اوقاتكم اساتذتنا الافاضل

ارغب في مساعدتكم في ايجاد كود لجمع خلية من عدة شيتات بواسطة vba

لقد قمت بتحديد اربع خلايا اثنتان منها تدل على اسماء الصفحات المراد الجمع منها و خلية لتحديد الخلية الهدف و خلية لاظهار الناتج

بحيث اتمكن من تحديد مجال الصفحات (من اي صفحة الى اي صفحة) كما ارغب

و ارفق ملف عله يوضح المطلوب

دمتم بخير

جمع.xlsm

استاذ سليم عافاك الله  ما ارسلته لم ينجز العمل المطلوب في مايلي مرفق قد قمت حضرتك بانجازة مسبقا يناء على طلبي

وهو ملف يحتوي على صفحة ترحيل او ادخال الى صفحة فيها 11 صف وكلما اتم ادخال 11 صف تفتح صفحة جديدة فيها نفس الجدول (اتمنى ان تكون قد تذكرته)

ما اطلبه ان يكون الجدول الجديد في الصفحة المنشأة بنفس تنسيق الجدول في الصفحة التي تسبقها و التنسيف يشمل كل شيئ

من عرض الاعمدة وارتفاع الصفوف وتنسيق الخلايا من حيث الخط والرقم والتاريخ ان امكن

33_salim.xlsm

مشكورين أستاذ سليم

ساجرب و اقول لكم النتيجه

اسعد الله اوقاتكم يا سادة

هل من الممكن عند ترحيل البيانات الاحتفاظ بتنسيقها في المصدر

ارجو منكم اعطائي ملف يتم فيه تنفيذ هذا الامر