m.hindawi

بسم الله الرحمن الرحيم استخدم الدالة timevalue كما في الملف التالي واذا كنت بحاجو الى السطر الذي قمت بالتعديل عليه بامكانك اضافة سطر ثالث تدرج فيه timevalue timevalue.rar

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

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

بسم الله الرحمن الرحيم اولا الصيغ كلها خاطئة لاحظ انك استخدمت الفاصلة العادية , وبالتالي لتصحيح الصيغ استبدل الفاصلة العادية بالفاصلة المنقوطة ; وبالتالي تصبح الصيغ كالتالي =SUM(2*5;4;A:A) =LEFT(A1;3) =IF(AND(6>5;2*6=7+5);3*3;3*4) =SUM(A5;B6;C7;D12 ) ثانيا تستطيع وبكل بساطة ان تدخل الصيغ في اي ملف اكسل لتعرف الاجوبة

بسم الله الرحمن الرحيم الملف كان يحتاج الى تعديل بسيط جدا جرب الملف بعد التعديل book1.zip

بسم الرحمن الرحيم اخي الكريم السلام عليكم ورحمة الله وبركاته الخطأ الذي اشر ت اليه هو يشر الى دالة التفقيط المسماة abouhani وهي دالة قمت بتحميلها من موقع افيسنا على الربط التالي http://www.officena.net/ib/index.php?showtopic=3069 واظن انه قد تم مراجعتها تكرارا ولا تحتوي على اية خطأ في الكود البرمجي و بكل صراحة انا لا اعرف سبب ظهور هذا الخطأ لديك قمت بمراجعتها اليوم ايضا ولم اجد فيها اية خطأ على كل حال ارجع للرابط الذي اشرت اليه اعلاه وتاكد من ذلك بنفسك اما بالنسبة للخطأ الثاني وهو compile error cantfind project library) فهذا يعني انك لم تعرف المراجع بشكل جيد راجع هذا الموضوع من اوله هناك شرح بالصورة لكيفية تعيين المراجع واعتقد والله اعلم ان الخطأ الاول ناجم عن نقص في تعليم المراجع لديك ايضا حاول ان تعيد تعريف المراجع واظن انه لن تظهر رسالة خطأ ولك الشكر

بسم الله الرحمن الرحيم اخي الكريم لم اجد اي شيئ يمكنه تخطي الصفوف الفارغة في الطباعة ولكن يمكن عمل ذلك عن طريق اخفاء الصفوف الفارغة ثم الطباعة وبعد ذلك اعادة اظهار الصفوف الفارغة عن طريق الكود التالي For A = 1 To 500 TEST = Sheets("1").Cells(A, 1) If (TEST) = "" Then Rows(A).Hidden = True End If Next Sheets("1").PrintOut Sheets("1").Cells.Select Selection.EntireRow.Hidden = False Sheets("1").Cells(1, 1).Select مع ملاحظة التالي اسم الورقة المراد طباعتهاهو 1 غيره ليتناسب مع الاسم في ملفك الصف رقم 500 يحتوي على المجموع الخلايا الفارغة لا تحتوي على صيغ اذا كانت الخلايا الفارغة تحتوي على صيغ يجب تعديل الكود بما يتناسب مع ذلك جرب الكود وابلغني بالنتيجة

بسم الله الرحمن الرحيم اخي الكريم مصطفى لا اعتقد ان لنسخة نظام التشغيل اي علاقة بالاخطاء قمت بتجربة املف على الملينيوم وعلى ال الاكس بي و ايضا قمت بالتجربة على اوفيس اكس بي واوفيس 2003 ولم يظهر اية خطأ الرجاء من الاخوة الكرام الذين تظهر لديهم رسالة خطأ ان يسجلوا الرسالة ويدرجوها هنا لمعرفة مصدر الرسالة حتى اتتمكن من معرفة سبب ظهورها ولكم الشكر هناك امر اخر وهي الاخطاء التي تتم معالجتها اثناء التشغيل بالامر on error اذا كنت قد اعددت الفيجوال بيسك لديك بان يقوم بايقاف التشغيل لبرنامج اكسل عند كل الاخطاء فانه عليك ان تقوم بالتالي افتح برنامج الاكسل ادخل الى محرر الفيجوال بيسك بالضغط على alt+f11 من القائمة tools اختر options ستفتح شاشة فيها اربعة علامات تبويب وهي editor edetir format general docking اختر علامةالتبيوب general على اليمين سوف تجد عبارة error traping تاكد من ان العلامة على breake on unhandled errors بعد ذلك عليك حذف الملف القديم ثم اعادة فك الضغط من الملف الذي حملته من الموقع ارجو من الاخوة الكرام التاكد من ذلك واذا ظلت رسائل الخطأ بالظهور ارجو ادراج الرسالة كما تظهر لمعرفة السبب

