أ / محمد صالح

جزاكم الله خيرا

ينبغي علينا أولا فهم الكود الخاص بك أخي الكريم معنى الكود أنك تبتصل ب 17 قاعدة بيانات جميعها باسم Database#01.accdb وموجودة في 17 مجلد اسم المجلد هو الخلايا من b2 إلى b18 ثم تستعلم من قاعدة البيانات وتضع ناتج الاستعلام في نفس الخلية a6 هل فهمي للكود صحيح؟ وما المطلوب تصحيحه ؟

جرب هذا التعديل: If [h1] = "" Then pp: R.ExportAsFixedFormat Type:=xlTypePDF, Filename:="e:\pdf\" & "\" & fil_name sh.Range("a1:h30").PrintOut [h1] = [h1] + 1 Else m = MsgBox("تمت الطباعة قبل ذلك" & Chr(10) & "هل تريد الطباعة مرة أخرى", vbYesNo, "تنبيه") If m = 6 Then GoTo pp End If وهو يقوم بإظهار رسالة إذا تم تفيير قيمة الخلية h1 إذا تمت الطباعة قبل ذلك

شكرا لكلماتك الطيبة خالص دعواتي بالتوفيق أخوك محمد صالــــــح

من تبويب إدراج insert اختر wordart

مقترح جميل وللوصول إلى هذا يلزمنا: * تعديل سطر رابط الملف في الكود إلى wmp.Url = ThisWorkbook.Path & "\" & "mp3" & "\" & ListBox1.Value & ".mp3" للاحظ أنه يقرأ قيمة العنصر المجدد وليس فهرسه * وكذلك يلزمنا تغيير خاصية rowsource الخاصة بالقائمة إلى =INDIRECT("a1:a"&COUNTA(A:A)) وتعني تحديد الخلايا المكتوب فيها فقط في العمود a ويمكنك كتابة أسماء الملفات بصورة نصية أيضا مثل سورة كذا

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

خدمة الترجمة في جميع تطبيقات ميكروسوفت اوفيس من وإلى كل اللغات المدعوم في ترجمة Bing

ممكن تستعمل برنامج pdffill PDF tools تستعمل ميزة التقسيم split لأول 3 صفحات ثم دمج الجميع في ملف واحد ثم طباعته

ممكن ب word art بس اهم شيء نوع الخط

عليكم السلام ورحمة الله وبركاته هذا الأمر يتم بالكود لذا يلزمك: * تغيير امتداد الملف لصيغة تدعم الكود مثل xlsb & xlsm * كتابة اسم الملف وامتداده في عمود اسم الملف * استعمال الدالة FileCopy source, destination للنسح * استعمال الدالة Name source as destination للنقل * ربط الماكرو بالزر وهذا ملفك بعد تنفيذ جميع هذه الملحوظات بالتوفيق copy and cut files.xlsb

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

أخي الكريم لم أفهم مقصودك من السؤال استدعاء الدالة يكون بكتابة اسمها وتمرير رقم id لها فقط CapText(1) أو أي رقم تريده وطبعا ناتج الدالة عبارة عن النص المخزن في الجدول تضعه في أي مكان تريده سواء مربع نص أو تسمية أو زر أو تقرير أو أي شيء ربما إذا أوضحت مقصودك نتوصل للجواب

يوجد حلط بين مفهوم الدالة fimction والإجراء sub وخلاصة الفرق بينهما : الدالة تقوم بإرجاع قيمة بأي نوع من أنواع البيانات الإجراء لا يرجع قيمة وإنما يتم تنفيذ مجموعة من الأوامر تباعا ******* وفي حالتك هذه يمكنك استعمال هذه الدالة Public function CapText(ID As Integer) as string CapText = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) End function إذا كنت تريد أن تجعل مثلا عنوان الزر هو ناتج الدالة تستعمل هذا الكود button1.caption = CapText(1) إذا كنت تريد أن تجعل مثلا عنوان الليبل هو ناتج الدالة تستعمل هذا الكود label1.caption = CapText(2) بالتوفيق

بإذن الله يكون هذا هو المطلوب تفضل test1.xlsm

إن شاء الله تقوم هذه المعادلة بالغرض =IF(A1<C1,IF(FLOOR.MATH(A1,10)=FLOOR.MATH(C1,10),C1,""),"")

فكرة جميلة وبسيطة بانتظار جديدك أستاذ عصام

المطلوب غير واضح لي بصورة كافية ومحاولات الأستاذ جعفر ناتجة عن عدم وضوح المطلوب له أيضا وحسب فهمي للمطلوب: فأنت لا تريد دالة وإنما تريد إجراء sub تعطي له رقم id يعرض لك رسالة msgbox إن كان هذا هو المطلوب فجرب هذا الإجراء Public Sub MSG(ID As Integer) Dim Message As String, TItle As String Message = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) TItle = DLookup("[txtMessageTitle]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) MsgBox Message, , TItle End Sub وهذه طريقة استدعائه في البرنامج Sub mas() MSG (1) End Sub أرجو أن يكون هو المطلوب

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

الكلام النظري لن يفيدك أولا يفضل إرفاق ملف أو جزء منه ليساعدك من يستطيع.

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

طريقة استعمال معادلات المصفوفات بسيطة جدا وهي أولا تحدد الخلايا التي تريد تطبيق المعادلة عليها مثلا من c5:c25 ثم تكتب المعادلة في شريط الصيغة ثم تضغط على ctrl+shift+enter تمت

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

ممكن تكون مشكلة في لوحة المفاتيح