-
Posts
13165 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
412
كل منشورات العضو ياسر خليل أبو البراء
-
أخي الكريم انظر لتلك المعادلة =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)) أرجو أن يفي بالغرض
-
وهل تم حل المشكلة؟
-
طلب وضع دائرة حول العلامة (أكثر من شرط)
ياسر خليل أبو البراء replied to أبو العقاب's topic in منتدى الاكسيل Excel
أخي الحبيب عبد الباري البنا عوداً حميداً وكل عام وأنت بخير ..بارك الله فيك وجزاك الله خيراً على مساهمتك الرائعة ولا تنسى إخوانك في الله وتطل علينا ولو في الأسبوع مرة واحدة تقبل وافر تقديري واحترامي -
فرز الاسماء حسب اللون في إكسيل 2003
ياسر خليل أبو البراء replied to QuietTone's topic in منتدى الاكسيل Excel
نفس الفكرة تقريباً لكن نقول ايه في الحالة دي ..!! نقول ايه؟ اسألني نقول ايه؟ مصمم مش عايز تسأل : نقول في الإعادة إفادة ، والتكرار يعلم الشطار .. تسلم أخي الغالي ياسر العربي على المشاركة الجميلة تقبل وافر تقديري واحترامي -
طلب وضع دائرة حول العلامة (أكثر من شرط)
ياسر خليل أبو البراء replied to أبو العقاب's topic in منتدى الاكسيل Excel
أخي الكريم لو ركزت في الموضوع هتلاقي إن وضع الدائرة الحمراء مرتبط بصف الدرجات الصغرى حتى لو عندك 50 مادة وكل مادة لها درجة مختلفة ... أكيد الموضوع مرتبط بطلبك إلى حد كبير .. حاول بس وإن شاء الله تقدر توصل لحاجة وإن موصلتش قولنا إنت وقفت في ايه وإن شاء الله كلنا نساعدك قدر الإمكان تقبل تحياتي -
كل عام وانتم بخير
ياسر خليل أبو البراء replied to ضاحي الغريب's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
يا سلام يا ولاد على الناس اللي بتظهر وتهل في المناسبات دي ليك وحشة .. غايب عننا ليه يا غالي!! يا ترى أخبار البط ايه؟!! يا رب يكون كبر وبقا زي الخروف عشان ندبحه في العيد الكبير تقبل تحياتي -
طلب وضع دائرة حول العلامة (أكثر من شرط)
ياسر خليل أبو البراء replied to أبو العقاب's topic in منتدى الاكسيل Excel
أخي الكريم أبو العقاب اطلع على الرابط التالي حول كيفية وضع دوائر حمراء على مواد الرسوب لعله يفيدك الرابط من هنا -
إن شاء الله يساهم الأخوة الذين لديهم خبرة في التعامل مع الفورم لأنني لا أجيد التعامل مع الفورم بالشكل الكامل بارك الله فيك وجزاك الله كل خير
-
السلام عليكم ورحمة الله وبركاته أخي الكريم محمد زرد .. يرجى عند طرح موضوع أن يستوفي الموضوع أركانه ...صحيح الملف المرفق معبر عن الطلب إلى حد كبير ، ولكن هذا لا يعني أن تترك الموضوع بدون توضيح كافي ... مر حوالي 10 ساعات منذ طرح الموضوع ولم تجد مشاركة واحدة ، ربما بسبب عدم التوضيح التام للمسألة داخل الموضوع نفسه عموماً تم تغيير العنوان ليعبر عن الطلب بشكل أفضل ، وإليك الملف الذي عسى أن يلبي طلبك إن شاء الله حمل الملف من هنا
-
فرز الاسماء حسب اللون في إكسيل 2003
ياسر خليل أبو البراء replied to QuietTone's topic in منتدى الاكسيل Excel
لم أعمل على أوفيس 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 -
كل عام وانتم بخير
ياسر خليل أبو البراء replied to ضاحي الغريب's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
أخي وحبيبي في الله ضاحي الغريب لكم يسعدني رؤية موضوعك المميز ورؤيتك بعد طول غياب .. نفتقد وجودك فيما بيننا .. ولا تجعل المناصب تنسيك إخوانك كل عام وأنت إلى الله أقرب وعلى طاعته أدوم تقبل وافر تقديري واحترامي -
أخي الكريم صلاح ضع الأكواد كلها في موديول حدث المصنف ثم احذف الجزء الأول وادمجه في حدث فتح المصنف 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 تقبل تحياتي
-
بارك الله فيك أخي الحبيب عبد السلام أبو العوافي أخي العزيز صلاح الصغير لن يمكننا التخمين بوجود الخطأ إلا بالإطلاع على الملف .. فيرجى إرفاق الملف على السريع بما إن الموضوع كله على السريع يرجى وضع عنوان مناسب للموضوع ..أنت عضو قديم وخبير بأمور المنتدى فلا تفوتك هذه الأمور البسيطة بعد التدقيق في الصورة وجدت الدالة TEXTJOIN وتقريباً عندي نسخة أوفيس 2016 وليس بها هذه الدالة .. ربما الأوفيس يحتاج لتحديث لأن الدالة غير مدرجة لدينا تقبل تحياتي
-
أخي الكريم محمد سامي يرجى وضع عناوين مناسبة للموضوعات (سيتم تغيير العنوان من "مش عارف اعمل ايه يا ريت حد يكون عنده حل" إلى "كتابة معادلة إكسيل في خلية عن طريق البرمجة") يمكنك ببساطة تسجيل ماكرو .. حدد الخلية أدخل المعادلة أوقف التسجيل ..اذهب لمحرر الأكواد ستجد المعادلة الخاصة بك في ماكرو مسجل أو إذا كنت تريد التعامل بطريقة أخرى ضع الملف المرفق الذي تود العمل عليه ووضح المطلوب بشيء من التفصيل وإن شاء الله الأخوة الأعضاء يفيدوك بالأمر شاهد الفيديو التالي لتعرف كيفية تسجيل ماكرو تقبل تحياتي Watch.rar
-
برنامج حساب السن لرياض الاطفال -اولى ابتدائي
ياسر خليل أبو البراء replied to ابوصلاح's topic in منتدى الاكسيل Excel
بارك الله فيك أخي العزيز أبو صلاح ونفع بك الإسلام والمسلمين مشكور على الهدية الجميلة تقبل تحياتي -
أخي الكريم وفقك الله للوصول للحل ، ولولا فضل الله وتوفيقه ما كنت توصلت إليه أليس من حق إخوانك أن تقدم لهم الحل فلربما من كان هناك من الأعضاء من هو بحاجة إلى مثل طلبك ضع الحل بين إخوانك ليستفيد الجميع ، فالمنتدى لا يعني أخذ بدون عطاء ، إنما الدنيا أخذ وعطاء .. تقبل تحياتي
-
معلومات عن القران الكريم (هدية)
ياسر خليل أبو البراء replied to زوهير's topic in منتدى الاكسيل Excel
أخي الكريم وائل الموضوع قديم والروابط كلها لا تعمل للأسف .. ننتظر من الأخوة الذين عاصروا هذا الموضوع ويحتفظون بالبرنامج أن يقوموا بتحميله لعل الجميع يستفيد تقبل تحياتي -
أخي الكريم جرب المعادلة التالية علها تفي بالغرض =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)) تقبل تحياتي
-
نقل محتوى خلية إلى اخرى في نفس المصنف بشرط
ياسر خليل أبو البراء replied to عبدالكريم1405's topic in منتدى الاكسيل Excel
أخي الكريم عبد الكريم قمت بعمل موضوع لطلبك على هذا الرابط عله يفيدك إن شاء الله الرابط من هنا -
نقل محتوى خلية إلى اخرى في نفس المصنف بشرط
ياسر خليل أبو البراء replied to عبدالكريم1405's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته أهلاً بك في المنتدى ونورت بين إخوانك أبو عنود أخي الكريم أبو عنود ..يرجى تغيير اسم الظهور للغة العربية ، ويرجى الإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى قم بإرفاق ملفك لتوضيح صورة طلبك بشكل أفضل أعتقد أنه حسب شرحك يمكنك استخدام الدالة CONCATENATE .. والأفضل إرفاق ملف مع إرفاق شكل النتائج المتوقعة ليسهل تقديم المساعدة من قبل إخوانك الكرام بالمنتدى -
الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي
-
أخي الكريم يرجى تغيير اسم الظهور للغة العربية ، كما يرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل بشكل أفضل مع المنتدى جرب المعادلة التالية =ROUND(-3*C3*(C4>=3)+(1+(C4>=3))*C3*(C4+C5/12+C6/365),2) مع العلم أن الملف المرفق في المشاركة القبل السابقة فيها خطأ في الحساب اليدوي ولذلك تعجبت !! من النتيجة عموماً جرب المعادلة وأعلمنا بالنتيجة
-
لعلك تقصد هذه الدالة 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