هناك دالة اسهل من ان تكتب عدد مرفوع للقوة الكسرية لحساب الجذر التربيعي وهي الدالة SQRT

يكفي ان تكتب 4^2 اي 4 مرفوعة للقو ة 2 ملاحظة هذا الرمز (^) موجود فوق الرقم 6 او استخدم الدالة power عن طريق ادراج دالة

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذه هي النسخة المعدلة من برنامج المخازن ولقد قمت بتجارب كثيرة عليه وانشا الله لا تحتوي على اية خطأ كما قمت بتعديل بسيط على القوائم واظهار واخفاء اشرطة الادوات ارجو ان تنال اعجابكم طريقة تشغيل البرنامج اولا فك االملف المضغوط باستخدام برنامج وين رار ثم شغل الملف المسمى المخازن اذا كانت بعض المراجع لديك غير معرفة سوف تظهر لك رسالة خطأ اضغط على زر debug ستفتح لك قائمة هي قائمة refrences والتي من خلالها يتم اضافة المراجع وهي على الشكل التالي اولا قم بازالة جميع المراجع الموجود عندك في الجهاز هناك بعض المراجع التي لايمكن ازالتها لانها قيد التشغيل ثم اضف المراجع كما هي بالصورة المرفقة اعلاه ملاحظة قد لا تحتاج الى كل المراجع الموضحة بالصورة ولكنني اضفت بعضها تحسبا ملاحظة اذا لم تفتح شاشة ال refrences تلقائيا يمكن فتحها عن طرق التالي اضغط alt +f11 يفتح مشروع فيجوال بيسك ثم من القائمة tools اختر refrences ثم قم باضافة المراجع حسب الشرح ملاحظة بالنسبةللطباعة اذا لم يكن لديك طابعة مثبة على الجهاز قد تظهر رسالة خطأ للحيلولة دون ظهورها عليك ان تثبت طابعة على الجهاز حتى لو لم يكن عندك طابعة تستطيع ذلك عن طريقة اضافة طابعة من لوحة التحكم بالنسبة لاستخدام البرنامج الافضل استخدام الارقام العربية وهي على الشكل التالي بالنسبة لارقام الاصناف يفضل استخدام الحروف الانجليزية مع الارقام العربية على الشكل ارجو ان ينال البرنامج اعجابكم واذا كان لديكم اية ملاحظات او استفسارات لا تترددو في طرحها هنا almakhazn.rar

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

بسم الله الرحمن الرحيم اولا عليك ان تدرج ورقة جديدة في ملفك وسميها protection افتح محرر فيجوال بيسك وفي كود الورقة التي انشاتها تحت الحدث activate ادرج الكود التالي myno = InputBox("Password required" & Chr(13) & "to show this page you have to enter password ", "please enter password") If IsNull(myno) Or myno = "" Then GoTo 20 If myno = "6251036" Then MsgBox "ok go ahead " Else MsgBox "Wrong Password" & Chr(13) & " sorry bad password!", vbOKOnly 20 Sheets("main").Activate End If طبعا بافتراض ان اورقة الرئيسية في ملفك اسمها "main" اذا كان لها اسم اخر غيره في الكود ثانيا من القائمة insert اختر new moudle ادرج فيه الكود التالي Sub pro() Dim ws As Worksheet For Each ws In Worksheets ws.EnableSelection = xlUnlockedCells ws.Protect Password:="6251036", DrawingObjects:=True, Contents:=True, Scenarios:=True Next End Sub الان افتح موديل اخر وادرج فيه الكود التالي Sub unp() Dim ws As Worksheet For Each ws In Worksheets ws.EnableSelection = xlUnlockedCells ws.Unprotect Password:="6251036" Next End Sub الان الملف جاهز وما عليك الا ان تنشا عدد 2 زر ماكرو في الورقة الجديدة التي انشاتها من القائمة نماذج وتعين الماكرو الاول للزر الاول والماكرو الثاني للزر الثاني كلمات المروو في كل الاحالات هي 6251036 تستطيع تغيرها كما تشاء ملاحظة اذا كان لديك اي استفسار ادرجه في موضوع جديد لان هذا الموضوع طال

السلام عليكم ورحمة الله وبركاته اخي الكريم فقط وضح المطلوب بالتحديد وساحاول ان ارفق لك الكود البرمجة ب VBA يطلق عليها اسم البرمجة المسيرة بالاحداث بمعنى اخر هناك حدث يقوم به المستخدم وينتج عنه ردة فعل من البرنامج عليك ان تحدد الحدث لمعرفة ماذا تريد من البرنامج بالضبط ان يفعل بمعنى اخر وبالنسبة لمثالك هلى تريد ان يتم حماية جميع الاوراق بمجرد فتح ملف الاكسل ام انك تريد حماية جميع الاوراق اذا ضغطت على زر الامر ومانوع الحماية التي تريدها اذا كانت حماية للخلايا المؤمنة ام لا وكيف تربد ان تزول الحماية الخ.......... من الامور

