اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أ / محمد صالح

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4,359

  • تاريخ الانضمام

  • Days Won

    185

 نوع المحتوي 

كل منشورات العضو أ / محمد صالح

  1. أ / محمد صالح
    مقترح جميل وللوصول إلى هذا يلزمنا: * تعديل سطر رابط الملف في الكود إلى wmp.Url = ThisWorkbook.Path & "\" & "mp3" & "\" & ListBox1.Value & ".mp3" للاحظ أنه يقرأ قيمة العنصر المجدد وليس فهرسه * وكذلك يلزمنا تغيير خاصية rowsource الخاصة بالقائمة إلى =INDIRECT("a1:a"&COUNTA(A:A)) وتعني تحديد الخلايا المكتوب فيها فقط في العمود a ويمكنك كتابة أسماء الملفات بصورة نصية أيضا مثل سورة كذا
  2. أ / محمد صالح
    بالتوفيق للجميع هكذا يستمر صرح العطاء بلا مقابل ابتغاء وجه الله
  3. أ / محمد صالح
    خدمة الترجمة في جميع تطبيقات ميكروسوفت اوفيس من وإلى كل اللغات المدعوم في ترجمة Bing
  4. أ / محمد صالح
    ممكن تستعمل برنامج pdffill PDF tools تستعمل ميزة التقسيم split لأول 3 صفحات ثم دمج الجميع في ملف واحد ثم طباعته
  5. أ / محمد صالح
    ممكن ب word art بس اهم شيء نوع الخط
  6. أ / محمد صالح
    عليكم السلام ورحمة الله وبركاته هذا الأمر يتم بالكود لذا يلزمك: * تغيير امتداد الملف لصيغة تدعم الكود مثل xlsb & xlsm * كتابة اسم الملف وامتداده في عمود اسم الملف * استعمال الدالة FileCopy source, destination للنسح * استعمال الدالة Name source as destination للنقل * ربط الماكرو بالزر وهذا ملفك بعد تنفيذ جميع هذه الملحوظات بالتوفيق copy and cut files.xlsb
  7. أ / محمد صالح
    للأسف لم أجد شيئا يخص عند انتهاء تشغيل الملف يقوم بعمل كذا فقمت بإعادة هيكلة الكود من جديد إن شاء الله يكون المطلوب لا تنس ان تشاركنا هذا الإبداع عند اكتماله وفقنا الله جميعا لكل ما يحبه ويرضاه test.rar
  8. أ / محمد صالح
    أخي الكريم لم أفهم مقصودك من السؤال استدعاء الدالة يكون بكتابة اسمها وتمرير رقم id لها فقط CapText(1) أو أي رقم تريده وطبعا ناتج الدالة عبارة عن النص المخزن في الجدول تضعه في أي مكان تريده سواء مربع نص أو تسمية أو زر أو تقرير أو أي شيء ربما إذا أوضحت مقصودك نتوصل للجواب
  9. أ / محمد صالح
    يوجد حلط بين مفهوم الدالة 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) بالتوفيق
  10. أ / محمد صالح
    بإذن الله يكون هذا هو المطلوب تفضل test1.xlsm
  11. أ / محمد صالح
    إن شاء الله تقوم هذه المعادلة بالغرض =IF(A1<C1,IF(FLOOR.MATH(A1,10)=FLOOR.MATH(C1,10),C1,""),"")
  12. أ / محمد صالح
    فكرة جميلة وبسيطة بانتظار جديدك أستاذ عصام
  13. أ / محمد صالح
    أعتقد لا يوجد مثل هذا التصرف والأفضل أن تغلق الغرفة الأولى في موعدها وتدعوهم الغرفة الثانية في موعدها المحدد
  14. أ / محمد صالح
    المطلوب غير واضح لي بصورة كافية ومحاولات الأستاذ جعفر ناتجة عن عدم وضوح المطلوب له أيضا وحسب فهمي للمطلوب: فأنت لا تريد دالة وإنما تريد إجراء 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 أرجو أن يكون هو المطلوب
  15. أ / محمد صالح
    شكرا لجميع المشاركين ومن الواضح من استفسارات الأصدقاء هو عدم وضوح فكرة البرنامج لهم حيث أن الفكرة تعالج القصور الموجود في تخزين معلومات التسجيل في جدول يمكن تعديله أو في ملف في السي أيضا يمكن تعديله لذلك تم الاعتماد على الريجيستري وأيضا طريقة ربط البرنامج بالجهاز مرنة جدا بحيث يمكن استخدام رقم الهارد ديسك أو البروسيسيور أو الماذربورد أو أي شي تريده. وأنا غير مسئول عن أكواد أخرى يستعملها البعض ولا تجلب أرقام الهارد أو البروسيوسور أو غيره أنا مسئول فقط عن أكوادي التي استعملتها في البرنامج. أخيرا وليس آخرا جعلنا الله جميعا من الذين يعاونون على التطور وليس من المثبطين الهمم آمين آمين آمين
  16. أ / محمد صالح
    مزيد من المعلومات حول ""
    لا يوجد مشكلة abdalrazag هذا هو الطبيعي في عمل البرنامج وبعد 3 ايام جرب أن تفتح البرنامج أي بعد انتهاء المدة للعلم البرنامج يعمل مع جميع إصدارات الويندوز وجميع إصدارات الأوفيس
  17. أ / محمد صالح
    الكلام النظري لن يفيدك أولا يفضل إرفاق ملف أو جزء منه ليساعدك من يستطيع.
  18. أ / محمد صالح
    إن شاء الله يكون هذا هو المطلوب تم الاستغناء عن عمود اسم اليوم وذلك بتنسيق عمود التاريخ تم إضافة جدول مساعد يتم استخدامه في عملية البحث mas_Labour A.rar
  19. أ / محمد صالح
    طريقة استعمال معادلات المصفوفات بسيطة جدا وهي أولا تحدد الخلايا التي تريد تطبيق المعادلة عليها مثلا من c5:c25 ثم تكتب المعادلة في شريط الصيغة ثم تضغط على ctrl+shift+enter تمت
  20. أ / محمد صالح
    بعد إذن الإخوة المشاركين في الموضوع أهتم جدا باختصار الأكواد والمعادلات وهذا هو الملف السابق للأخ @أبو عيد ولكن بدون الأعمدة المساعدة وباستعمال معادلات المصفوفات array formula ولا أنصح بتنفيذها على عدد كبير من الصفوف وإنما في ملف للطباعة يحتوي على 20 صفا في الصفحة الواحدة جلب بيانات تلاميذ بناء على قائمة.xlsx
  21. أ / محمد صالح
    ممكن تكون مشكلة في لوحة المفاتيح
  22. أ / محمد صالح
    بعد إذن جميع الأخوة المشاركين هذا جهدي المتواضع لإثراء الموضوع يمكن اختصار الإجراء لهذا الكود Sub TEST() Dim Sh As Worksheet, LR As Long, Cel As Range Dim Texte1 As String For Each Sh In Worksheets(Array("DATA")) LR = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row Texte1 = Ar_WriteDownNumber(Cells(LR, "Q") + (Cells(LR, "p") / 100), "جنيها", "قرشا", 100) Sh.Cells(LR + 2, "C").Value = "فقط " & Texte1 ''' هنا حدد اين تريد يظهرالتفقيط ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sh.Range(Sh.Cells(LR + 1, "A"), Sh.Cells(LR + 12, "C")).ClearContents Next Sh End Sub
  23. أ / محمد صالح
    شكرا لمروركم الكريم نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  24. أ / محمد صالح
    جميعا بإذن الله تعالى تم عرض التفقيط vba متعدد اللغات في قناتي منذ فترة شكرا لاهتمامكم
  25. أ / محمد صالح
    التجربة خير برهان
×
×
  • اضف...

Important Information

  I accept