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

أخي الكريم المسلم العربي تقوم الدالة Countif بعمل المطلوب حيث تقوم الدالة بالعد بشرط تذكره .. الدالة لها عدد 2 بارامتر الأول هو النطاق المراد عده والثاني هو الشرط المطلوب العد على أساسه بالتالي كما في مثالك ..النطاق المراد العمل عليه وعد الشرط به هو E3:E12 ، والشرط المطلوب هو كلمة "ذكر" في حالة أن المطلوب عد الذكور ، ولا تنسى أن كلمة ذكر توضع بين أقواس تنصيص لأنها نص في النهاية تكون المعادلة بهذا الشكل =COUNTIF(E3:E12,"ذكر") الفاصل بين البارامترات الخاصة بالدالة يكون فاصلة عادية أو منقوطة (حسب إعدادات الويندوز لديك) .. إذا لم تعمل المعادلة بهذا الشكل قم باستبدال الفاصلة العادية الموجودة في المعادلة بفاصلة منقوطة ; يمكن الاستغناء عن الشرط كنص أي بدلاً من كتابة كلمة "ذكر" في المعادلة يمكن كتابتها في أي خلية ترغب فيها وليكن الخلية C14 اكتب فيها كلمة ذكر (بدون أقواس تنصيص في هذه الحالة) ..ثم قم بوضع المعادلة بهذا الشكل ... =COUNTIF(E3:E12,C14) أرجو أن تكون الصورة واضحة والشرح مفهوم تقبل تحياتي

أخي الفاضل ليس لدي نسخة 2003 .. إن شاء الله يتبرع أحد الأخوة ممن لديهم النسخة 2003 بشرحها لك وإن شاء الله يكون الاختلاف بسيط

أخي الكريم محمد حسن المصري يرجى إرفاق ملف لتوضيح الطلب ..أعتقد أن لك موضوع مشابه قد أجابك عنه أستاذنا الغالي رجب جاويش .. فهل الأمر مختلف هذه المرة أم أنه نفس الأمر؟

وعليكم السلام أخي وحبيبي في الله أبو يوسف بارك الله فيك وجزيت خيراً على كلماتك الرقيقة والجميلة .. جمعنا الله في مستقر رحمته يوم القيامة بالنسبة لسؤالك عن كيفية حصر الطباعة بين رقمين فلم أدرك الطلب بشكل جيد ..فهلا فصلت الأمر تفصيلاً وجعلته واضحاً .. هل تقصد الطباعة من صفحة كذا إلى صفحة كذا ؟ أم عدد مرات الطباعة ؟

أخي الحبيب سليم .. قمت بالاعتماد على أعمدة مساعدة في الورقتين Sheet2 و Sheet3 كما بالمعادلة حيث أن النطاق Sheet2!$J$5:$J$7 هو عمود مساعد ..فقط تم الاستغناء عن العمود المساعد في الورقة الأولى المطلوب العمل عليها .. بما إنك ملك المعادلات نريد الاستغناء عن الأعمدة المساعدة بشكل نهائي تقبل تحياتي

أخي الكريم ارفق الملف مرة أخرى وفيه بعض البيانات للعمل عليها .. وستجد المساعدة من قبل إخوانك إن شاء الله

أخي الكريم ناصر سعيد يرجى تغيير اسم الظهور للغة العربية (أنت عضو قديم وتعرف التوجيهات) شاهد الملف التالي فيه شرح مبسط للطريقة الأولى بدون أكواد .. Watch.rar

الأخ الكريم مصطفى وعليكم السلام ورحمة الله وبركاته أهلاً بك في المنتدى ونورت بين إخوانك يرجى طرح طلبك في موضوع مستقل .. إذا كان لطلبك علاقة بالإكسيل ..أما إذا كان له علاقة بالورد فهناك قسم للورد في المنتدى مع توضيح المطلوب بشيء من التفصيل تقبل تحياتي

أخي الكريم أحمد يمكنك الاستعانة بعمود مساعد لتلبية طلبك بكل سهولة تم إضافة عمود مساعد في كل ورقة عمل وتعديل بسيط في المعادلة لتؤدي الغرض 100 +1.rar

أخي الكريم بونس يوجد أكثر من كود بالملف المرفق ..أي الأكواد تريد التعديل عليها ؟ وهل المطلوب تصدير أوراق عمل محددة لملف PDF واحد فقط ؟

بسم الله ما شاء الله بارك الله فيك أبي الحبيب أبو يوسف وجزيت خير الجزاء على الموضوع الجميل تقبل تحياتي

أخي الكريم أبو عبد الباري الوقت تأخر جداً ..إن شاء الله غداً سأحاول العمل على طلبك تقبل تحياتي

أخي الكريم توكل أعتقد أن الكود يفي بالغرض .. طالما أنه يؤدي المطلوب لك إذا لم يكن الأمر يؤدي المطلوب بشكل كامل يرجى التوضيح في النقطة التي تتعثر فيها لتجد المساعدة من إخوانك الكرام

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

أخي الكريم أبو عبد الباري العمود الثاني يحتوي على عدد مرات التكرار كما فهمت وكما في المثال المرفق مجموع العمود الثاني = 32 وعدد الصفوف المطلوبة 7 وعدد الأعمدة 5 أي أن ناتج الخلايا يساوي = 35 ... ماذا عن بقية الخلايا هل ستترك فارغة ؟ وماذا لو كان عدد الصفوف × عدد الأعمدة أقل من النتائج ؟؟ أقصد لو كان عدد الصفوف 3 وعدد الأعمدة 5 أي أن الخلايا = 15 خلية ، والنتائج تساوي 32 (كيف سيكون التوزيع في هذه الحالة؟)

