أ / محمد صالح

ولا يهمك يا أخي المهم يكون هو ده المطلوب

تفضل أخي زورو المطلوب في صورة دالة Book1.rar

أخي الكريم مع احترامي لمثال الأخ سالم إذا كان قصدك أنك تريد أن يحسب البرنامج في الطريقتين الأقساط الأربعة بدون كسور مثل 252.60 وتريدها أن تكون مثلا 252 فتفضل وأتمنى أن يكون هو المقصود taqseet.rar

أخي عمرو إذا كان قصدك أن تحتوي خلية على حركة الخزينة عن الفترة من وتاريخ اليوم وحتى تاريخ نهاية الشهر الحالي فهذه محاولة مني في الوصول للمطلوب تجدها في المرفق frmtodat2last.rar

شكرا لمرورك أخي صفوت وهذا مثال وليس فرضا بقاء المسار على السي ولكن هل لاحظت أن البرنامج سيقوم بعمل نسخة احتياطية من البرنامج في كل مرة تفتح ثم تغلق فيها البرنامج فاسمح لي بطلب ( ليس اختبارا لأني على ثقة في أعضاء هذا الصرح ولكن من باب تبادل الخبرات) عمل شيء يسمح للمستخدم بالاختيار هل يريد عمل نسخة احتياطية عند الخروج فإذا كانت الإجابة بنعم قام البرنامج بالنسخ وإلا فلا ولي اقتراح آخر وهو معرفة عدد النسخ الموجودة في مجلد النسخ الاحتياطي فإذا زادت عن 5 قام البرنامج بحذف الأقدم كيف يتم ذلك؟؟ حتى نكون قد صممنا نظام للنسخ الاحتياطي يمكن لكلٍ منا وضعه في برنامجه برجاء التواصل من الإخوة مشرفي وأعضاء المنتدى فزكاة العلم نشره وكل عام أنتم بخير M.A.S محمد عبد الجواد صالح

أخي ياسر وجدت في البرنامج الموجود بالرابط السابق مشاكل في عملية الفك فقمت برفع البرنامج والسيريال والتعريب على رابط جديد هذا هو من هنــــــأ عذرا عن التأخير

بالفعل أخي الكريم يمكن إظهار وإخفاء شريط الصيغة والأفضل من وجهة نظري هو اخفاء المعادلة و ما تفرقش إظهار أو إخفاء شريط الصيغة فيكون الكود بعد التعديل وبعد إضافة كلمة مرور لحماية الشيت هكذا Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then Selection.Locked = True Selection.FormulaHidden = True ActiveSheet.Protect Password:="mas123" Else ActiveSheet.Unprotect Password:="mas123" End If End Sub ويعني الكود السابق إذا كانت النطاق يحتوي على معادلة يتم حماية وإخفاء المعادلة في الخلية ثم حماية ورقة العمل بكلمة مرور هي mas123 وإلا فيلغي الحماية التي تم تنفيذها في جواب الشرط الأول أخوكم محمد صالح

ايه الحلاوة دي يا عم ياسر شرح واف بس أنصحك باستعمال برنامج هذا موقع البرنامج موقع البرنامج وهذا رابط للتحميل من هنــــــا وقولي ايه رأيك

تفضل أخي هذا هو الكود الخاص بالطباعة ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1 وتحدد فيه الصفحات من .... إلى ..... وكذلك عدد النسخ ولكل تستعمله تضعه في sub وتربط زر أو شكل تلقائي أو صورة بهذا الماكرو أرجو أن أكون قد أفدتك

تسلم أخي من كل سوء كل عام أنتم بخير

شكرا على مرورك اخي سالم أسعدني مرورك على موقعي المتواضع

بالنسبة لظهور الحروف العربية كرموز غريبة في ايميل الياهو مثلا يوجد أسفل كل رسالة مجموعة من الأزرار وهي deleete * replay *forward * spam * move ويوجد أسفل هذه الأزرار قائمة مكتوب فيها select message encooding اختر utf-8 وإذا لم تضبط معك اختر windows-1256 حيث أن الترميز الأول هو الترميز العالمي والثاني هو ترميز اللغة العربية كلامي هنا على الياهو كلاسيك أما بالنسبة للياهو الجديد فيوجد قائمة في صورة زر في أعلى الرسالة more options ومنه اختار encooding أخبرني هل حلت المشكلة بعد هذه المحاولات أم لا أخوك محمد صالح

أخي ياسر موضوع ظهور اللغة العربية المنسوخة من vbe تحتاج فقط لنسخ ولصق النص في المفكرة notepad ثم نسخه منها إلى الموقع وقد تم علاجها في أوفيس 2010 هذا من أوفيس 2010 Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "عربي" End Sub وهذا بعد نسخه في المفكرة ونسخه من المفكرة إلى هنا Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "عربي" End Sub

إضافة بسيطة على كلام أخي ابو اسامة يتم وضع الكود السابق في حدث عند تغير التحديد في ورقة العمل فيصبح الكود 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.rar

شكرا لك أخي ياسر ولكن يوجد برامج لفك كلمة مرور مشروع vba ما الحل؟؟

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

إخوتي الكود الموجود في المرفق السابق به مشكلة مع المسار الذي يحتوي على مجلد اسمه مكون من كلمتين أو اسم ملف مكون من كلمتين تم اكتشافها بعد كتابة الكود للأسف وهذا الكود بعد التعديل 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

تفضلوا كل ما أمرتم به ينفذ بإذن الله مفيش حاجة اسمها مستحيل mas_backup.rar

يا ريت مزيد من التوضيح

لا شكر على واجب أخي الكريم نحن هنا لنتعلم من بعضنا وقد أفادني المنتدى كثيرا وكل عام أنتم بخير بمناسبة شهر رمضان الكريم

للأسف أخي الخطأ في برمجة صفحات منتدانا الرائع أوفيسنا ( خطأ في لغة php يخص طريقة عرض الرابط .... على استعداد لعلاجه) وهذا رابط الملف لمرة أخرى هنـــــــــــا وتم ارفاق الملف بالمنتدى للعلم جاري تطويره salaries.rar

عذرا يوجد خطأ بسيط في المعادلة الخاصة بالاسم الثاني ومرفق التصحيح والشرح mas_parts2.rar

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

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