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

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

المشرفين السابقين
  • Posts

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

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

  • Days Won

    412

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

  1. أخي الكريم انظر لتلك المعادلة =SUMPRODUCT(--($D$2:$D$50="متزوج"),--($C$2:$C$50>75000)) يمكن ببساطة وضع علامة زائد في آخر المعادلة وتكرار نفس المعادلة مرة أخرى وتغيير كلمة "متزوج" إلى "متزوجة" ليحقق لك الهدف إن شاء الله بهذا الشكل =SUMPRODUCT(--($D$2:$D$50="متزوج"),--($C$2:$C$50>75000))+SUMPRODUCT(--($D$2:$D$50="متزوجة"),--($C$2:$C$50>75000)) أرجو أن يفي بالغرض
  2. أخي الحبيب عبد الباري البنا عوداً حميداً وكل عام وأنت بخير ..بارك الله فيك وجزاك الله خيراً على مساهمتك الرائعة ولا تنسى إخوانك في الله وتطل علينا ولو في الأسبوع مرة واحدة تقبل وافر تقديري واحترامي
  3. نفس الفكرة تقريباً لكن نقول ايه في الحالة دي ..!! نقول ايه؟ اسألني نقول ايه؟ مصمم مش عايز تسأل : نقول في الإعادة إفادة ، والتكرار يعلم الشطار .. تسلم أخي الغالي ياسر العربي على المشاركة الجميلة تقبل وافر تقديري واحترامي
  4. أخي الكريم لو ركزت في الموضوع هتلاقي إن وضع الدائرة الحمراء مرتبط بصف الدرجات الصغرى حتى لو عندك 50 مادة وكل مادة لها درجة مختلفة ... أكيد الموضوع مرتبط بطلبك إلى حد كبير .. حاول بس وإن شاء الله تقدر توصل لحاجة وإن موصلتش قولنا إنت وقفت في ايه وإن شاء الله كلنا نساعدك قدر الإمكان تقبل تحياتي
  5. يا سلام يا ولاد على الناس اللي بتظهر وتهل في المناسبات دي ليك وحشة .. غايب عننا ليه يا غالي!! يا ترى أخبار البط ايه؟!! يا رب يكون كبر وبقا زي الخروف عشان ندبحه في العيد الكبير تقبل تحياتي
  6. أخي الكريم محمد زرد عندما أضع توجيه في المنتدى لا أقصد الإساءة أو التوبيخ ، بقدر ما أقصد النصح والإرشاد ... والكلام موجه للجميع وليس لشخصكم الكريم فقط ولا داعي للاعتذار على الإطلاق والحمد لله أن تم المطلوب على خير .. تقبل تحياتي
  7. أخي الكريم أبو العقاب اطلع على الرابط التالي حول كيفية وضع دوائر حمراء على مواد الرسوب لعله يفيدك الرابط من هنا
  8. إن شاء الله يساهم الأخوة الذين لديهم خبرة في التعامل مع الفورم لأنني لا أجيد التعامل مع الفورم بالشكل الكامل بارك الله فيك وجزاك الله كل خير
  9. السلام عليكم ورحمة الله وبركاته أخي الكريم محمد زرد .. يرجى عند طرح موضوع أن يستوفي الموضوع أركانه ...صحيح الملف المرفق معبر عن الطلب إلى حد كبير ، ولكن هذا لا يعني أن تترك الموضوع بدون توضيح كافي ... مر حوالي 10 ساعات منذ طرح الموضوع ولم تجد مشاركة واحدة ، ربما بسبب عدم التوضيح التام للمسألة داخل الموضوع نفسه عموماً تم تغيير العنوان ليعبر عن الطلب بشكل أفضل ، وإليك الملف الذي عسى أن يلبي طلبك إن شاء الله حمل الملف من هنا
  10. لم أعمل على أوفيس 2003 منذ أمدٍ بعيد عموماً يمكن الالتفاف حول المسألة والاستعانة بدوال معرفة لتساعدك في الأمر Function GetBackgroundColor(MyRange As Range) GetBackgroundColor = MyRange.Interior.ColorIndex End Function Function GetFontColor(MyRange As Range) GetFontColor = MyRange.Font.ColorIndex End Function هاتين دالتين الأولى تتعامل مع لون الخلفية للخلايا والثانية تتعامل مع لون الخط أو الكتابة للخلايا (حسب ما تريد) يمكن في عمود مساعد استخدام المعادلة اعتماداً على الدالة المعرفة ثم بعدها يمكنك الفرز حسب العمود المساعد قم بتحميل الملف المرفق لتتضح لك الصورة تقبل تحياتي Sort By Color In Excel 2003 YasserKhalil.rar
  11. أخي وحبيبي في الله ضاحي الغريب لكم يسعدني رؤية موضوعك المميز ورؤيتك بعد طول غياب .. نفتقد وجودك فيما بيننا .. ولا تجعل المناصب تنسيك إخوانك كل عام وأنت إلى الله أقرب وعلى طاعته أدوم تقبل وافر تقديري واحترامي
  12. أخي الكريم صلاح ضع الأكواد كلها في موديول حدث المصنف ثم احذف الجزء الأول وادمجه في حدث فتح المصنف Application.Visible = False kh_AhlnWShln جرب الكود بهذا الشكل Const Warning As String = "Warning" Private Sub Workbook_Open() Dim Ws As Worksheet Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets Ws.Visible = xlSheetVisible Next Ws Sheets(Warning).Visible = xlVeryHidden 'أسطر الدمج Application.Visible = False kh_AhlnWShln Application.ScreenUpdating = True End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Ws As Worksheet Application.ScreenUpdating = False Sheets(Warning).Visible = xlSheetVisible For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> Warning Then Ws.Visible = xlVeryHidden End If Next Ws Application.ScreenUpdating = True ActiveWorkbook.Save End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim MyFilePath$, Extension$ MyFilePath = "d:\حسابات\مراجعة\" Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & " Backup" On Error Resume Next '<< folder exists MkDir MyFilePath & Extension '<< create folder 'save current version of this book in the folder ActiveWorkbook.SaveCopyAs Filename:=MyFilePath & Extension & "\" & Extension & (Format(Now, " yyyy mm dd, hh.mm.ss AMPM")) & ".xlsm" End Sub Public Function MyPCpath$(Folder) MyPCpath = CreateObject("WScript.Shell").SpecialFolders(Folder) & Application.PathSeparator End Function تقبل تحياتي
  13. بارك الله فيك أخي الحبيب عبد السلام أبو العوافي أخي العزيز صلاح الصغير لن يمكننا التخمين بوجود الخطأ إلا بالإطلاع على الملف .. فيرجى إرفاق الملف على السريع بما إن الموضوع كله على السريع يرجى وضع عنوان مناسب للموضوع ..أنت عضو قديم وخبير بأمور المنتدى فلا تفوتك هذه الأمور البسيطة بعد التدقيق في الصورة وجدت الدالة TEXTJOIN وتقريباً عندي نسخة أوفيس 2016 وليس بها هذه الدالة .. ربما الأوفيس يحتاج لتحديث لأن الدالة غير مدرجة لدينا تقبل تحياتي
  14. أخي الكريم محمد سامي يرجى وضع عناوين مناسبة للموضوعات (سيتم تغيير العنوان من "مش عارف اعمل ايه يا ريت حد يكون عنده حل" إلى "كتابة معادلة إكسيل في خلية عن طريق البرمجة") يمكنك ببساطة تسجيل ماكرو .. حدد الخلية أدخل المعادلة أوقف التسجيل ..اذهب لمحرر الأكواد ستجد المعادلة الخاصة بك في ماكرو مسجل أو إذا كنت تريد التعامل بطريقة أخرى ضع الملف المرفق الذي تود العمل عليه ووضح المطلوب بشيء من التفصيل وإن شاء الله الأخوة الأعضاء يفيدوك بالأمر شاهد الفيديو التالي لتعرف كيفية تسجيل ماكرو تقبل تحياتي Watch.rar
  15. بارك الله فيك أخي العزيز أبو صلاح ونفع بك الإسلام والمسلمين مشكور على الهدية الجميلة تقبل تحياتي
  16. أخي الكريم وفقك الله للوصول للحل ، ولولا فضل الله وتوفيقه ما كنت توصلت إليه أليس من حق إخوانك أن تقدم لهم الحل فلربما من كان هناك من الأعضاء من هو بحاجة إلى مثل طلبك ضع الحل بين إخوانك ليستفيد الجميع ، فالمنتدى لا يعني أخذ بدون عطاء ، إنما الدنيا أخذ وعطاء .. تقبل تحياتي
  17. أخي الكريم وائل الموضوع قديم والروابط كلها لا تعمل للأسف .. ننتظر من الأخوة الذين عاصروا هذا الموضوع ويحتفظون بالبرنامج أن يقوموا بتحميله لعل الجميع يستفيد تقبل تحياتي
  18. أخي الكريم جرب المعادلة التالية علها تفي بالغرض =IF(F18<3,ROUND(F8*0.5*((F18)+(J18/12)+(F20/365)),2),ROUND((F8*0.5*3)+(F8*1*((F18-3)+(J18/12)+(F20/365))),2)) تقبل تحياتي
  19. أخي الكريم عبد الكريم قمت بعمل موضوع لطلبك على هذا الرابط عله يفيدك إن شاء الله الرابط من هنا
  20. وعليكم السلام ورحمة الله وبركاته أهلاً بك في المنتدى ونورت بين إخوانك أبو عنود أخي الكريم أبو عنود ..يرجى تغيير اسم الظهور للغة العربية ، ويرجى الإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى قم بإرفاق ملفك لتوضيح صورة طلبك بشكل أفضل أعتقد أنه حسب شرحك يمكنك استخدام الدالة CONCATENATE .. والأفضل إرفاق ملف مع إرفاق شكل النتائج المتوقعة ليسهل تقديم المساعدة من قبل إخوانك الكرام بالمنتدى
  21. الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي
  22. أخي الكريم يرجى تغيير اسم الظهور للغة العربية ، كما يرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل بشكل أفضل مع المنتدى جرب المعادلة التالية =ROUND(-3*C3*(C4>=3)+(1+(C4>=3))*C3*(C4+C5/12+C6/365),2) مع العلم أن الملف المرفق في المشاركة القبل السابقة فيها خطأ في الحساب اليدوي ولذلك تعجبت !! من النتيجة عموماً جرب المعادلة وأعلمنا بالنتيجة
  23. لعلك تقصد هذه الدالة Function VLOOKUPTOW2(Lookup_Value1 As Variant, Table_Array As Range, _ Lookup_Value2 As Variant, Range_Array As Range, Col_index_num As Integer) Dim Rw As Long VLOOKUPTOW2 = "#N/A" For Rw = 1 To Table_Array.Rows.Count If Table_Array.Cells(Rw, 1).Value = Lookup_Value1.Value And _ Range_Array.Cells(Rw, 1).Value = Lookup_Value2.Value Then VLOOKUPTOW2 = Table_Array.Cells(Rw, Col_index_num).Value Exit Function End If Next Rw End Function
×
×
  • اضف...

Important Information