محمد حجازي

السلام عليكم ... بمجرد قيامك بحماية الورقة فإن خاصية إظهار الخلايا المخفية تصبح غير مفعلة

السلام عليكم ... حسب خبرتي المتواضعة في الاكسل : - يمكنكم الكتابة في عدة أسطر في الخلية الواحدة بالضغط على Alt+Enter - المحاذاة لا يمكن أن تطبق إلا على الخلية بأكملها ، وخيار موزع لايستخدم الكشيدة (ـــ) كما في الورد - بالنسبة لحجم ونوع وتنسيق الخط يمكن ذلك على نصوص مختلفة في نفس الخلية ، فقط علم النص المطلوب واضغط كليك يمين عليه واختار الخيار تنسيق خلايا Format Cells

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

السلام عليكم ... مكنك ذلك عن طريق معالج استيراد البيانات : الخيار Import Data من القائمة Data القائمة الفرعية Import External Data فقط حدد ملف قاعدة البيانات واتبع الخطوات وستستورد البيانات الموجودة في هذه القاعدة الفائدة هي امكانية معالجة هذه البيانات بطرق احترافية عبر الاكسل و الاستفادة من قوته في معالجة البيانات و استخلاص التقارير ، وخاصة إذا عرفت أنه يمكنك تحديث هذه البيانات كلما حدث تعديل في المصدر الأصلي ( فقط انقر كليك يمين على أحد خلايا البيانات و اختار Refresh Data)

السلام عليكم ... جرب هذا الموضوع

السلام عليكم ... بالنسبة للسؤال الثاني : عندما تنشئ ارتباط تشعبي ، اضغط على الخيار Target Frame وحدد New New

السلام عليكم ... جرب الصيغة التالية : =DATE(YEAR($A$1);MONTH($A$1)+6;DAY($A$1))

السلام عليكم ... أخي ممكن توضح شوي ، هل تريد الانتقال لورقة أخرى في المصنف أم تريد فتح مصنف جديد؟

السلام عليكم ... آسف أخي على عدم الرد ولكنني لم أجد دالة بهذه الوظيفة !!! على كل حال يمكنك إنشاء دوال خاصة بك ، فمثلاً إذا كنا نريد إيجاد قيمة الحد N لمتوالية أساسها Basic و الحد الأول فيها OneLimit فإن هذا ممكن في الأكواد التالية : بالنسبة للمتواليات الحسابية : Function NS(N As Long, Basic As Double, OneLimit As Double) NS = OneLimit + (N - 1) * Basic End Function بالنسبة للمتواليات الهندسية: Function GS(N As Long, Basic As Double, OneLimit As Double) GS = OneLimit * Basic ^ (N - 1) End Function ويمكنك إنشاء دوال أخرى بالاعتماد على بقية قوانين المتواليات ....

السلام عليكم ... الأخ أبو هادي ، جزاك الله خيراً بما أفدتنا ، الكود يعمل بشكل جيد في الاكسل . يعطيك العافية

السلام عليكم ... سلمت يداك أخي محمد طاهر أكثر شيء أعجبني في البرنامج هذه الأسطر : Application.StatusBar = "Parsing / deleting ...." & _ Format(i / origraw, "0.0%") & " Please Wait......."

السلام عليكم ... هذا شرح بسيط وسريع ... أولاً قمت بحماية ورقة العمل ماعدا الخليتين 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 طبعاً هذا مع الأخذ بالاعتباه ما قاله الأخ العزيز حسام نور .