اذهب الي المحتوي
أوفيسنا

أ / محمد صالح

أوفيسنا
  • Content Count

    2,039
  • تاريخ الانضمام

  • Days Won

    40

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

  1. شكرا لاهتمامكم أستاذ @عبد اللطيف سلوم تم إصلاح المشاركة الأولى يمكنكم المتابعة الآن كل عام أنتم بخير وسعادة ورضا
  2. موعدنا اليوم مع شرح طريقة كيف تعرف أسعار العملات اليوم بدون مغادرة برنامجك في VBA اوفيس 2003 أو 2007 أو 2010 أو 2013 أو 2016 أو 2019 سواء برنامج اكسس أو اكسل أو وورد أو باوربوينت مع التعرف على أكواد عملات العالم وكذلك اسماء العملات باللغة العربية والانجليزية التعرف على نسخ النص الموجود في مربع النص إلى الحافظة والكثير من المفاجآت اكتشفها بنفسك ثالثا لمن يريد تحميل الملف الذي تم استخدامه في الشرح يمكنكم التعليق سواء هنا في المدونة أو في اليوتيوب وسيصلكم رابط الملف بإذن الله والآن مع فيديو الشرح ************** ولا تنسوا أحبابي الدعاء لغيركم بظهر الغيب حتى يقول لك الملك: آمين ولك مثلها إن شاء الله وتذكر لو بخل بها غيرك ما وصلت إليك فشارك المعلومة مع جميع أصدقائك في جميع مواقع التواصل الاجتماعي ============ القادم أفضل بإذن الله
  3. إن شاء الله يفيدكم هذا الفيديو فتابعونا وفقنا الله جميعا لكل ما يحبه ويرضاه ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ومشاركة الفيديو مع أصدقائكم فرب صديق يحتاج لما لا تحتاجه أنت
  4. ربما لم تقرأ عني أنه لا توجد حماية مطلقة حتى ميكروسوفت نفسها لم تستطع حماية منتجاتها وإنما هي فكرة ظهرت بعد استعمال بعض الإخوة لبيانات التسجيل في جدول وهذا طبعا أسهل للعب فيه أكثر من الريجيستري
  5. الفائدة من المدة التجريبية هي تجربة البرنامج لمدة 3 أيام مثلا وهل من المعقول أن يقوم إنسان بتثبيت نسخة ويندوز كل 3 أيامحتى يهرب من تسجيل برنامج؟؟؟!!!!
  6. إن شاء الله يفيدك هذا الفيديو ولا ينقصني سوى دعاؤكم ومشاركة المعلومة مع جميع أصدقائكم فلو بخل بهذا غيرك ما وصلت إليك فلا تبخل بها على غيرك
  7. كل شيء ممكن المهم هو إرفاق ملفك للتعديل عليه مع توضيح المطلوب تماما لكن هذه الألغاز والفوازير إجابتها قد لا تفهمها أنت *************** فمثلا للإجابةعلى هذا السؤال أقول لك: استعمل application.onkey هل فهمت شيئا؟؟!!!
  8. بسم الله الرحمن الرحيم سلام الله عليكم ورحمته وبركاته طلب مني الكثير من أولياء الأمور والتلاميذ شرح درس العوامل والمضاعفات والعامل المشترك الأكبر والمضاعف المشترك الأصغر والأعداد الأولية وتحليل العدد إلى عوامله الأولية المقرر على الصف الرابع الابتدائي حيث أنه صعب جدا على التلاميذ وربما بعض الكبار كذلك فقمت ببرمجة هذه الصفحة للمساعدة في حل هذه المسائل وفهم الموضوع ببساطة https://officena.net/team/mas/maths4/ والسؤال هنا هل أكتفي بهذه الصفحة أم أسجل فيديو لشرح الدرس؟ رأيكم يهمنا أرجو من الجميع المشاركة
  9. بسم الله نبدأ جمعتكم طيبة بذكر الله والصلاة على رسول الله أشكركم جميعا أحبابي في الله من كل قلبي على ثقتكم الغالية وإقبالكم على فيديوهات قناتي المتواضعة وأشكركم على دعمكم الدائم للقناة بالإعجاب والتعليق ومشاركة الفيديوهات وأعدكم بكل جديد ومفيد إن شاء الله في مجال تطوير التعليم والبرمجة والترفيه #ostazmas أحببت أشارككم فرحتي التي أنتم شريك فيها
  10. ممكن بالفوتوشوب أو الباوربوينت أو البابليشر أو أي برنامج رسومي المهم هو قدرة المستخدم على توظيف أدواته
  11. لا تحتاج لكتابة الكود في أكسس ثم تصديره إلى إكسل فقط تحتاج كتابة جميع سطور الأوامر الخاصة بالإكسل بين السطرين with xl end with وكأنك في تطبيق الإكسل تماما مثلا .activesheet.range("a1").value=5555555
  12. ما شاء الله شكرا خاص للأستاذ @رفعت يسري حامد لقيامه بالتحايل على المطلوب الذي أسعد أخانا مصطفى شاهين الله يعطيك العافية، تم حل المشكلة بإضافة كود تم إدراجه بالمشاركات أعلاه. أشكر لكم جهودكم الطيبة معنا والحمد لله صدق كلامي مع الأستاذ مصطفى ولم يتم الحل بجدول محتويات قائم على الإشارات المرجعية حيث أن ذلك غير ممكن في الوورد
  13. بفضل الله الموضوع بسيط لفتح الإكسل على مصنف معين وتشغيل ماكرو معين فيه استعمل هذه الدالة Function runExcelMacro(wkbookPath, macroName) Dim XL As Object Set XL = CreateObject("Excel.Application") With XL .Visible = False .displayalerts = False .Workbooks.Open wkbookPath .Run macroName .ActiveWorkbook.Close (True) .Quit End With Set XL = Nothing End Function وطريقة استدعائها هكذا Sub mas() Call runExcelMacro("C:\myworkbook.xls", "Macro1") End Sub الباراميتر الأول مسار الملف وليس اسمه فقط والثاني اسم الإجراء موفق بإذن الله
  14. يفضل تصوير الرسالة حتى نتعرف معك على الخطأ ويمكن معالجته
  15. أخي الكريم حتى يسهل عليك كتابة الكود يفضل أن تقوم بتسمية الجداول والحقول بحروف انجليزية وهي عادة حسنة يتبعها كل المبرمجين والمحترفين ولذا ينبغي عليك تسمية الجدول بـ names وحقل المعرف بـ id ثم أضف هذا الكود في حدث قبل الإدراج Private Sub Form_BeforeInsert(Cancel As Integer) If DCount("*", "[names]") >= 10 Then DoCmd.RunSQL "delete from names where id=" & DMin("id", "[names]") End If End Sub ومعناه كالتالي: إذا كان عدد السجلات في جدول names يساوي 10 يجري استعلام حذف السجل صاحب رقم id الأصغر موفق بإذن الله
  16. يبدو أن فكرة تطبيق ما تعلمه كل منا في الفيديو وصناعة ملف كدليل على الفهم الجيد فكرة صعبة ؟؟؟!!!
  17. مرحبا بأهل عمان الطيبين أدام الله عليكم المحبة والسلام بالنسبة للمطلوب غريب قليلا هل تريد أن يسمح بإضافة سجلات جتى يصل العدد إلى 10 ثم بعد ذلك يتم منع الإضافة؟ وماذا بعد منع الإضافة؟ هل تريد أن يحذف السجل الأول ثم يتم إضافة الجديد مكانه أم بعد الأخير؟؟ المطلوب سهل بإذن الله لكن نحتاج للمزيد من التفاصيل وفقنا الله جميعا لكل خير
  18. جميعا بإذن الله أستاذ @حلبي تقديرنا واحترامنا لكل ناشر للعلم وكل من يحث الناس على الفضيلة شكرا لمرورك العطر
  19. شكرا لكلماتك الطيبة استاذ علي وبإذن الله ستجد طريقة جديدة للتعامل مع الشروح لجذب انتباه الأحباب أعضاء المنتدى
  20. لكل عشاق الحديث في برمجة الأوفيس المتقدمة VBA يسعدني أن أقدم لكم شرح كود ترجمة جوجل 2019 في فيجوال بيسك للتطبيقات vba الموجودة ضمن حزمة ميكروسوفت أوفيس وسيكون الشرح على الأكسس microsoft access 2019 ومعالجة خطأ عدم ظهور الترجمة التعرف على أكواد لغات العالم world languages codes الموجودة في ترجمة جوجل وعددها 105 لغة التعرف على أسماء لغات العالم بالإنجليزية وباللغة العربية وباللغة المحلية لكل لغة دالة معرفة لإيقاف تنفيذ الكود فترة من الثواني wait مثل application.wait الموجودة في إكسل كتابة سطرين كود في سطر واحد نطق النصوص من خلال vba بجميع لغات العالم text to speech ترجمة سجلات الجداول أو الاستعلامات من خلال ADO وغيرها الكثيييييير اكتشفها بنفسك رابط القناة لمن لم يشترك معنا حتى الآن https://www.youtube.com/user/ostazmas2 #ostazmas ************ فتابعونا وقوموا بتفعيل زر الجرس للتنبيه وقت صدور الفيديو وعلق ولو بحرف لكي تدعمنا للاستمرار من أجلكم ********************* وفي هذه المرة لن أضع لكم الملف المستخدم في الشرح ولكن سأطلب ممن فهم الشرح أن يقوم بتطبيقه ويرفع لنا هنا ما تعلمه فعلا كنتيجة الفيديو ///////////////// وتذكر معي الحكمة القائلة: لا تعطني سمكة ولكن علمني كيف أصطاد
  21. يوجد في المنتدى الكثير من البرامج لحماية الكود وبدون مدة ويمكنك الاستفادة من هذا الموضوع في استخراج رقم الماذر بورد أو المعالج أو الهارد
×
×
  • اضف...