اذهب الي المحتوي
أوفيسنا

ياسر خليل أبو البراء

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    13165

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

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

  • Days Won

    412

 نوع المحتوي 

كل منشورات العضو ياسر خليل أبو البراء

  1. ياسر خليل أبو البراء
    هذا يعني أن الموضوع مكرر أخي الكريم أشرف .. والدليل رد أخونا أبو حنين وقد ذكرت أنه مختلف تماماً عن الموضوع الآخر .. عموماً قد يكون مختلف فأنت صاحب الموضوعين ، وأنا في الحقيقة لم أطلع بعد بتمعن وبتفصيل على الموضوعين ربنا يوفق الجميع لما فيه الخير والصلاح
  2. ياسر خليل أبو البراء
    بارك الله فيك وجزاك الله كل خير أخي وحبيبي في الله أبو حنين لكم اشتقنا لمعين علمكم .. جعله الله في ميزان حسناتك يوم القيامة
  3. ياسر خليل أبو البراء
    أخي العزيز محمد أبو البراء بارك الله في جهدك وجزاك الله كل خير لتقديم المساعدة ومعاونة إخوانك لا حرمنا الله من وجودك فيما بيننا لي تعليق بسيط على الحل المقدم من قبلك : رأيتك قد استخدمت الأعمدة بداية من العمود N لوضع أرقام فهرس الأعمدة واستخدامها في المعادلة يمكن الاستغناء عن تلك الأعمدة بشكل نهائي والتعديل في المعادلة بهذا الشكل ضع المعادلة التالية في الخلية C2 ثم اسحبها لليسار =VLOOKUP($B$2,Table4[[Code]:[Seller]],COLUMN(B:B),TRUE) إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل وافر تقديري واحترامي
  4. ياسر خليل أبو البراء
    وعليكم السلام أخي الفاضل لا يوجد ملف مرفق ..قم بإرفاق ملف لتتضح صورة طلبك ويعمل عليه الأخوة الأعضاء تقبل تحياتي
  5. ياسر خليل أبو البراء
    بسم الله ما شاء الله عليك أبو حنين ..رائع ومدهش وكل أفكارك متميزة بناءً على الفكرة الرائعة للأخ الحبيب أبو حنين يمكن أتمتة العملية بأكملها بإنشاء ورقة عمل ووضع القيم المطلوبة ووضع قيم الليست بوكس ثم الطباعة وأخيراً حذف ورقة العمل إليك الكود الغير مجرب ولكنه يحمل الفكرة كاملة إن شاء الله Sub Test() Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets.Add With ActiveSheet .Range("A4").Resize(1, 4).Value = Array("المادة", "الكمية", "سعر الوحدة", "الإجمالي") .Range("A5").Resize(ListBox1.ListCount, 4).Value = ListBox1.List .PrintOut .Delete End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
  6. ياسر خليل أبو البراء
    أختي الفاضلة أم روان في ملفك قومي بإزالة الدمج من الصف الذي يحتوي على العناوين ..إذ أن الدمج عدو الأكواد .. أنا جربت على ملف من عندي وأزلت الدمج قبل التجربة ، وكان يجب أن أنوه لذلك الأمر والنقطة التي يجب التركيز عليها ليست مسح النطاق كما ذكرتي إنما تنفيذ الكود في وقت محدد في أيام محددة ، وقد قدمته في مشاركتي في حدث فتح المصنف ..فيمكنك عمل إجراء فرعي لإظهار رسالة مثلاً وضعي الكود في حدث المصنف المسئول عن التوقيت وجربي بنفسك ..
  7. ياسر خليل أبو البراء
    إذاً أين الحل الذي وجدته قم بتقديم الحل لإفادة إخوانك ..
  8. ياسر خليل أبو البراء
    أخي الكريم وعليكم السلام ورحمة الله وبركاته أهلاً بك في المنتدى ونورت بين إخوانك إن شاء الله طلبك سهل ولكن ارفق ملف للعمل عليه تقبل تحياتي
  9. ياسر خليل أبو البراء
    أخي الكريم يوجد خاصية طباعة الجزء المحدد من الشيت .. قم بتحديد الجزء المراد طباعته ثم اضغط على Ctrl + p لإظهار نافذة الطباعة واختر الأمر Print Selection أي أن الأمر فيه مرونة ...
  10. ياسر خليل أبو البراء
    أخي الكريم أسامة قم بالإطلاع على الرابط التالي لربما يفيدك في طلبك .. الرابط من هنا
  11. ياسر خليل أبو البراء
    بارك الله فيك أخي وحبيبي أبو حنين على هذا المجهود والنشاط الرائع بالمنتدى للمزيد يمكنك مشاهدة الفيديو التالي https://www.youtube.com/watch?v=wjp7sdd4th8
  12. ياسر خليل أبو البراء
    لما فضلت أن يكون في حدث إغلاق المصنف .. ثم إذا كان في حدث الإغلاق لابد من إضافة أسطر لحفظ المصنف بعد التغيرات .. أنا أفضل في حدث فتح المصنف حيث سيتم إشعار الإكسيل بتنفيذ كود معين في وقت محدد .. عند الوصول للوقت المحدد سيتم التنفيذ ، وبعدها يترك الخيار للمستخدم إما أن يقوم بالحفظ للتغيرات أو يغلق الملف بدون حفظ تقبل وافر تقديري واحترامي
  13. ياسر خليل أبو البراء
    وعليكم السلام ورحمة الله وبركاته أخي الكريم محمد ما أكثر الموضوعات في المنتدى التي تناولت موضوع التفقيط بأكثر من طريقة وأكثر من حل .. يرجى استخدام خاصية البحث في المنتدى تقبل تحياتي
  14. ياسر خليل أبو البراء
    أخ الغالي أبو حنين أعتقد أنه يجب وضع الكود في حدث المصنف ليتم تفعيل الحدث بمجرد وصول التوقيت للساعة 12 م .. أما أن يوضع في موديول فلن يتم التنفيذ بشكل تلقائي ..إذا لابد من تنفيذ الكود في الوقت المحدد بالضبط راجع الكود الذي أرفقته في مشاركتي السابقة وغير الوقت إلى 2:16 مثلاً واحفظ المصنف وفنحه مرة أخرى .. عند التوقيت المحدد سيتم تنفيذ الكود
  15. ياسر خليل أبو البراء
    بالنسبة للحلقات التكرارية هنا في المثال لا مشكلة فيه على الإطلاق ..ولا داعي لاستخدام المصفوفات .. ما الفائدة من استخدامها ها هنا .. تفيد المصفوفات في حالة التعامل مع البياانات هائلة الحجم .. أما هنا فالحلقات التكرارية ستكون لأوراق العمل من 6 إلى 16 بشكل مبدئي هذا الكود لمسح النطاق في الأوراق المحددة Sub Test() Dim I As Long For I = 6 To 16 Worksheets(I).Range("A7").CurrentRegion.Offset(1).ClearContents Next I MsgBox "Done...", 64 End Sub يوضع الكود في موديول عادي والكود التالي يوضع في حدث المصنف Private Sub Workbook_Open() Dim DayOfWeek As Integer DayOfWeek = Weekday(DateValue(Date), vbSunday) If DayOfWeek <> vbFriday Then MsgBox "Data In Specific Sheets Will Be Cleared At 12:00 PM", 64 Application.OnTime TimeValue("12:00:00 PM"), "Test" End If End Sub
  16. ياسر خليل أبو البراء
    أخي الكريم لابد من تثبيت النطاق الذي تبحث فيه في المعادلة جرب المعادلة في الخلية E2 بهذا الشكل ثم قم بسحبها .. =IFERROR(VLOOKUP(D2,$A$2:$C$100,2,FALSE),"") إذا لم تعمل المعادلة قم بتغيير الفاصلة العادية لفاصلة منقوطة كرر نفس الكلام مع المعادلة في العمود السادس (قم بنفسك بتنفيذ الموضوع)
  17. ياسر خليل أبو البراء
    أختي الفاضلة أم روان أهلاُ بك في المنتدى ونورتي المنتدى هل تقصدين بالحذف مسح النطاق لأن اللفظ يختلف فالحذف غير المسح .. عموماً ليست هذه المشكلة .. يمكن عمل حلقة تكرارية لجميع الأوراق المطلوبة ومسح النطاق .. بالنسبة لتنفيذ الكود في وقت محدد من اليوم لابد من أن يكون المنصف مفتوح .. هذا للعلم إن شاء الله إذا تيسر لي الوقت سأقوم بمحاولة العمل على الملف
  18. ياسر خليل أبو البراء
    دائماً ننتظر مواضيعك الشيقة والمميزة .. بارك الله فيك وجزاك الله خيراً
  19. ياسر خليل أبو البراء
    أخي الغالي أبو حنين هل الموضوع مكرر ؟ إذا كان كذلك يرجى وضع الرابط للموضوع الآخر ليتم دمجهما أو حذف أحدهما
  20. ياسر خليل أبو البراء
    مجرد سؤال : لما لا تتم عملية الطباعة من الشيت نفسه ؟ لما البحث عن الطباعة من على الفورم إذ أنني أرى أن هذا الطلب يتكرر كثيراً وليس لدي خبرة بالأمر هل هناك ميزة في الطباعة من على الفورم؟!!
  21. ياسر خليل أبو البراء
    أخي الكريم تم إرفاق الكود بالفعل في مشاركتي السابقة قبل أن ترفق ملفك هل جربت الكود في مشاركتي السابقة قبل الرد ..؟ وإذا كنت جربته فهل حدثت معك مشكلة؟ لقد قمت بالتعديل عليه بحيث يعمل مع ورقة العمل النشطة .. ولكن لم أجربه بشكل فعلي لذا طلبت ملف مرفق .. بالنسبة لسؤالك : نعم بالنسبة للسطور التي وضعت عليها تعليق هي أسطر مسئولة عن عمل حلقة تكرارية لكل أوراق المصنف ، فقمت بوضع تعليق عليها ، واستبدلت المتغير المسمى Sh والذي يشير لكل ورقة عمل بكلمة ActiveSheet للإشارة إلى ورقة العمل النشطة يرجى إفادتنا بالنتائج تقبل تحياتي
  22. ياسر خليل أبو البراء
    أخي الكريم أبو يحي يوجد في المنتدى العديد والعديد من الموضوعات والدورات للمبتدئين خصوصاً ..استخدم خاصية البحث للوصول لتلك الموضوعات والدورات تابع الموضوعات المختلفة التي تطرح في المنتدى وحاول تشارك بالبحث والتفاعل وفهم كيف تسير الأمور بالنسبة لي فقد وفقني الله عزوجل في عمل المدونة التي لها رابط في توقيعي ، وإن شاء الله ستكون مصدر للبحث أيضاً إذ أنني أنوي وضع أكبر قدر من الموضوعات التي تهم شريحة كبيرة من الأعضاء واعلم أن عملية التعلم مستمرة وغير منتهية ، فأنا في هذا المجال فيما يقرب من 8 سنوات وما زلت أتعلم كل يوم شيء جديد وفقني الله وإياك لكل خير تقبل تحياتي
  23. ياسر خليل أبو البراء
    أخي الكريم محمد يرجى تغيير اسم الظهور للغة العربية إليك حل لمشكلتك على الرابط التالي الرابط من هنا تقبل تحياتي
  24. ياسر خليل أبو البراء
    يمكن الحل عن طريق الاكواد بعيداً عن المعادلات ولكنك حددت طلبك في بداية الموضوع بالمعادلات أخي الكريم .. إذا أردت الحل بالأكواد فأبلغنا لربما نحاول في طلبك إن شاء الله
  25. ياسر خليل أبو البراء
    أخي الكريم صلاح يرجى تغيير اسم الظهور للغة العربية والإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى بالنسبة لطلبك يرجى الإطلاع على الرابط التالي الرابط من هنا تقبل تحياتي
×
×
  • اضف...

Important Information

  I accept