محمد حجازي

السلام عليكم ... هذا شرح بسيط وسريع ... أولاً قمت بحماية ورقة العمل ماعدا الخليتين B1 و B3 ، وذلك مع إزالة إمكانية تحديد الخلايا المحمة ، وبذلك فإنه لا يمكن تحديد سوى الخليتين B1 و B3 الكود ببساطة : الشرط الأول : إذا كانت الخلية المعدلة هي B1 فيتم الانتقال للشرط الثاني ، والا فيتم تحديد الخلية B3 Worksheets("m").Range("B3").Select وذلك لأنها هي الخلية المعدلة في هذه الحالة الشرط الثاني : إذا كانت الخلية B1>30 فيتم جعل صورة الجو حار (الصورةPicture 2) في المقدمة : Worksheets("m").Shapes("Picture 2").Select Selection.ShapeRange.ZOrder msoBringToFront وإلا فيتم جعل صورة الجو معتدل (الصورةPicture 1) في المقدمة : Worksheets("m").Shapes("Picture 1").Select Selection.ShapeRange.ZOrder msoBringToFront وفي كلتا الحالتين فإنه يتم تحديد الخلية B1 Worksheets("m").Range("B1").Select وذلك لأنه الخلية المعدلة في هذه الحالة ....

السلام عليكم ... جرب هذا الكود : Private Sub Workbook_Open() Dim A As Integer Dim B As Integer B = Day(Date) A = Month(Date) Select Case A Case Is = 1 Sheets("كانون الثاني " & B).Select Case Is = 2 Sheets("شباط " & B).Select Case Is = 3 Sheets("آذار " & B).Select Case Is = 4 Sheets("نيسان " & B).Select Case Is = 5 Sheets("أيار " & B).Select Case Is = 6 Sheets("حزيران " & B).Select Case Is = 7 Sheets("تموز " & B).Select Case Is = 8 Sheets("آب " & B).Select Case Is = 9 Sheets("أيلول " & B).Select Case Is = 10 Sheets("تشرين الأول " & B).Select Case Is = 11 Sheets("تشرين الثاني " & B).Select Case Is = 12 Sheets("كانون الأول " & B).Select End Select End Sub ولكن يجب كتابة التاريخ هكذا : كانون الأول 25 أي يجب كتابة اسم الشهر قبل رقم اليوم و الفصل بين الرقم و الاسم بمسافة مفردة واحدة

السلام عليكم ... جرب الملف المرفق : حيث يكون الجور حاراً ما دامت درجة الحرارة أكبر من 30 ولا فيعتبر معتدلاً degree.zip

السلام عليكم ... هل هذا قصدك ؟!!! Workbooks.Open Filename:= _ "D:\m.xls"

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

السلام عليكم ... يجب كتابة البريد بالكامل في اسم المستخدم ، أي :ccc@hotmail.com من الممكن أنك لم تقم بتحديد طبيعة الاتصال عبر الخيار More Settings ، أو قد يكون الهوتمل مجوب من قبل مزود خدمة الانترنيت لديك ....

السلام عليكم ... في هذا الدرس شرح للتحديث عن طريقة الخيار Links من القائمة Edit : http://www.c4arab.com/showlesson.php?lesid=2103 وعند كتابة الدرس لاحظت أن الخيار Startup Prompt يعمل جيداً في الإصدار XP ولكنه لا يعمل في الإصدار 2003 ولا أعلم بالضبط مالسبب في ذلك

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

السلام عليكم ... عند إنشاء حساب جديد فقط حدد الملقم HTTP ومن ثم اختار خيار hotmail واكتب عنوان بريدك على الهوتمل وكلمة المرور

السلام عليكم ... يمكنك ذلك عن طريقتين : 1. عن طريق الصيغة (إذا أعجبتك :d !!!) ، مثال: =A1&"/"&B1&" = "&A1/B1 2.عن طريق دمج وتحديد الخلايا ....