جزاكم الله خيراً أخي الغالي سليم تقبل تحياتي

كي تريد تحديد عدد الصفوف والأعمدة ؟ هل سيتم وضع عدد الصفوف والأعمدة في خلايا محددة ؟ هل النتائج التي حصلت عليها صحيحة من خلال المرفق السابق ولكن فقط تريد توزيعها بشكل عشوائي .. أفضل مرفق بشكل النتائج المتوقعة تقبل تحياتي

أخي الكريم أبو عبد الباري لا يزال المرفق غامض بعض الشيء ..عموماً إليك الملف المرفق التالي عله يفي بالغرض (إن لم يكن المطلوب يرجى إرفاق الملف مرة أخرى مع بعض النتائج المتوقعة ليسهل الوصول للحل) تقبل تحياتي Populate Numbers.rar

ملف رائع وكود جميل أستاذنا الكبير رجب جزيت خيراً على هداياك الثمينة

وجزيت خيراً بمثل ما دعوت لي أخي الفاضل أبو تهاني

بارك الله فيكم إخواني وأحبابي على الحلول الجميلة أخي الكريم إتش جرب الملف التالي عله يفيدك .. Sub CountSumCF() Dim Ws As Worksheet, I As Integer, J As Integer Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets Ws.Activate I = I + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), False) J = J + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), True) Next Ws MsgBox "Yellow Cells In All Sheets Count = " & I & vbNewLine & "Yellow Cells In All Sheets SUM = " & J Sheet1.Activate Application.ScreenUpdating = True End Sub Function CountCFCells(Rng As Range, C As Range, bCount As Boolean) Dim I As Single, J As Long Dim Chk As Boolean, Str1 As String, CFCELL As Range Application.Volatile Chk = False For I = 1 To Rng.FormatConditions.Count If Rng.FormatConditions(I).Interior.ColorIndex = C.Interior.ColorIndex Then Chk = True Exit For End If Next I J = 0 If Chk = True Then For Each CFCELL In Rng Str1 = CFCELL.FormatConditions(I).Formula1 Dim II As Integer Dim IIFlg As Boolean Dim Tmp IIFlg = False For II = 1 To Len(Str1) Tmp = Mid(Str1, II, 1) If ("0123456789" Like "*" & Tmp & "*") Then IIFlg = True Else If (IIFlg) Then Exit For End If Next Tmp = Right(Str1, Len(Str1) - II + 1) Str1 = "=" & CFCELL.Address & Tmp If bCount = False Then If Evaluate(Str1) = True Then J = J + 1 Else If Evaluate(Str1) = True Then J = J + CFCELL End If Next CFCELL Else CountCFCells = "Color Not Found" Exit Function End If CountCFCells = J Set Rng = Nothing Set C = Nothing End Function تقبل تحياتي Count & Sum Conditional Formatting Cells YasserKhalil.rar

أخي الحبيب خالد الرشيدي كم أستمتع بشرحك وملفاتك الرائعة .. جزيت خير الجزاء على كل ما تقدمه لإخوانك وجعله الله في ميزان حسناتك يوم القيامة تقبل وافر تقديري واحترامي

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على التوجيهات في الموضوعات المثبتة في المنتدى قم بإرفاق ملف توضح فيه المطلوب ليسهل الوصول لحل تقبل تحياتي

بارك الله فيك أخي الحبيب أبو عيد بالنسبة لملفك لن يتعامل مع الأسماء المركبة كاسم عبد الله (إلا إذا حذفت المسافة بين عبد ولفظ الجلالة) أخي الكريم أبو عوني إليك الدالة المعرفة التالية لتؤدي الغرض قم بالدخول لمحرر الأكواد Alt + F11 ومن قائمة Insert قم باختيار Module لإدراج موديول جديد وضع الدالة المعرفة التالية Function Kh_Father_Name(ByVal Name As String) As String Dim KhString As String, SearchChar As String, Kh_Mid As String, Kh_Rep As String Dim KhMyNo As Integer On Error GoTo Err_Kh_Father_Name If IsEmpty(Name) Then GoTo Err_Kh_Father_Name KhString = Kh_Father_Replace(Trim(Name)) & " " SearchChar = " " KhMyNo = InStr(1, KhString, SearchChar, 1) Kh_Mid = Trim(Mid(KhString, KhMyNo, Len(KhString))) Kh_Rep = Replace(Kh_Mid, "_", " ") Kh_Father_Name = Kh_Rep Exit Function Err_Kh_Father_Name: Kh_Father_Name = "" End Function Private Function Kh_Father_Replace(ByVal Kh_Sub As String) As String Dim MyArray, Ar Dim SN As String, RE As String MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله") SN = Kh_Sub For Each Ar In MyArray RE = Replace(Ar, " ", "_") SN = Replace(SN, Ar, RE) Next Kh_Father_Replace = SN End Function بعدها يمكنك وضع المعادلة في الخلية B2 بهذا الشكل ثم سحبها =Kh_Father_Name(A2) تقبل تحياتي

وجزيت خيراً بمثل ما دعوت والحمد لله أن تم المطلوب على خير تقبل تحياتي