كل الانشطه

1. رجاء اخذ صورة من رسالة الخطأ ، حتى نرى ما يراه الاكسس ، 2. في الكود اعلاه ، كتبت شرطة زائدة "\" ، فبدل: "\Youssef\" يجب ان يكون "Youssef\" ، فرجاء تجربة الكود التالي: Private Sub cmd_Export_to_Excel_Click() '- تصدير الى اكسل Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & 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" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & 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

تفضل الملف بعد التعديل . كان فيه أخطاء كثيرة جدا في ارتباط الخلايا في اليوزرفورم مكتب_المحامي للتعديل2.xlsm

فعلاً لم أفهم المطلوب بشكل واضح ..

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

اعتقد أن الحل كان بين يديك في مشاركة الأستاذ @عبدالله بشير عبدالله في موضوعك السابق ..

جزيل الشكر لك عزيزي باشمهندس @منتصر الانسي على المشاركة 🙂 فعلا مر علي ملف الأستاذ أبو هادي سابقا .. وهو عمل مدهش وشامل فعلا .. وأذكر أنني عدلت عليه قليلا ليعطيني الكود الخاص بمنشيء التعبير أيضا : الأصل المعدل وهذه هي قائمة الخيارات توسعت لطالبها 🙂

هممم 1. انا لم اتاكد من وجود مجلد باسم Youssef في المجلد المحلي ، فهل هو موجود ؟ بالتعديل التالي ، قمت بالتاكد من وجود لبمجلد Youssef ، وان لم يكن موجودا ، فيقوم الكود بعمله : Private Sub cmd_Export_to_Excel_Click() '- تصدير الى اكسل Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef\" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & 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\" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & 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 2. دائما لما تحصل على رسالة خطأ ، رجاء ارفاقها حتى نعرف سبب الخطأ ، ونستطيع مساعدتك ، 3. ومع اني اعرف ان رد الاستاذ خليفة هو الافضل للاستعمال ، ولكن رجاء اعمل التجربة اعلاه واعطنا النتيجة لوسمحت.

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

يالغالي : الرقم 123456

الخبير المبدع شكرا علي الحلول الرائعة التى تقدمها لي عدة طلبات سامحنى علي الاطالة ١ إضافة اجماليات لكل حقول الاكسل ٢ كتابة اسم المريض علي ملف الاكسيل بعد التصدير ملف pdf يفتح لكنة لم يحفظ اريد حفظة بجوار الاكسيل وياخد اسم المريض شكرا لحضرتك

الخبير الفاضل jjafferr قمت بتجربة البرنامج بعد تعديل حضرتك علية واعطى رسالة خطا عند ضغط التصدير الى اكسيل او PDF DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True باللون الاصفر فى pdf و اكسيل

حدث عند الوقت 👍🏻 فكرة جميلة جداً توظيف التايمر

جرب التعديل التالي 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

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