أ / محمد صالح

أخي الكريم علي ما توصلت إلى فهمه من خلال ما ذكرته هو أنك تريد عمل رسالة تنبيه إذا كان فرق السنوات بين التاريخين يساوي صفر أو طبعا بالسالب يمكن عمل هذا بكود بسيط في حدث عند تغيير القيم في الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Sheets("sheet1").Range("c2").Value < 1 Then MsgBox "ضع نص رسالتك هنا" End If End Sub أتمنى أن يكون هذا هو المطلوب

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

ما شاء الله بارك الله فيك أخي يحيى

أكرمك الله أخي يحيى هذا بعض ما عندكم كل عام أنتم بكل خير

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

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

طبعا الإجابة لا يمكن ولكن الممكن هو استبدال دالة المتوسط average بدالة أخرى لا تظهر خطأ القسمة على صفر وهي بنفس معنى المتوسط =SUM(A8:B8)/2 لأنك في هذه الحالة ستقسم على رقم ثابت وهو عدد الأعمدة وفي حالتك هذه هو الرقم 2 أتمنى أن يكون اتضح الأمر

أخي قصي الأمر لايحتاج إلى إرفاق ملف ولا مثال يمكنك عملها أنت في ملف عندك 1- قم بعمل معاينة قبل الطباعة ستجد أن عدد الصفحات مثلا 4 صفحات و5 سطور وتريد ضغط ال 5 سطور في الأربع صفحات بحيث يتم طباعة الجميع في 4 صفحات فقط - لعمل ذلك افتح page setup من قائمة file وفي الجزء الخاص ب fit fit to 1 page wide by 4 pages tall ok - قم بمعاينة الصفحات مرة أخرى ستجد أنها اصبحت 4 صفحات فقط والسلام عليكم ورحمة الله وبركاته

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

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

أردت فقط تهنئتكم أحبابي زوار مدونتي بالعيد الأضحى أعاده الله علينا وعليكم بكل خير وفقنا الله وإياكم لزيارة بيته الكريم تحياتي أخوكم أبو عبد الله محمد صالح

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

بعد إذن أخي نادر هذه روابط لتحميل البرنامج http://www.multiupload.com/AEG8Q4B18J أو http://www.mirrorcreator.com/files/U2FTSCLC/_______________________________________________________________230.rar_links وكل عام أنتم جميعا بخير

يبدو أنه يوجد حلقة مفقودة قلت أنه 4 أرقام من أصل 19 وفي الأمثلة الأرقام من 6 خانات فهل تريد/ي عمل قائمة من 4 خانات للأرقام من 1 إلى 9 بدون تكرار رقم معين مثلا؟ يا ريت بالتفصيل الممل الرؤية لم تتضح بعد

يا ريت مزيد من التوضيح وإن شاء الله تجدي ما يسرك

وهذا حل آخر أخي صفوت وشكرا لأخي طارق وأخي يحيى mas-تسلسل الايام.rar

وطريقة استعمالها مثل الدالة mround التي تحدث عنها أخي يحيى masround(122,25)

مشكور أخي يحيى وتكملة للمشوار ولهذا الغرض قمت بتصميم هذه الدالة للإخوة الذين يستعملون نسخ سابقة عن أوفيس 2007 و 2010 Function masround(n As Double, m As Double) As Double masround = IIf(n - m * (n \ m) >= m / 2, m * (n \ m + 1), m * (n \ m)) End Function وكل عام أنتم بخير

شكرا أخي يحيى سبقتني إليها على العموم هذه هديتي لصاحب الموضوع Private Sub Workbook_Open() Select Case Application.Version Case Is = "10.0" MsgBox "you are using Office Xp" Case Is = "11.0" MsgBox "you are using Office 2003" Case Is = "12.0" MsgBox "you are using Office 2007" Case Is = "14.0" MsgBox "you are using Office 2010" End Select End Sub

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

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

أخي الكريم الملف المرفوع من الأخ khhanna يؤدي الغرض في إصدرارات الأوفيس قبل 2007 أما في أوفيس 2007 و 2010 فلا يوجد طريقة لتعطيل زر النسخ أو القص في الريبون إلا من خلال ملف xml وهو أيضا يمكن تعديله بواسطة مستخدم متقدم لأوفيس 2007 أو 2010 للعلم أخي khhanna يينقص الملف الخاص بك ماكرو يسمى CutCopyPasteDisabled وينبغي أن يكون هذا مفاده Sub CutCopyPasteDisabled() MsgBox "عذرا تم تعطيل عملية القص أو النسخ أو اللصق" End Sub

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

إن تفضلت بإرفاق ملفك فبإذن الله تحصل على كلمة المرور أو ملفك مفتوح بدونها إن شاء الله وكل عام أنتم بخير

شكرا لك أخي الكريم ويكون أفضل لو أرفقت الملف في المشاركة وليس في موقع خارجي