أ / محمد صالح

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

تفضل أخي هذا هو الكود الخاص بالطباعة 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

أخي الكريم بالنسبة للمطلوب الأول وهو الخاص بكتابة الاسم الثاني ضع هذه المعادلة في الخلية c6 =MID(A6;FIND(" ";A6);FIND(" ";A6;FIND(" ";A6))) وبانتظار الإخوة في باقي المطلوب

الرابط شغال ودائم بإذن الله لأني على حسابي في هذا الموقع وللعلم تم تحميل الملف 1100 مرة من يوم 21/7 حتى الأن 10/8 وجاري تطوير البرنامج وسيت رفعه متى تم بإذن الله

أخي الكريم هذا الرمز للانتقال إلى السطر التالي بمعنى <br> في لغة المواقع html تحياتي للجميع

أخي الفاضل safwatscc إذا كان قصدك أنك تريد دالة لجلب اسم اليوم من خلال تاريخ يتم تمريره للدالة بغض النظر عن اللغة الافتراضية للجهاز لأن أكواد الإخوة تظهر اسم اليوم بلغة الجهاز فمثلا لو لغة الجهاز الافتراضية هي العربية سيظهر اسم اليوم السبت مثلا أما إذا كانت الانجليزية فسيظهر satarday ومرفق دالة لمعرفة اسم اليوم من أي تاريخ باللغة العربية بغض النظر عن لغة الجهاز الافتراضية ويمكنها حساب اسم اليوم لأي تاريخ سابق أو لاحق فقط اكتب مثلا =dynm("10/10/2010") لتعرف اسم اليوم لتاريخ 10/10/2010 للعلم يجب أن يكون الشهر أولا ثم اليوم ثم العام في طريقة كتابة التاريخ تحياتي للجميع mas.rar

مشكور يا أخي هذه هوايتي اختصار الأكواد رائع

بعض ما عندكم اخي سالم سلمك الله من كل سوء وبارك فيك ونفع بك أخوك محمد صالح

بارك الله فيك أخي سالم لي تعليق بسيط انه يمكن حذف بعض السطور وإضافة سطر مهم جدا بعد كل عملية نسخ ألا وهو تفريغ الحافظة مما تم نسخه حتى يصبح كود الدالة هكذا Sub active_cell() Selection.Copy Sheets("scc2").Select Range("C5").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub شكرا لك مرة أخرى