محمد حجازي

السلام عليكم ... الملف يعمل عندي تمام ، عاين المرفق : ___.rar

السلام عليكم ... هذه المشكلة موجودة في المنتدى و قد طرحت منذ فترة في مناقشات فريق الموقع. السبب هو نسخة المنتدى الحالية ، و جاري التفاوض حالياً لشراء نسخة جديدة و تركيبها . الكلام منقول على لسان إدارة الموقع ............. بالنسبة للاكسل ، راجع الرابط التالي : http://www.officena.net/ib/index.php?showtopic=7914 تحياتي

السلام عليكم ... اضغط على Alt +F11 ليظهر محرر الفيجوال ، على اليسار وفي النافذة Project افتح الـ ThisWorkbook و ألصق هذا الكود فيه : Private Sub Workbook_Open() Me.Worksheets("Sheet1").Activate Me.ActiveSheet.Range("A1").Activate End Sub راجع الرابط التالي : http://www.officena.net/ib/index.php?showtopic=5565 يمكنك استثناء البيانات التي لا ترغب بطباعتها عن طريق عدم إدخالها في ناحية الطباعة . من القائمة File انقر على الخيار Page Setup لتظهر لك نافذة . في التبويب Sheet ضع المجال الذي يمثل ناحية الطباعة في المربع Print area . بالتوفيق

السلام عليكم ... راجع الرابط التالي : http://www.officena.net/ib/index.php?showtopic=8726

السلام عليكم ... Alt +F11 ليظهر محرر الفيجوال ، على اليسار وفي النافذة Project افتح الورقة المطلوب تطبيق الكود عليها و ألصق الكود .

السلام عليكم ... أرجو أن يكون هذا هو طلبك : chart1.rar

السلام عليكم ... انظر هل تروق لك هذه الطريقة : من القائمة File انقر على الخيار Page Setup لتظهر لك نافذة . في التبويب Header/Footer انقر على الزر Custom Footer . يوجد أربع أقسام للكتابة تمثل الجزء الأيمن و الأوسط و الأيسر . الآن تستطيع كتابة التذيل الخاص بك مع امكانية تغيير الفونت وحجمه و شكله .

السلام عليكم ... كما يظهر من اسمها فإنها نافذة مراقبة ، ولكن ماذا تراقب ؟ يا أخي إنها تراقب (أو لنقل إنها تعرض) قيم الخلايا المختلفة !!! لنفرض أنك تريد تغيير قيمة خلية معينة ، ولنفترض أن هناك خلايا أخرى (في نفس الورقة أو في نفس المصنف أو حتى في مصنفات مختلفة) تحتوي على صيغ تشير (بواسطة المراجع) لهذه الخلية ، ولنفترض أنك تريد معرفة الأثر الذي أحدثه تغيير قيمة هذه الخلية على باقي الخلايا . ماذا ستفعل ؟ ستقول لي أنك ستقوم بجولة على أوراق العمل كافة من أجل معاينة هذا الأثر ، ولكن هل هذا هو الحل المقبول ؟ وفر على نفسك العناء و استخدم نافذة المراقبة (y) بواسطة نافذة المراقبة يمكنك تتبع قيم الخلايا المتباعدة جغرافياً :d و إجراء المقارنة بينها (لأنها موجودة ضمن قائمة واحدة). فقط اضغط على زر Add Watch لإدراج الخلايا المختلفة إلى القائمة. هذه القائمة ستعرض المعلومات التالية عن الخلايا المضافة إليها : اسم مصنف الخلية ، اسم ورقة الخلية ، اسم الخلية (إن وجد) ، مرجع الخلية ، القيمة الحالية للخلية ، الصيغة الموجودة في الخلية . ملاحظات : 1. لا يمكنك تتبع قيم الخلايا الموجودة في مصنفات أخرى إلا في حالة كون هذه المصنفات مفتوحة و قد العمل . 2. توجد نافذة شبيهة بهذه النافذة في محرر الفيجوال (لعرض قيم المتغيرات المختلفة) ، ويمكنك إظهارها عن طريق الضغط على الخيار Watch Window الموجود في القائمة View .

السلام عليكم ... للعملتين نفس النتيجة ، و ذلك لأنني أستخدم الورقة Sheet1 كأساس لتوليد باقي الأوراق .

السلام عليكم ... هذا حل عن طريق الصيغ : كما يمكن عمل ذلك بالمايكرو . Sort_mmm.rar

السلام عليكم ... في الرابط التالي برنامج مخصص لهذا الأمر . يسمح لك بتحميل نسخة ديمو تفك حماية كلمة مكونة من محرفين فقط . http://www.lostpassword.com/

السلام عليكم ... آسف أخي لأنني لم أنتبه إلى أنني غيرت اسم المصنف . هل هذا ما تقصده ؟ CopySheet1.rar

