كل الانشطه

جرب التعديل التالي 115.xlsm

استاذي @jjafferr دمت دائماً مدداً لنا ولا انسى فضلك وفضل الزملاء جميعاً بمددي ..

يا رجال ، انا قلت اعطي يوسف تصبيرة الى ان يجيه المدد 🙂 احسنت

كل الشكر للاساتذه الكرام استاذ عبد الله عند تغيير اي خليه الى لون لا يتغير مجموع اللون في الاعلى بشكل تلقائي ارجو ان اكون اوضحت مثلا العمود j 110.xlsm

مشاركة مع استاذي @jjafferr تفضل د/ @jo_2010 محاولتي حسب ما فهمت . الشرح والمرفق . ووافني بالرد . Jo(2-5-2026).rar

تمييز الاعداد من 3 الى 10 يكون جمع مجرور بالاضافة ويخالف العدد المعدود في التذكير والتانيث خمسة ريالات الريال مذكر فتكتب خمسة كما اشار الاستاذ منتصر خمس ليرات ليرة مؤنتة تأنيث لفضي فيكتب العدد خمس الاعداد 1 و 2 يوافق العدد المعدود تذكيرا وتانيثا ويسبق المعدود العدد رجل واحد سيارة واحدة العدد 2 يعرب اعراب المثنى فيرفع بالالف وينصب ويجر بالياء العدد 11 و 12 يطابق العدد المعدود وتمييزهما مفرد منصوب العدد 11 يبنى على فتح الجزاين و12 يعرب اعراب المثنى الاعداد 13 - 19 يخالف الجزء الأول من العدد المعدود والجزء الثاني يطابقه في التذكير والتانيث والتميز مفرد منصوب والعدد مبني على فتح الجزاين حضر خمسة عشر طالبا نجحت ثلاث عشرة طالبة الفاض العقود تعرب اعراب جمع المذكر فترفع بالواو وتنصب وتجر بالياء وتمييزها مفرد منصوب ولا تتاثر بالتأنيث والتذكير قرأتُ عشرينَ كتاباً شاهدت عشرين طالبا مررت بعشرين طالبا الاعداد 100 و 1000 و الخ تمييزها مفرد مجرور بالاضافة لماذا هذه المشاركة ربما ينتفع بها احدهم املاه اخونا الشايب

السلام عليكم الاساتذم الكرام لدي جدول فيه من الاعلى مؤمن وغير مؤمن في الاعمده يتم تلوين المؤمن فقط بلون المركز الذي يتبع له ةفي غير المؤمن الباقي بلا تعبئة وفي يسار الشاشه يوجد ملخص الالوان كل لون مجموع عدد بكل الجدول بحيث اي تعديل باي خليه يتم التعديل في المؤمن والغير مؤمن وايضا في ملخص المراكز okتامينات2026.xlsm

السلام عليكم الحل في Function CountByColor(rng As Range, clr As Range) As Long كما اقترح عليك استاذتا Foksh في رده هذا الملف 112.xlsm

عمل رائع أخي @Moosak وإثراءً للموضوع أرفق لكم مثالين الاول للأستاذ الغالي @عبدالله باقشير الله يذكره بالخير (كان مشرفاً لمنتدى أكسل وكان إسمه في المنتدى خبور خير) حيث أنه قد قام بتغطية كل ماجاء في هذا المثال مع إضافة بعض الإضافات الجميلة التي يمكن أن يراها البعض مهمة ولعل أهمها - طريقة كتابة إسم العملة للأرقام من 3 إلى 10 (مثال خمسة ريالات وليس خمسة ريال) - إمكانية تفقيط رقم يصل إلى البلايين (مايزيد عن 999 مليار) المثال الآخر للأستاذ الكبير أبو هادي (لن يعرفه إلا القدامى 😅) ويشبه مثال الاخ عبدالله كثيراً ولكنه يتميز عنه بأنه ثنائي اللغة فيمكنك التفقيط باللغتين العربية والإنجليزية فلو أمكنك أستاذ موسى الإطلاع على المثالين لترى إذا ماكان بإمكانك إضافة الخيارات الإضافية التي وردت فيها لتخرج بعمل أكثر تكاملاً أمثلة للتفقيط.rar

جزاك الله خيرا استاذي الكريم لم تقصر ابدا في مساعدتنا وفقك الله الى كل خير واسف مره اخرى على كثره الاسئله ,ولكن حاجتي الى الملف ادت الى ذلك

عذراً على المتابعة .. فخبرتي في اكسل ليست قوية بما يكفي 😅 حتماً سنجد هنا قامات واسماء لها خبرة أكثر مني

