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

أ / محمد صالح

أوفيسنا
  • Posts

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

  • Days Won

    198

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

  1. إضافة بسيطة على كلام أخي ابو اسامة يتم وضع الكود السابق في حدث عند تغير التحديد في ورقة العمل فيصبح الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then Application.DisplayFormulaBar = False ActiveSheet.Protect Else Application.DisplayFormulaBar = True ActiveSheet.Unprotect End If End Sub وكل عام أنتم بخير بمناسبة شهر رمضان الكريم أخوكم محمد صالح
  2. تفضل اخي الكريم إذا أردت معرفة الكلمات الرابعة فأكثر استعمل المعادلة الثانية مرفق ملفك بعد التعديل والشرح تحياتي للجميع قص الجمل2.rar
  3. شكرا لك أخي ياسر ولكن يوجد برامج لفك كلمة مرور مشروع vba ما الحل؟؟
  4. السلام عليكم ورحمة الله وبركاته عذرا لتأخري في المشاركة في هذا الموضوع ولكن أتيت لكم بموديول واحد به كل ما تريد دالة التفقيط العربي والانجليزي للأخ الرائع أبو هادي والتي قمت فيها ببعض التعديلات ويمكنك من التحكم في عدد المنازل العشرية مراعاة قواعد اللغتين في التفقيط بحيث يراعي كون المعدود مذكرا أو مؤنثا يراعي وضع المعدود والكسر منونا بالنصب وغيرها أترككم مع الملف المرفق وأي مساعدة لا تتردد فزكاة العلم نشره وكثيرا ما استفدت من هذا المنتدى الرائع أخوكم محمد صالح ar_en_tafqeet.rar
  5. إخوتي الكود الموجود في المرفق السابق به مشكلة مع المسار الذي يحتوي على مجلد اسمه مكون من كلمتين أو اسم ملف مكون من كلمتين تم اكتشافها بعد كتابة الكود للأسف وهذا الكود بعد التعديل Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Shell "cmd.exe /C copy " & """" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & """" & " " & """" & "c:\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-AMPM-") & ThisWorkbook.Name & """", 0 End Sub وتم زيادة كود الحفظ حتى لا يسألك عن حفظ التغييرات مرفق الملف بعد التعديل mas_backup2.rar
  6. تفضلوا كل ما أمرتم به ينفذ بإذن الله مفيش حاجة اسمها مستحيل mas_backup.rar
  7. لا شكر على واجب أخي الكريم نحن هنا لنتعلم من بعضنا وقد أفادني المنتدى كثيرا وكل عام أنتم بخير بمناسبة شهر رمضان الكريم
  8. للأسف أخي الخطأ في برمجة صفحات منتدانا الرائع أوفيسنا ( خطأ في لغة php يخص طريقة عرض الرابط .... على استعداد لعلاجه) وهذا رابط الملف لمرة أخرى هنـــــــــــا وتم ارفاق الملف بالمنتدى للعلم جاري تطويره salaries.rar
  9. عذرا يوجد خطأ بسيط في المعادلة الخاصة بالاسم الثاني ومرفق التصحيح والشرح mas_parts2.rar
  10. شكرا لكل الإخوة الكرام ولكن ملاحظتي الوحيدة على جميع ما سبق من أكواد أنا خاضعة للغة الافتراضية للجهاز فلو كانت اللغة الانجليزية ظهر اليوم بالانجليزية أما الدالة خاصتي تظهر باللغة العربية رغم لغة الجهاز وهذه الصور توضح ما أقصد يوجد ناتج كل طريقة فوقها في الصورة الثانية
  11. أخي الفاضل بعد تحليل معادلات الأخ خيور وجدت أنها مرتبطة بمكان الأرقام ومعتمدة على مكان الرقم السابق فقمت بعمل هذه المعادلة البسيطة في مبناها وتقوم بنفس الغرض ويمكنك استبدال أماكن الأرقام في المعادلة كما تشاء وستعمل بإذن الله أخوكم محمد صالح parts_mas123.rar
  12. أخي الكريم بالنسبة للمطلوب الأول وهو الخاص بكتابة الاسم الثاني ضع هذه المعادلة في الخلية c6 =MID(A6;FIND(" ";A6);FIND(" ";A6;FIND(" ";A6))) وبانتظار الإخوة في باقي المطلوب
  13. الرابط شغال ودائم بإذن الله لأني على حسابي في هذا الموقع وللعلم تم تحميل الملف 1100 مرة من يوم 21/7 حتى الأن 10/8 وجاري تطوير البرنامج وسيت رفعه متى تم بإذن الله
  14. أخي الكريم هذا الرمز للانتقال إلى السطر التالي بمعنى <br> في لغة المواقع html تحياتي للجميع
  15. أخي الفاضل safwatscc إذا كان قصدك أنك تريد دالة لجلب اسم اليوم من خلال تاريخ يتم تمريره للدالة بغض النظر عن اللغة الافتراضية للجهاز لأن أكواد الإخوة تظهر اسم اليوم بلغة الجهاز فمثلا لو لغة الجهاز الافتراضية هي العربية سيظهر اسم اليوم السبت مثلا أما إذا كانت الانجليزية فسيظهر satarday ومرفق دالة لمعرفة اسم اليوم من أي تاريخ باللغة العربية بغض النظر عن لغة الجهاز الافتراضية ويمكنها حساب اسم اليوم لأي تاريخ سابق أو لاحق فقط اكتب مثلا =dynm("10/10/2010") لتعرف اسم اليوم لتاريخ 10/10/2010 للعلم يجب أن يكون الشهر أولا ثم اليوم ثم العام في طريقة كتابة التاريخ تحياتي للجميع mas.rar
  16. مشكور يا أخي هذه هوايتي اختصار الأكواد رائع
  17. بعض ما عندكم اخي سالم سلمك الله من كل سوء وبارك فيك ونفع بك أخوك محمد صالح
  18. بارك الله فيك أخي سالم لي تعليق بسيط انه يمكن حذف بعض السطور وإضافة سطر مهم جدا بعد كل عملية نسخ ألا وهو تفريغ الحافظة مما تم نسخه حتى يصبح كود الدالة هكذا Sub active_cell() Selection.Copy Sheets("scc2").Select Range("C5").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub شكرا لك مرة أخرى
  19. وهذا برنامج لمجموعة كبيرة من أكواد الفيجوال بيسك 6 يمكنكم الاستفادة منه أكواد v.6.rar
  20. البرنامج شغال ولكنه يحتاج لبعض ملفات DLL يمكنك معرفتها من رسالة الخطأ التي تظهر شكرا لك أخي الكريم على هذه الهدية
  21. بالفعل أخي الكريم تم إضافة صفحتان لعمل سجل الأجور المتغيرة وطباعته ورفع الأجور المتغيرة ممن يستحق تلقائيا وتم إضافة صفحة لحساب مكافأة الامتحانات بطرقة شيقة بحيث إذا كنت قبل شهر 7 يظهر لك ما ستصرفه في شهر 7 وإذا كنت في شهر يوليو أو بعده يظهر لك مكافأتك في العام القادم شكرا لكم لتعاونكم وبانتظار اقتراحات أخرى حتى يكون صالحا لكل مكان في مصر
  22. بالفعل هذا ما تم فعله في النسخة المطورة استعمال التحقق من صحة المدخلات من خلال اختيارها من قائمة في الوظيفة والدرجة والحالة الاجتماعية وغيرها ** ما المقصود بكسب العمل؟ يوجد في الاستقطاعات نقابة بفضل الله تم التوصل قلاعدة في الدمغة العادية لا تظلم جميع المستويات لأنها تختلف من درجة لأخرى في نسبتها أسعدني مرورك أخي الكريم
  23. أولا جزى الله الأخ أبو هاجر المصري خير الجزاء على ما قدم واليوم أقدم هدية لكل من يريد تعلم vba الإكسل موقع كامل لهذا الغرض هنـــــا وهذا رابط لترجمته عبر ترجمة جوجل هنــــــــــــــــــــــــــــــــــــا أتمنى أن أكون ساهمت ولو بقدر يسير أخوكم محمد صالح
  24. شكرا أخي لمرورك ولكن اليس أهم جانب من جوانب التعليم المذكورة أن يتعلم المرء كيف يحمي أمواد برامجه حتى لا يسرقها سارق إذا كنت تعرف فتفضل علينا وإلا فدع المجال لعارف يبتغي وجه الله في نشر العلم النافع وبانتظار المحترفين إذا كان الموضوع ممكنا في الإكسل حماية أكواد vba وليس حماية ورقة عمل بكلمة مرور من السهل معرفتها
×
×
  • اضف...

Important Information