أ / محمد صالح

في التأني السلامة الموضوع كبير

ملف رائع أخي الكريم ودالة رائعة الغريب أنها غير موجودة في دوال الوقت والتاريخ وكنا نتغلب على ذلك بعمل دالة هي Function MyDuration(OldDate, NewDate) Dim Separator As String Separator = " - " If IsNull(NewDate) Then NewDate = Date End If If IsNull(OldDate) Or OldDate >= NewDate Then MyDuration = "" Exit Function End If Dim Y As Integer, M As Integer, D As Integer Dim Yn As Integer, Mn As Integer, Dn As Integer Y = DatePart("yyyy", [OldDate]) M = Month([OldDate]) D = DatePart("D", [OldDate]) Yn = DatePart("yyyy", NewDate) Mn = Month(NewDate) Dn = DatePart("D", NewDate) If Dn >= D And Mn >= M Then MyDuration = Yn - Y & Separator & Mn - M & Separator & Dn - D Exit Function ElseIf Dn < D And Mn <= M Then MyDuration = (Yn - 1) - Y & Separator & (Mn + 11) - M & Separator & (Dn + 30) - D Exit Function ElseIf Dn < D And Mn > M Then MyDuration = Yn - Y & Separator & (Mn - 1) - M & Separator & (Dn + 30) - D Exit Function ElseIf Dn >= D And Mn < M Then MyDuration = (Yn - 1) - Y & Separator & (Mn + 12) - M & Separator & Dn - D Exit Function End If End Function

مشكور أخي وجزاك الله خير الجزاء

أشكر جميع الإخوة على المرور وأعدكم بسلسلة لتعليم أوفيس 2007 إن رغبتم ذلك كل عام أنتم بخير

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

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

بسم الله الرحمن الرحيم إخوتي في الله سلام الله عليكم ورحمته وبركاته بالنسبة للدالة المستخدمة في ملفي taqseet2 هي دالة FLOOR تستعمل في تقريب رقم لأسفل، باتجاه الصفر، إلى أقرب رقم مضاعف معنوي. بناء الجملة (FLOOR(number,significance Number (الرقم) القيمة الرقمية التي تريد تقريبها. Significance (الرقم المضاعف) المضاعف الذي تريد تقريبه. ملاحظات إذا كانت إحدى الوسيطتين غير رقمية، ترجع FLOOR القيمة الخطأ #VALUE!. إذا كان لكل من number وsignificance لهما إشارات مختلفة، ترجع FLOOR قيمة الخطأ #NUM!. بصرف النظر عن إشارة الرقم، فيتم تقريب القيمة لأسفل عند تعديلها بعيداً عن الصفر. فإذا كانت number عبارة عن مطابقة الرقم بمضاعفات الأرقام المعنوية، فلا يحدث تقريب. فبالنسبة للطريقة الأولى تجد في الخلية d2 المبلغ المراد تقسيطه وتجد في الخلية d5 عدد الأقساط وتجد في الخلية d3 هذه المعادلة =D2-FLOOR(D2/2;D5) وتعني أنها تساوي المبلغ - تقريب ناتج قسمة المبلغ على 2 (النصف ) إلى أقرب عدد الأقساط بمعنى أن نصف المبلغ وليكن 833 هو 416.5 والدالة تقربه لأسفل إلى أقرب رقم يقبل القسمة على عدد الأقساط (4) وأقرب رقم يقبل القسمة على 4 لأسفل من الرقم 416.5 هو 416 ثم نأتي لعملية الطرح 833-416=417 فيكون هذا هو قيمة القسط الأول والباقي 416 مقسم على 4 أقساط كل قسط =416/4 يساوي 104 وهكذا مع تغير المبلغ وتغير عدد الأقساط وأعتقد أنكم يمكنكم تفسير باقي المعادلات في باقي الطرق وإلا فأنا مبعرفش أشرح تحياتي للجميع MAS

أشكر أخي خالد على مروره وكلماته الرقيقة وأشكر أخي بوعمر رغم أني كنت متوقع أنك من المستخدمين لأوفيس 2007 نصيحة أخرى كنا نحفظ اختصارات لوحة المفاتيح في الأوفيس السابق وكثيرا ما نريد الوصول السريع للأمر ولكننا نفشل أو نصل للأمر المطلوب بعد كثير من الخطوات *** الآن في أوفيس 2007 يمكنك الضغط على زر alt لتجد صورة مثل هذه وفي الصورة السابقة تجد كل حرف يميز التبويب الخاص به فإذا ضغطت على حرف h والذي يخص التبويب home ستجد هذه الصورة أيضا فإذا أردت مثلا فتح قائمة الخطوط اضغط ff وهذه تعني المجموعة font لأن كل تبويب مقسم إلى مجموعات وكل مجموعة مقسمة إلى أوامر ثم بعد اختيار المجموعة اخترت font والذي هو نوع الخط إذا لتفتح قائمة الخطوط من لوحة المفاتيح تضغط alt+h+ff أتمنى أن تكون نصيحة سريعة ومفيدة وهكذا أتمنى من الإخوة من يعلم شيئا يخبر الجميع به ملحوظة الصور من أوفيس 2010 ولكن الفكرة واحدة بإذن الله أخوكم محمد صالح

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

أخي الكريم الموضوع أولا وأخيرا يرجع لشخصية الإنسان من حيث كونه مغامر ومتطلع وباحث أم أنه يتبع القول : " اللي تعرفه أحسن من اللي متعرفوش" أنا شخصيا استعمل أوفيس 2010 ورغم أنه نسخة تجريبية technical preview ولكني مؤمن بأن شركة عظمى في مجال البرمجيات وتمتلك فريق عمل لا يوجد مثله في العالم مثل ميكروسوفت ستخرج على العالم بنسخة تكون أقل شأنا من سابقتها ولذا انصحك باستخدام كل ما هو حديث والصبر على العلم ويوجد حكمة تقول : "الإنسان عدو ما يجهل" بمعنى أنه إذا صعب عليه شيء قال أنه غير جيد رغم أنه من الممكن أن يكون العيب فيه وأولا وأخيرا هذا مجرد رأي ولكل منا رأيه الخاص فلا حجر على رأي أحد ولا أطالب الآخرين بالتبعية الفكرية فأنا أكره التبعية الفكرية جدا تحياتي أخوك محمد صالح

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

يا أخي لو لاحظت المعادلة المكتوبة في الخلية كنت ستجد أنك يمكنك التعديل كما ترغب فقط استبدل الجزء التالي في المعادلة DAY(TODAY()) وضع مكانه "1" وعلى العموم هذا الملف بعد التعديل أشكرك على ذوقك فيما يخص موقعي المتواضع frmfirst2last.rar

أخي الكريم هل عدد الأقساط متغير أم ثابت على خمس أقساط؟؟ وأعتقد أنه لا يجب تساوي الأقساط الأربعة الباقية في الطريقة الثانية لأنه من الممكن أن يكون المبلغ المتبقي بعد ما يتم دفعه لا يقبل القسمة على أربعة أم أنه يمكننا تعديل المبلغ المدفوع لما ينبغي أن يكون على العموم هذه محاولة taqseet2.rar

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

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

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

وإياك اخي ياسر يسّر الله أحوالك

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

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

تفضل أخي زورو المطلوب في صورة دالة 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 وإلا فيلغي الحماية التي تم تنفيذها في جواب الشرط الأول أخوكم محمد صالح