تفضل يا سيدي: عملت نسخة من الاستعلام Qry_Lab_Request واسميته Qry_Lab_Request_for_Export حتى تكون البيانات مخصصة للحقل PCode . وهذا كود كل زر تصدير : Private Sub cmd_Export_to_Excel_Click() '- تصدير الى اكسل Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef\" & Me.PCode 'File_Path = CurrentProject.Path & "\" & Me.PCode DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True End Sub Private Sub cmd_Export_to_pdf_Click() '- تصدير الى PDF Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef\" & Me.PCode & ".pdf" 'File_Path = CurrentProject.Path & "\" & Me.PCode & ".pdf" DoCmd.OutputTo acOutputQuery, "Qry_Lab_Request_for_EXPORT", acFormatPDF, File_Path, False, , , acExportQualityPrint End Sub . 1. ولكن الافضل بالنسبة الى التصدير الى الاكسل : ان تقوم بتنظيم اسماء الحقول بالعربية (حاليا هي بالانجليزية ، فجميع اسماء الاعمدة في الاكسل ستكون بالانجليزي) ، وتعيد ترتيب الحقول حسب ما تريده في الاكسل ، وتحذف الحقول الغير مطلوبة. 2. والافضل بالنسبة الى التصدير الى pdf : نفس النقاط اعلاه ، عمل تقرير بالعرض. 1644.TO EXCEL_PDF.accdb.zip

كل الشكر استاذي الكريم ارجوك تحملني على اسئلتي قمت بتغيير لون من الالوان الى بلا تعبئه ولكن ظهرت الخلايا الفارغه ايضا بالحساب 112.xlsm

طيب ايش هي المشاكل ,, انت الآن طلبك كالآتي :- 1. حساب عدد الخلايا الغير فارغة لكل لون في الأعمدة . صحيح ؟؟ الآن المشاكل التي تقصدها :- 1. عند تغيير لون الخلية لا يتم تحديث القيم في أعداد الخلايا التي كتبنا فيها المعادلات ، صحيح ؟ يعني انت تريد عند التغيير للون أي خلية ، أن يتم التعديل مباشرة في أعداد الألوان في الأعمدة ؟؟؟؟؟؟؟؟؟؟؟؟؟ وهنا المشكلة أخي الكريم .. فتغيير اللون ليست حدث أو قيمة يشعر بها آكسل للأسف وبالتالي لن يتم تحديث التعداد إلا إذا !!!!!! في حدث عند التحديث للورقة ، كالتالي :- Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.Calculate End Sub قمنا بإعادة حساب كل الصيغ والمعادلات في الورقة مرة أخرى ، بمجرد أن تقوم بالتحرير داخل اي خلية ، ثم الخروج . خلاف ذلك لا اعتقد ان ذلك ممكن .

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

أخوي الكريم ، أرجو منك كتابة كافة طلباتك ، حتى لا نجر بعضنا من طلب إلى آخر 😅

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

مشكـــــــــــــور كـــــــــــــــل الشكـــــــــــــر عمـــــــــــــل رائـــــــــــــــــع جـــــــــــــــزاك الله كـــــــــــل خيــــــــــــــــــــر

ابدعت يا دكتور

بكل الأحوال .. إن كان ما سبق صحيح ، فقط علينا إضافة شرط للجملة الشرطية بحيث تصبح :- If c.Interior.Color = clr.Interior.Color And Trim(c.Value) <> "" Then بداً من :- If c.Interior.Color = clr.Interior.Color Then

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

السلام عليكم وجزاكم الله خيرا استاذي الكريم ولكن لدي مشكله اذا اضفت خلايا للعامود بدون تسجيل قيمه بداخلها فانه يقوم بحساب الخلايا الفارغه ايضا كيف يمكن ان اجعله لا يحسب الخلايا الفارغه ايضا عند تلوين خليه باللون لا يظهر العدد الا عند الضغط على سطر الاوامر ليقوم بالتنفيذ ولا يقوم بالتنفيذ مباشر

وعليكم السلام ورحمة الله وبركاته ,, طبعاً قبل البدء بطرح الحل ، وجب التنبيه إلى ضرورة أن تكون الأرقام في الخلايا التي بها اللون تطابق نفس اللون للخلايات التي سيكون لها التعداد .. الدالة بسيطة كالتالي ضعها في مديول .. Function CountByColor(rng As Range, clr As Range) As Long Dim c As Range Dim cnt As Long cnt = 0 For Each c In rng If c.Interior.Color = clr.Interior.Color Then cnt = cnt + 1 End If Next c CountByColor = cnt End Function ثم الإستدعاء بالشكل التالي مع حرية تحديد النطاق وخلية اللون :- =CountByColor(B7:B100, A2) الملف بعد التطبيق :- 111.xlsm

السلام عليكم لدي جدول اريد حساب عدد الخليات لكل لون بكل عامود وتسجيل العدد جانب اللون من الاعلى ولكم جزيل الشكر 111.xlsm

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