السلام عليكم ... يمكنك ذلك عن طريق الرمز / وذلك كما في المثال التالي (ستحصل على النتيجة 2) : =10/5 ولكن يجب عليك الانتباه إلى قواعد الأسبقية و طرق التحكم في سير العمليات الحسابية ... الرابط التالي يوضح الأمر: http://www.c4arab.com/showlesson.php?lesid=2114

السلام عليكم .... آسف على فكرة الانعكاس لأنها لم تنجح ، وقد تهيأ لي صحتها عندما جربتها بسرعة على مثال افتراضي:@ على أية حال وعند اختار الخيار Chart Type جرب تحديد الخيار Default Formatting فقد يفيدك

السلام عليكم ... في الوصلة التالية الكثير من صور الكليب آرت للأخ " صالح محمد " من الموسوعة العربية للكمبيوتر و الانترنيت : http://saleh.c4arab.info/clipart.html

السلام عليكم ... إذا كنت تريد طباعة ورقات مصنف الاكسل كلها بدون استثناء ، فالكود التالي يحقق لك الغرض : Sub PRINT1() Dim Pr As Worksheet For Each Pr In ActiveWorkbook.Worksheets Pr.PrintOut Copies:=1, Collate:=True Next Pr End Sub طبعاً هذا مع الأخذ بالاعتباه ما قاله الأخ العزيز حسام نور .

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

السلام عليكم ... هل أنت المشرف نفسه الموجود في ذلك المنتدى

السلام عليكم ... شكراً لك على هذا المنتدى ... هذا ما كنت أريده

السلام عليكم .... يعطيك العافية ، ولكن أنا أريد (منتديات إدارة) وليس مواقع ، أريد ساحة لطرح الأسئلة .

السلام عليكم .... الرجاء ممن يعرف وصلات لمنتديات (عربي/انجليزي) متخصصة بالعلوم الإدارية إفادتنا بها ، وله جزيل الشكر سلفاً

السلام عليكم ... هذا مثال على استخدام الدالتين ، ولكن يجب التنبيه إلى أنه في حال تساوي قيمتين فإن الاكسل سيختار القيمة الأولى . بالتوفيق ... MAX&VLOOKUP.zip

السلام عليكم ... أرسل الملف على بريدي لأعدله لك

السلام عليكم ... مشكلتك الأولى من المشاكل التي واجهتني كثيراً ولم أجد حلاً لها سوى الطريقة الموجودة في المثال المرفق ، وفي هذه الطريقة تحتاج لأربعة أعمدة إضافية (الأعمدة E ، F ، G ، H المخفاة) ولتوسيع الجدول ينبغي عليك لصق قاعدة Validation بصورة متقطعة (كأن تلصق الأعمدة A2،A4،A6،...،الخ) ، وهذه الطريقة معقدة بعض الشيئ ولكنها الطريقة الحاضرة في ذهني حالياً ، وأرجو ممن لديه طريقة أبسط إفادتنا بها ... أما بالنسبة لمشكلتك الثانية فهذا اقتباس للأخ أبو مؤنس جزاه الله كل خير : http://www.officena.net/ib/index.php?showtopic=4060 Validation123.zip

السلام عليكم ... يعطيك العافية على هذا المثال ، ويمكن ملاحظة أن هذا المثال يترجم أوامرك لصيغة صفيف قادرة على حل المشكلة.

السلام عليكم ... آسف لعدم المشاركة ، ولكن لا يوجد عندي شيئ لإضيفه

السلام عليكم ... جرب الصيغة التالية : =IF((ROUND(A1;2)-TRUNC(A1;0))>0.75;ROUNDUP(A1;0);IF((ROUND(A1;2)-TRUNC(A1;0))>0.5;TRUNC(A1;0)+0.75;IF((ROUND(A1;2)-TRUNC(A1;0))>0.25;TRUNC(A1;0)+0.5;IF((ROUND(A1;2)-TRUNC(A1;0))>=0.1;TRUNC(A1;0)+0.25;TRUNC(A1;0))))) وهذا (كما قلت) فإن التقريب يبدأ من 0.1 وما فوق ...