بسم الله الرحمن الرحيم كل عام وانت بخير اخي محمد لا حرمنا الله من طلتك

اذا اعجبكم الملف الاول جربو هذا الملف cd.zip

بامنكانك فعل ذلك بدون كود اضغط alt+f11 تظهر شاشة الفيجوال بيسك على يسارك تجد vba project ثم بين قوسين اسم الملف المفتوح اضغط برز الماوس اليمين ستظهر لك نافذة اختار منها vbaproject propereites بالعربي خصائص مشرو ع فيجوال بيسك اختارها سيظهر لك مربع حواري فية علامتي تبويب احدها باسم protection اختارها وادخل كلمة المرورو التي تريد

الكود سيصبح كالتالي Sheets("1").EnableSelection = xlUnlockedCells Sheets("1").Protect Password:="6251036", DrawingObjects:=True, Contents:=True, Scenarios:=True

Private Sub Worksheet_SelectionChange(ByVal Target As Range) غير اول سطر بالكود حسب الكود اعلاه

لم افهم عليك اخي منسق هل تريد تحديد الخلايا المؤمنة ام تريد الغء التحديد وضح بالضبط

بسم الله الرحمن الرحيم عند الطباعة يتم الانتقال الى الصفحة المراد طباعتها بشكل تلقائي اذا اردت ان تلغي الامر عليك ان تضيف السطر التالي الىالكود السابق بعده مباشرة sheets("mian").select و هذا الكود لايلغي نهائيا النتقال الى الصفحة المراد طباعتها ولكن الانتقال يتم وبشكل سريع تعود الى الصفحة التي اسمها mian وهو اسم الصفحة التي تريد ان تبقى عليها وللتطبيق غير اسم الصفحة من mian الى اسم الصفحة المطابق في ملفك جرب

بسم الله الرحمن الرحيم جرب الكود التالي Sheets("1").Protect Password:="6251036", DrawingObjects:=True, Contents:=True, Scenarios:=True ولفك حماية الورقة جرب الكود التالي Sheets("1").Unprotect Password:="6251036" طبعا لتطبق الكود على ملفك عليك معرقة التالي اسم الورقة التي يتم حمايتها بالكود السابق هو "1" عليك تغيره ليطابق اسم الورقة التي ترغب بحمايتها كلمة المرور المحددة بهذا الكود هي 6251036 جرب وسترى النتيجة

السلام عليكم If test1 = 1 And test2 = 1 And test3 = 1 Then Sheets("1").Select السبب على الاغلب انك لم تغير اسم الصفحة في الكود اسم الصفحة هو "1" لاحظ العبارة Sheets("1").SELECT اسم الصفحة هنا هو 1 غير اسماء الصفحات بالكود لتطابق اسماء الصفحات في ملفك وسوف يعمل انشاء الله ولا تنسى ان تغير الاسماء في باقي الكود بالنسبة للصفحة الثانية والثالثة

السلام عليكم ورحمة الله وبركاته اخي العزيز محمد حجازي انا اختلف معك في الراي بشان هذا الموضوع انني ارى ان الاكواد اسهل في التعامل ويمكنك بكود لا يتجاوز الخمسة سطور ان تبرمج 100 سطر وربما 1000 سطر من ورقة الاكسل فتخيل كم يوفر عليك من الوقت والجهد امكانيات الاكسل بدواله الجاهزة وعملياته الحسابية ممتازة جدا ولكنها لا ترقى الى مستوى الفيجوال الذي يعطي للاكسل دعما اضافيا غير محدود وامكانيات ترقى بالاكسل الى مستوى تطبيقات قواعد البيانات الاخرى اعطيك مثالا على ذلك وانت قمت بعمله في دالة ال vlook up انت رددت عليه وقد ادرجت فيه كود يقوم بعمل دالة ال v lookup لقد قمت ببرمجة ما يزيد عن عشرين سطر بكود بسيط ومفهوم للجميع وكان بامكناك تغير رقم واحد في الكود ليقوم الكود بفرض نفسه على 1000 سطر تخيل لو انك ستقوم بهذا العمل بدالة ال v look up بدون الكود وحتى مع امكانيات القص واللصق المتاحة فان ذلك سيستغرق وقتا طويلا ولك خالص تحياتي وان اختلفت معك بالرأي فذلك لايعني انني على صواب وسنبقى اخوة اعزاء

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