السلام عليكم ... المشكلة بسيطة إن شاء الله ، و لكن يلزمني بعض التوضيح . هل البيانات الموجودة في المجال A:H تحتوي على معلومات متشابة ؟ أي هل جميع البيانات لها نفس الطبيعة ، أم أن لكل عامود بياناته الخاصة ؟ و في الحالة الثانية ماذا يجب علينا مقارنته بالتحديد ؟

السلام عليكم ... ما دمت معاي ، الرجاء توضيح طلبك لأني بصراحة لم أفهم ما تريد تحديثه و ما لا تريد تحديثه .

السلام عليكم ... شكراً للأخ LoveCandle على هذا الشرح المميز . بالنسبة للكتاب المقترح تجميعه ، أرى أن يكون على صيغة xls بدلاً من pdf وذلك لأن أغلب الأعضاء تستهويهم على ما يبدو فكرة شرح الدوال بواسطة ملف اكسل. ما رأيكم؟

السلام عليكم ... الأخ ali fathi ، راجع الرابط التالي : http://www.officena.net/ib/index.php?showtopic=4624

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

السلام عليكم ... يمكنك حل المشكلة عن طريق تعديل الكود : Private Sub CommandButton1_Click() Sheets(Cmb_NameSheet.Text).Select End End Sub إلى : Private Sub CommandButton1_Click() If Not Cmb_NameSheet.Text = "" Then Sheets(Cmb_NameSheet.Text).Select End If End End Sub بالتوفيق

السلام عليكم ... عن طريق برامج جاهزة متخصصة .

السلام عليكم ... الأخوة alnda ، kedo تم إرسال الدعوات

السلام عليكم ... جرب التعديل التالي : Private RunWhen As Double Public Sub RunCopy() With Workbooks("CopySheet") Sheets.Add After:=.Sheets(.Sheets.Count) .Sheets(.Sheets.Count).Name = Replace(Time(), ":", "-", 1, -1) .Sheets(.Sheets.Count).Range("A1:C5").Value = .Sheets("Sheet1").Range("A1:C5").Value .Sheets(.Sheets.Count).Range("D1:F5").Value = .Sheets(.Sheets.Count - 1).Range("A1:C5").Value .Sheets("Sheet1").Activate End With RunWhen = Now + TimeSerial(0, 0, 5) Application.OnTime RunWhen, "RunCopy", , True End Sub Public Sub StopCopy() On Error Resume Next Application.OnTime RunWhen, "RunCopy", , False RunWhen = 0 End Sub CopySheet1.rar

السلام عليكم ... راجع الروابط التالية : http://www.officena.net/ib/index.php?showtopic=8162 http://www.officena.net/ib/index.php?showtopic=4215

السلام عليكم ... جرب التعديل التالي : Private RunWhen As Double Public Sub RunRefresh() MyFiles = Array("1010.xls", "1020.xls", "1040.xls") ' files name For Each MyName In MyFiles Workbooks("ملخص السوق").UpdateLink Name:=Workbooks("ملخص السوق").Path & "\" & MyName, Type:=xlExcelLinks Next MyName RunWhen = Now + TimeSerial(0, 10, 0) Application.OnTime RunWhen, "RunRefresh", , True End Sub Public Sub StopRefresh() On Error Resume Next Application.OnTime RunWhen, "RunRefresh", , False RunWhen = 0 End Sub Refresh1.rar

