أ / محمد صالح

أخي الكريم بارك الله فيك خصائص الأداة لا تختلف بين إصدارات الأوفيس مطلقا ربما يتغير الشكل فقط وبالنسبة للطلب الثاني الخاص بكود إنشاء القائمة فهذا هو مع مراعاة تغيير المعاملات المطلوبة Sub Createdropdown() Dim Drp1 As Object Set Drp1 = ActiveSheet.DropDowns.Add(120, 20, 100, 18) With Drp1 .ListFillRange = "$a$1:$a$10" .LinkedCell = "K3" .DropDownLines = 8 .Display3DShading = True .Caption = "اختر من القائمة : " End With End Sub الموجودة بعد with وهي على الترتيب المدى الذي تملأ به القائمة الخلية المرتبطة عدد الصفوف في القائمة عرضها بطريقة ثلاثية الأبعاد عنوان القائمة لا تنسوني من صالح دعائكم في هذه الأيام المباركة

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

تفضل أخي هذه الدالة تقوم بنفس الغرض إن شاء الله مبنية على دالة iserror الموجودة في إكسل 2000 و 2003 Function IfErr(formula As Variant, show As String) On Error Resume Next If IsError(formula) Then IfErr= show Exit Function Else IfErr= formula Exit Function End If End Function كل عام أنتم بخير

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

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

يبدو أن عملية الحساب calculation تم تغييرها في خيارات الإكسل excel options إلى يدويا manual ويجب عودتها إل تلقائي automatic

هل تعلم أن نسخ المعادلات في إكسل 2003 كان بهذا الكود Selection.AutoFill Destination:=Range("c4:c20"), Type:=xlFillDefault وكان يستهلك من ذاكرة الجهاز قدرا كبيرا أما في إكسل 2007 جرب هذا الكود Selection.FillDown وذلك طبعا بعد تحديد الخلية في الحالتين Range("c4:c20").Select ويمكنك ايضا استعمال fillright fillleft fillup تحياتي للجميع

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

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

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

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

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

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

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