الدوال المنطقية : تمهيداً لفهم طبيعة هذه الدوال نورد المثال التالي : من المفترض أنك تعودت على كتابة صيغ حسابية عادية تحتوي عمليات الجميع و الضرب و ... الخ ، ولكن ماذا عن الصيغ المنطقية ؟ . الآن قم بكتابة الصيغة المنطقية التالية في شريط الصيغة و لكن بدون أن تدرجها : =A1>0 ماذا تتوقع أن تعطي الصيغة السابقة ؟ . حسناً ستقول أن الاكسل لن يفهم المقصود من هذه الصيغة أو لن يستطيع التعبير عنها على أقل تقدير !. و سيقوم حتماُ بإرجاع خطأ معين عندما يقوم بقراءتها. و لكن يا أخ قد يكون تخمينك في غير محله :p أدرج الصيغة السابقة و لاحظ النتيجة الاكسل يقوم بإرجاع إحدى القيمتين TRUE أو FALSE وذلك ليخبرنا عما إذا كانت الصيغة المنطقية السابقة محققة أم لا . الآن بعد التمهيد السابق لنبدأ بالتعرف على الدوال المنطقية التي يوفرها لنا الاكسل : الدالة AND : الدالة AND هي دالة منطقية تتعامل مع قيم منطقية (شأنها شأن الـ OR و الـ NOT) . ما المقصود بذلك ؟ ببساطة يجب أن تكون مدخلات هذه الدالة عبارة عن قيم منطقية (ناتجة عن علاقات منطقية محددة) لتقوم بدورها بإرجاع قيمة منطقية أيضاً . أي أنه يجب أن تكون جميع وسائط هذه الدالة عبارة عن علاقات منطقية . الدالة AND تقوم بإرجاع القيمة TRUE إذا كانت جميع مدخلاتها هي TRUE ، و تقوم بإرجاع القيمة FALSE إذا كان هناك مدخل واحد أو أكثر من مدخلاتها FALSE ، لاحظ الصيغة التالية : =AND(A1>0;B1=5) لاحظ أن الدالة السابقة ترجع القيمة TRUE في حالة واحدة فقط وهي أن تكون القيمة الموجودة في الخلية A1 أكبر من الصفر و القيمة الموجودة في الخلية B1 تساوي 5 ، و إلا فسوف ترجع القيمة FALSE . يمكنك زيادة عدد الشروط كما تشاء (ضمن حدود الاكسل) وذلك عن طريق فصل هذه الشروط (العلاقات المنطقية) عن بعضها بالفاصلة المنقوطة (شأنها شأن الـ OR) . الدالة OR : الدالة OR تقوم بإرجاع القيمة TRUE إذا كان هناك مدخل واحد على الأقل من مدخلاتها TRUE ، و تقوم بإرجاع القيمة FALSE إذا كانت جميع مدخلاتها FALSE ، لاحظ الصيغة التالية : =OR(A1<0;B1=10) لاحظ أن الدالة السابقة ترجع القيمة TRUE إذا كانت القيمة الموجودة في الخلية A1 أصغر من الصفر ، أو إذا كانت القيمة الموجودة في الخلية B1 تساوي 10 ، أو إذا تحققت العلاقتين السابقتين معاً ، و ترجع القيمة FALSE في حالة كون القيمة الموجودة في الخلية A1 ليست أصغر من الصفر و القيمة الموجودة في الخلية B1 لا تساوي 10 . الدالة NOT : تقوم هذه الدالة بعكس القيمة المنطقية لمدخلها ، فإذا كانت قيمة مدخلها TRUE فإنها ترجع FALSE ، و إذا كانت قيمة مدخلها FALSE فإنها ترجع TRUE ، لاحظ الصيغة التالية : =NOT(A1=0) الدالة السابقة ترجع القيمة TRUE في حال كون القيمة الموجودة في الخلية A1 لا تساوي الصفر ، و ترجع القيمة FALSE في حال كون القيمة الموجودة في الخلية A1 تساوي الصفر . يمكن الاستعاضة عن الصيغة السابقة بالصيغة : =A1<>0 الدالة NOT لا تتعامل سوى مع وسيط واحد . يمكننا أن نقوم بدمج الدوال السابقة (AND و OR و NOT) عن طريق تداخل الدوال ، لاحظ الصيغة التالية : =NOT(OR(AND(A1>0;B1=5);AND(A1<0;B1=10))) الآن بعد أن تعرفنا على الدوال السابقة قد تتساءل في أي شييء يمكننا استخدامهم ؟!! قد تجد جواباً لسؤالك بعد أن تتعرف على الدالة IF :pp: الدالة IF : الشكل العام لهذه الدالة هو كما يلي : =IF(condition;result1;result2) في المدخل الأول condition يجب وضع الشرط أو الدالة المنطقية أو العلاقة المنطقية التي ستعطي إحدى القيمتين TRUE و FALSE. إذا كانت قيمة المدخل الأول TRUE فإن الدالة IF ستنفذ الصيغة الموجودة (أو ترجع القيمة الموجودة) في جواب الشرط الأول result1 . و إذا كانت قيمة المدخل الأول FALSE فإن الدالة IF ستنفذ الصيغة الموجودة (أو ترجع القيمة الموجودة) في جواب الشرط الثاني result2 . لاحظ الصيغ التالية : =IF(A1>=50;"ناجح";"راسب") =IF(A1>B1;A1-B1;B1-A1) =IF(NOT(OR(A1="";B1=""));A1+B1;) =IF(COUNT(A1:A5)=5;SUM(A1:A5);"") =IF(ISNA(VLOOKUP(C2;A2:B10;2;FALSE));"";VLOOKUP(C2;A2:B10;2;FALSE)) ويمكننا استثمار الدالة IF في تداخل الدوال ، لاحظ الصيغة التالية : =IF(A1<0;"";IF(A1<50;"راسب";IF(A1<60;"مقبول";IF(A1<70;"جيد";IF(A1<80;"جيد جداً";IF(A1<90;"ممتاز";IF(A1<=100;"درجة الشرف";""))))))) أرجو أن أكون قد وفقت في إيصال المعلومة .... تحياتي

السلام عليكم ... الرجاء التقيد بطرح المواضيع في الأقسام المخصصة ... الحل موجود على الرابط التالي : http://www.officena.net/ib/index.php?showtopic=8632