نجوم المشاركات

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

إخواني وأحبابي في الله أخي الحبيب حسام عيسى أخي الغالي ياسر العربي أخي المتميز إبراهيم أبو ليلة ألف ألف مبروك بإنضمامكم لفريق الموقع ..أنتم أصلاً في الفريق (يعني مش لعيبة جدد!!) واعلموا أنها مسئولية وتكليف قبل أن تكون ترقية ووسام

أخي الحبيب أبو يوسف إليك الرابط على الميديا فاير http://www.mediafire.com/download/cg04ib2gkgm6wun/VBPRO.iso أرجو أن يفي بالغرض

نرحب يالأخوة حسام (الصقر) و ياسر العربي و ابراهبم ابو ليلة في فريق الموقع و نهنئ أنفسنا بانضمامكم لفريق الموقع و جزاكم الله خيرا على جهودكم في نشر العلم و افادة الأعضاء

السلام عليكم جزاكم الله خيرا سأقوم بتنزيله غدا إن شاء الله تعالى شكرا جزيلا

وعليكم السلام ورحمة الله وبركاته بالإضافة الى ما قاله أخي أبوخليل: فإن بعض الاجهزة يأتي معها برنامج او اثنين جاهزين للعمل ، حتى تستطيع ان تُدخل فيها بيانات الموظفين ، مثل الاسم وبداية ساعة الدخول والانصراف ، والوقت المسموح به للتأخر ، ويوم الاستراحة الاسبوعية ، وو .... يجب الحرص على قراءة تضبيطات/اعدادات الجهاز ، فهنا قد تغني بعض هذه التضبيطات عن البرمجة ، فمثلا ، بعض الاجهزة يسجل للشخص 5 بصمات لليوم الواحد ، ولقد رأيت سجلات اشخاص استعملوها كلها في دقيقة واحدة (يعني يبصم ، ثم يبصم مرة ثانية ... خمس مرات في الدقيقة الواحدة) ، ولما يريد يبصم للخروج ، فلا يسجل الجهاز هذه البصمة ، لأن الموظف استعمل البصمات الخمسة المسموح بها لذلك اليوم (ولا تستطيع ان تزيد في هذا العدد)!! لهذا ، فمن اعدادات الجهاز هنا مثلا ، ان لا يسمح للبصمة التالية إلا بعد دقيقة مثلا ، فالمسألة سهلة للجهاز ، ولكن برمجتها وتصليح وقت البصمة في البرنامج يكون اصعب!! ونفس الجهاز يعطيك بعض انواع التقارير ، حسب الحقول التي تختارها ، والتواريخ. ومن اعدادات الجهاز كذلك ، تستطيع ان تطلب من الجهاز ان يصدر بياناته الى الكمبيوتر (سواء الكمبيوتر الموصل به ، او على الشبكة ، الى كمبيوتر معين بإستخدام IP الكمبيوتر في الشبكة) في ساعة معينة يوميا ، وبأن يقفل/يُوقف الجهاز من وقت الى وقت آخر (يعني مثلا ساعة بعد وقت الدخول الرسمي للمؤسسة ، وساعة بعد وقت الانصراف). والاجهزة عادة فيها ذاكرة تخزينية ، وتحتفظ بمعلومات البصمات حتى تصل الى تملئ الذاكرة ، والجهاز (او برنامج الجهاز الذي على الكمبيوتر) عادة عنده الامكانية في تصدير المعلومات بعدة صيغ ، منها csv xls dbf mdb ، وانا شخصيا أفضل mdb او csv ،والسبب ان البيانات اذا سُحبت شهريا ، فإنها قد تصل الى أكثر من 75000 سجل (خمسة وسبعين الف سجل) لمؤسسة تضم 2500 موظف (2500 موظف x ثلاثين يوم في الشهر = 75000 سجل) ، وصيغة الاكسل xls تتحمل 65536 سجل فقط في الورقة الواحدة ، مما ستحتاج الى اكثر من ورقة (الجهاز سيُصدر جميع الاوراق تلقائيا ، ولكن الحساب على اكثر من ورقة سيكون صعبا) ، لهذا السبب اسحب البيانات على صيغة mdb او csv او طبعا xlsx. وعادة ، المالية تطلب منك التقرير شهريا وليس يوميا ، فالسجلات ستكون كثيرة ولكن ، بعض الاوقات ، برامج الجهاز لا تفي بالغرض ، لعدة اسباب خاصة بالمؤسسة ، لهذا السبب ، فيجب عليك تصدير/استيراد هذه البيانات الى برنامجك (انا استعملت الاكسس طبعا ، وتقوم في برنامجك بالتحليل وووووو ، وطباعة التقرير جعفر

حياك الله اخي الكريم ... شاهد المرفق وان شاء الله ان فيه ماطلبت ... ** ضع مسار الملف في مربع النص pat وهذين رابطين : الأول لدالة SetAtrr والتي تقوم بتغيير خصائص الفولدر . http://www.techonthenet.com/access/functions/file/setattr.php والثاني لدالة GetAtrr والتي تجلب خصائص الفولدر . http://www.techonthenet.com/access/functions/file/getattr.php طبعا كل خاصية لها رمز او رقم وموضحة في الروابط . بالتوفيق ان شاء الله . Show_Hide.rar

السلام عليكم ورحمة الله مبروك للإخوة الأفاضل

السّلام عليكم و رحمة الله و بركاته ألف ألف مبروك للإخوة الأفاضل : حسام " الصّقر " ياسر العربي إبراهيم أبو ليله أسماء فعلاً تستحق التّشجيع و الرّقي و التّرقية أتمنّى مخلصا من كل قلبي لهؤلاء السّادة المزيد من النّجاحات و الترقيات في جميع الميادين و المجالات إن شاء الله يا رب فائق إحتراماتي للجميع

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

أخي الحبيب ياسر السلام عليكم ألا ترى أيضاً أنه بإمكان الأخ أحمد محمد ماترك بإمكانه الاستغناء عن الأعمدة التي أخفاها وذلك باستخدام الصف الذي حدد فيه المواد والصف أدنى منه أسعارها فيمكنه ربط مبيعاته بأسعار الأصناف التي حددها مباشرة =C11*$L$3 وهكذا دواليك لكافة الأصناف ويسحب إلى أسفل إلى المدى الذي يراه مناسباً تقبل تحياتي والسلام عليكم.

العملية سهلة خالص لتثبيت اي خلية نزولا لاسفل نضع علامة $ بين الخلية ورقمها مثل الاتي =C29*D$11 واسحبهانزولا برنامج حسابات.rar

السّلام عليكم و رحمة الله و بركاته الأخ الغالي أبو يوسف تم إرسال اسم الحساب و كلمة المرور برسالة خاصة الشّكر موصول للأستاذ القدير المحترم " ياسر خليل أبو البراء " فائق إحتراماتي

أخي الحبيب محمد حسن الموقع لكي تتمكن من التحميل عليه يجب عليك التسجيل في الموقع حتى لا تتعرض لهذه الأزرار الوهمية الخاصة بالـ Download وإذا أردت أرسلت لك حسابي تدخل منه ويمكنك التحميل ، أو تصبر حتى أقوم برفعه لك على موقع آخر وهو الميديا فاير ..الخيار لك أخي الغالي زيزو البسكري أعرف الإضافة الخاصة بالإعلانات ومنعها على الفايرفوكس وأستخدمها .. وعندما هممت بتحميل الملف وجدت أن الانتظار 1000 ثانية ولما قريت المعلومات في الموقع عرفت أن فترة الانتظار 1000 ثانية سببها أنني مفعل هذه الإضافة فقمت بالدخول على الإضافة وعطلتها بالنسبة للفور شير حتى أتمكن من الانتظار 20 ثانية فقط .. وقد كان وبدأ تحميل الملف تقبلوا تحياتي

أخي الحبيب الغالي المتميز محمد حسن المحمد سأقوم إن شاء الله بتنزيل الملف الأيزو ورفعه على موقع الميديا فاير ..أيناسبك الموقع ؟ تقبل تحياتي

الأخت الفاضلة ربا يبدو أنك متعلمة جديدة مقبلة على تعلم الإكسيل ، وإن شاء الله هنا ستستفيدين إلى أقصى درجة بمعاونة إخوانك بالمنتدى الأخ الحبيب عبد الله الصاري بارك الله فيه وجزاه الله خير الجزاء قدم حلاً جميلاً وفيه إبداع ..رغم أنني لست من محبي الاعتماد على أعمدة مساعدة كثيرة في الملف عموماً بدأ أخونا عبد الله بعمل معادلات في أعمدة مساعدة .. أولاً في ورقة البيانات في العمود FD بدايةً من الصف الثاني قام بوضع معادلة بهذا الشكل =IF($A2="بكلوريوس",COUNT(FD1:FD$1)+1,"") والمعادلة بسيطة جداً حيث أن الدالة IF تستخدم للشرط ..فالشرط هو أن الخلية A2 أي التي تحتوي على اسم الشهادة إذا كانت تساوي القيمة "بكالوريوس" ..ماذا يفترض أن يحدث؟ الشرط إذا تحقق وكانت قيمة الخلية تساوي "بكالوريوس" فإنه يتحقق جواب الشرط وهو الجزء الثاني من المعادلة COUNT(FD1:FD$1)+1 والتي تقوم بعد القيم في نفس العمود المساعد المسمى FD بدايةً من الصف الأول (والصف الأول ثابت حيث أنه في كل مرة تطبق فيها المعادلة مع السحب سيظل الصف الأول ثابت ثم أضاف للناتج 1 .. في المعادلة الأولى سيكون الناتج للعد هو صفر لأن النطاق FD1:FD1 والذي يعتبر خلية واحدة لا يوجد بها قيمة فالناتج يساوي صفر ، وأضاف رقم 1 ليتحقق الهدف ويبدأ العد الفعلي نظراً لتحقق الشرط في الخلية A2 .. الجزء الثالث من المعادلة هو إذا لم يتحقق الشرط .. وهنا الأمر بسيط فإنه إذا لم يتحقق الشرط تصبح الخلية التي بها المعادلة فارغة وهنا تم استخدام أقواس التنصيص مرتين (فراغ) وإذا تم سحب المعادلة فإنه الصف الثابت يظل كما هو ألا وهو الصف الأول ويتغير النطاق للصف المتغير ويصبح 2 وفي الخلية التالية يصبح 3 وهكذا .. تم عمل عمود مساعد لكل شهادة (بكالوريوس في العمود FD .. دبلوم في العمود FE .. اعدادية في العمود FF .. متوسطة في العمود FG) .. يمكنك تحديد الأعمدة المذكورة ثم تلوين لون الخط بأي لون غير الأبيض لترى النتائج بنفسك .. هذه كانت الأعمدة المساعدة في ورقة العمل المسماة البيانات ******************** ننتقل إلى ورقة العمل المسماة النتيجة .. ونرى تسلسل الحل : ----------------------------------------------------------------------- أولاً في العمود G في أول صف مقابل للبيانات في الصف الثاني وضع الرقم 1 بشكل يدوي ثم وضعت المعادلة التالية في الخلية G3 أي في الصف الثالث =IF(MAX($G$1:G2)<$I$1,MAX($G$1:G2)+1,"") والمعادلة تعتمد على قيمة الخلية I1 (وهذه المعادلة السابقة تعتبر بمثابة عداد للنتائج .. ولكن استخدم الشرط لإيقاف العداد في حالة تخطي عدد النتائج ، فمثلاً لو كان عدد النتائج 5 وهو أكبر عدد للنتائج حصلنا عليه في الخلية I1 .. من ثم فإن العداد سيقوم بكتابة التسلسل من 1 إلى 5 فقط ثم تظهر النتائج فارغة .. وإليكم تفصيل المعادلة في الخلية I2 ------------- وضعت المعادلة التالية في الخلية I1 لاستخراج أكبر رقم في العمود FD في ورقة البيانات لمعرفة كم عدد النتائج التي تطابق الشرط (البكالوريوس في هذه الحالة) =MAX(البيانات!$FD$4:$FD$100) وفي الخلية I54 وضعت معادلة مشابهة للشرط الثاني لاستخراج أكبر رقم في العمود التالي FE والذي يقوم بتطابق الشرط دبلوم ..وهكذا نفس المعادلة في الخلية I وبداية كل ورقة في شيت النتيجة ثم الخلية التالية تم وضع معادلة مختلفة ألا وهي : =IF(G2="","",MATCH(G2,البيانات!$FD$2:$FD$100,0)) المعادلة بتقول لو الخلية G2 فارغة إذاً الناتج فارغ وإلا يقو بالبحث عن قيمة الخلية G2 في ورقة البيانات في العمود FD وذلك لاستخراج رقم الصف الذي يحتوي البيانات المطلوبة --- ** ---- كررت المعادلات في العمود G والعمود I في كل ورقة على حدا ..بنفس الطريقة لكل نوع من أنواع الشهادات أخيراً خلصنا من الأعمدة المساعدة .. ننتقل لآخر جزء ألا وهو استخراج البيانات المطلوبة ::: في الخلية A2 وضعت المعادلة التالية =IF($I2="","",INDEX(البيانات,$I2,COLUMN(A$2))) المعادلة تنظر للخلية I2 والتي تعتبر في العمود المساعد فإذا كانت الخلية فارغة تظل الخلية التي بها المعادلة (A2) فارغة وإلا يتم استخدام دالة البحث ليبحث في النطاق المسمى البيانات (وهو النطاق A2:C248 أو آخر خلية بها بيانات في ورقة البيانات) .. ويتم البحث من خلال رقم الصف (ورقم الصف الموجود به النتيجة موجود في الخلية I2) .. كما يتم البحث من خلال العمود والعمود هنا هو العمود الأول .. أي أن البحث يكون عن طريق رقم الصف ورقم العمود (وإذا توافر رقم الصف ورقم العمود يتم جلب البيان المناسب) ... وهكذا بالنسبة لبقية المعادلات نفس الكلام مع تغير العمود الذي يتم جلب البيانات منه أرجو أن أكون وفقت في توصيل المعلومة .. وأخيراً لا تنسونا بدعوة بظهر الغيب

اخى الحبيب ابومهند بخصوص طلبك الاول ادراج عمودين فارغين شاهد المرفق تم عمل ذالك بخصوص الملاحظه الثانيه تم معالجتها ايضا شاهد المرفق وخاصه الموظف 80 اللى عملت تست عليه بخصوص الملاحظه الثالثه الكود يعتمد على الترتيب الابجدى للاسماء فى شيت بيانات بالعمود B يعنى سجل انت اسماء الموظفين باى طريقه تحلو لك فى شيت 1 فالكود لا يلتفت الى الترتيب ملحوظه لو حضرتك عايز تعمل تغيير لاسم الشيت 1 الى اسم مثلا النتيجة عادى لا يوجد مشكله ولكن غير مسموح بتغير اسم شيت البيانات عموما جرب المرفق انت بنفسك تقبل تحياتى ------------------------------------------------------- ترحيل جديد1.zip

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

أخي الكريم صداكم وجزيت خيراً بمثل ما دعوت لابد من تمكين إعدادات الماكرو لتعمل الأكواد .. وكما قلت ربما يحوي الكود على أسطر تشبه عمل الفيروسات ..فيمكن باستخدام الأكواد مسح الملفات والمجلدات في بارتشن بالكامل .. لذا يجب الحذر والحيطة والإطلاع على الكود قبل تجربته ... وإليك شرح لأسطر الكود لعله يكون معين لك على إنجاز مهمتك Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'يوضع الكود في حدث ورقة العمل ويتم التنفيذ عند النقر المزدوج على الخلايا التي سنقوم بتحديدها '------------------------------------------------------------------------------------------- 'سطر في حالة أن عدد الخلايا التي سيتم التعامل معها أكبر من خلية يتم الخروج من الإجراء 'حيث أن المطلوب التعامل مع خلية واحدة فقط في كل مرة لذا وجب الحيطة والحذر وتحديد خلية واحدة If Target.Cells.CountLarge > 1 Then Exit Sub 'هذا السطر هو الذي يحدد نطاق الخلايا التي ستتمكن من التعامل معها وهي في العمود الثالث 'وأيضاً التعامل سيكون في الصفوف الأكبر من الصف الثالث [C] حيث أننا جعلنا عمود الخلية الهدف يساوي 3 أي العمود 'أي أنه سيتم استثناء الصف الأول والثاني والثالث ويتم التعامل مع الصفوف بدايةً من الصف الرابع If Target.Column = 3 And Target.Row > 3 Then 'سطر لإلغاء تحديث الشاشة وكذلك إلغاء تمكين الأحداث وهذا الإلغاء يسرع من عمل الكود Application.ScreenUpdating = False Application.EnableEvents = False 'عدم السماح بالتعديل في الخلايا الهدف أي أن الخلايا في العمود الثالث 'بدايةً من الصف الرابع لن تتمكن في التعديل عليها بالنقر المزدوج كما 'هو الحال في بقية الخلايا .. وهذا لا يعني أنك لا تستطيع التعديل على الخلايا 'من لوحة المفاتيح [F2] يمكن التعديل باستخدام مفتاح 'أما التعديل عن طريق النقر المزدوج فممنوع في الخلايا المحددة Cancel = True 'تعريف المتغيرات الأول لورقة العمل التي سنقوم بترحيل البيانات إليها 'والمتغير الثاني لمعرفة صف الخلية الهدف التي سيتم التعامل معها Dim Sh As Worksheet, lRow As Long 'تعيين قيمة للمتغير ليساوي ورقة العمل المسماة التقرير Set Sh = Sheets("التقرير") 'تعيين قيمة للمتغير ليساوي صف الخلية الهدف lRow = Target.Row 'بدء التعامل مع ورقة التقرير With Sh 'مسح البيانات الموجودة في الخلايا المحددة في السطر .Range("D5,D7,H8,H11,D11").Value = "" 'شرط ألا تكون الخلية الهدف فارغة أما إذا كانت فارغة فلن يتم تنفيذ الكود If Not IsEmpty(Target) Then 'تساوي التاريخ الحالي [D5] الخلية .Range("D5").Value = Date 'تساوي القيمة الموجودة في العمود الثالث في نفس صف الخلية الهدف [D7] الخلية .Range("D7").Value = Cells(lRow, "C").Value 'تساوي القيمة الموجودة في العمود الرابع في نفس صف الخلية الهدف [H8] الخلية .Range("H8").Value = Cells(lRow, "D").Value 'تساوي القيمة الموجودة في العمود الخامس في نفس صف الخلية الهدف [H11] الخلية .Range("H11").Value = Cells(lRow, "E").Value 'تساوي القيمة الموجودة في العمود السادس في نفس صف الخلية الهدف [D11] الخلية .Range("D11").Value = Cells(lRow, "F").Value 'إظهار رسالة تفيد بأنه تم إعداد التقرير للموظف ثم ذكر اسم الموظف الموجود في العمود الثالث MsgBox "تم إعداد تقرير للموظف " & Cells(lRow, "C").Value & " في ورقة التقرير", 64 'انتهاء جملة الشرط End If 'انتهاء التعامل مع ورقة التقرير End With 'استعادة الإعدادت التي تم إلغائها في بداية الكود Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub تقبل تحياتي

كثيرا ما ننسي اضافة شيء و نتذكره بعد ارسال البريد مباشرة و نسرع بعمل استدعاء للبريد المرسل Recall بينما هناك حل جميل لم أعرفه من قبل و هو يؤدي الي تأخير ارسال البريد لعدد من الدقائق تحددها أنت و يتم تنفيذه من خلال قواعد الارسال الالية Rules and Alerts و حقيقة لم يسبق لى تطبيق القواعد على البريد المرسل و انما استخدمها بكثافة على البريد القادم و يتم ذلك من خلال البدء بانشاء قاعدة جديدة ثم Next و اختيار الخيار التالي كما فى الرسم و تحديد عدد الدقائق و لكن قد تكون فى حاجة الى ارسال رسائل فورية فى بعض الاحيان لذا يمكنك اجراء استثناءات كأن يكون البريد مرسل الى شخص او عدة اشخاص او يكون به كلمة معينة و عن نفسي افضل ان يكون الاستثناء ان يكون البريد مصنف كبريد هام، و ذلك كما هو موضح بالشاشة التالية تختار importance ثم تحدد القيمة ثم اختيار التالي و الاغلاق و هكذا تبقي الرسالة فى صندوق الارسال outbox لمدة دقيقتان قبل أن يتم ارسالها هذا ما لم تكن مصنفة كرسالة مهمة

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه السلام عليكم ورحمة الله وبركاته... أقول لولدي الذي يحن ويتلهف قلبي لرؤيته ولو للحظة والذي أكرمني الله بحفيدة منه حيث لم أشهد عرسه ...أسماها { إسراء} الحمد لله الذي رزقك زوجة ولوداً، وجعلك ممن تخلفه ذريته. فكم من رجل عقيم لا يولد له ولد، وكم من امرأة كذلك. فهذه نعمة عظيمة { الْمَالُ وَالْبَنُونَ زِينَةُ الْحَيَاةِ الدُّنْيَا } [الكهف:46] ولهذا فاستقبل عطية الله عز وجل بفرح وسرور وشكر وحمد، ذكراً كانت هذه العطية أم أنثى. فيكفي أنها سليمة الأعضاء، مكتملة النمو، خالية من الأمراض، فتبارك الله أحسن الخالقين الذي وهب وأعطى بمنه وفضله: {يَهَبُ لِمَنْ يَشَاءُ إِنَاثاً وَيَهَبُ لِمَن يَشَاءُ الذُّكُورَ (49) أَوْ يُزَوِّجُهُمْ ذُكْرَاناً وَإِنَاثاً وَيَجْعَلُ مَن يَشَاءُ عَقِيماً} [الشورى:50،49] وقد وُلد للنبي r أربع من البنات - رضي الله عنهن - ولما ولد لإمام أهل السنة أحمد بن حنبل رحمه الله بنت قال: {الأنبياء آباء البنات، وقد جاء في البنات ما علمت } أي من فضل تربيتهن القيام عليهن. وكُره البنات من عادات الجاهلية؛ أما في الإسلام فإنهن من الأبواب الموصلة إلى الجنة قال : r {من عال جاريتين حتى تبلغا، جاء يوم القيامة أنا وهو هكذا} { وضم أصبعيه} [رواه مسلم]. بورك لك في الموهوبة وشكرت الواهب وبلغت رشدها ورزقت برها وأرجو الله أن يجعل ذرياتكم صالحين ناصحين بارين والسلام عليكم ورحمة الله وبركاته

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

السلام عليكم ورحمة الله تفضل اخي من اعمال الاستاذ / عبدالله المجرب إن شاء الله يكون مطلوبك بعد الايام وعد الشهور وعدد السنوات علي اساس ان السنة 360 يوم والشهر 30 يوم KHMB حساب الفرق بين تاريخين هجري.rar

أخي الكريم أحمد ضع الكود التالي في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل "عميل رقم1" ثم اختر الأمر View Code والصق الكود التالي .. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 3 And Target.Row > 10 Then Application.EnableEvents = False Application.ScreenUpdating = False Target.Offset(, 2).Value = Target.Value * Range("L3").Value Application.ScreenUpdating = True Application.EnableEvents = True End If End Sub يمكنك تجربة الكود عن طريق إدخال كميات في عمود الكمية العمود C > وجرب تغير في خلية السعر L3 ... تقبل تحياتي

أخى الكريم .. السلام عليكم ورحمة الله وبركاته يسعدنى أن اقدم لك أرق التهانى بالمولودة الجديدة ( بورك لك فى الموهوب وشكرت الواهب وبلغ أشده ورزقت بره ) وجعلها الله سندًا لك وللمسلمين ومن أهل العلم والتقوى ... اللهم آآآآآآآآآآآآآآآآآآمييييييييييييييييييييييين وتقبل تحياتى

الف مبروك للاخوة الاعزاء .. اتمنى لهم التوفيق

وعليكم السلام ورحمة الله السبب أخي الفاضل بنفس سؤالك.. لأنك أمرته بأن يبحث لك بالحرف وبالتالي هو ينقل تركيزه فورا على الحرف الذي أدرجته كنتيجة لأمرك له.. وعلى ذلك تم تغيير الكود ليتجاوز عن التركيز وليستمر بعرض كل ما تدرجه له عبر مربع النص Text1.. واستغنينا عن مربع النص text2 وأضفت إليك دالة تقوم بتجاهل الحروف المهمزة بحيث كتبت مثلا (أحمد - احمد - اسراء - إسراء - آسر) يقوم بجلب جميعها.. ستفيدك جدا خصوصا مع الأسماء ملحوظة هامة.. ابتعد أخي عن المسميات المحجوزة مثل حقل Name وأيضا المسافات بين المسميات جرب ووافني بالنتيجة application - 2016.rar

السلام عليكم أخي الحبيب م/ياسر كم أنا سعيد بكلماتك الطيبة ...الله يبارك بكم وعقبى لكم إن لم يكن لكم أولاد بعد...فهم زينة الحياة الدنيا. تقبل تحياتي العطرة والسلام عليكم.

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

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

السلام عليكم ورحمة الله شكرا على المجهودوالعمل الرائع أبا الحسن والحسين ممكن عمل نسخة الملف باسم وتاريخ كمتال محمد 13/1/2015 حفظ باسم.zip

آسف لم أقم بالبحث قبل اضافة موضوع جديد

You're welcome Thanks for the feedback Regards

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

السلام عليكم .. ارفقت مثال بسيط لتقرير يحتوي على صفحتين .. ارغب بعد طباعة الصفحة الاولى ان تظهر رسالة MsgBox تحتوي على زر ( موافق ) .. وعند الضغط على زر موافق تطبع الصفحة الثانية .. وهكذا .. << ( بهالطريقة ممكن اتركه يطبع الاوراق منفردة بالضغط على زر موافق كل مرة .. أو بعد كل طباعة ورقة اقلبها في الطابعة واضغط زر موافق ليطبع في الخلف ) ولو كان التقرير يحتوي على صفحة واحدة فقط لا يظهر الرسالة .. بحثت عن حلول ولم اجد الا اكواد تختص بطباعة تقريرين على ورقة واحدة بوجهين print report 2 paper.zip

السلام عليكم ، من خلال معلوماتي المتواضعة بالاكسيل ، فلا يصلح لطلبك غير pivot table لتوزيع الداتا على عدة شيات احترامي وتقديري توزيع بيانات على صفحات مختلفة.rar

اخي معذرة لا يمكنني فتح المرفق للتعديل بسبب الاصدار تفضل هذا مطلوبك الصقه في حدث النقر على زر داخل نموذجك مع الاخذ بالاعتبار تغيير اسم التقرير بالاسم الذي في برنامجك DoCmd.OpenReport "RepName", acViewPreview, "", "", acNormal DoCmd.PrintOut acPages, 1, 1, acHigh, 1, True If MsgBox("اقلب الورقة ان كنت تريد الطباعة في الخلف", vbOKOnly, "") = vbOK Then DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True Else DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True End If DoCmd.Close acReport, "RepName"

وعليكم السلام أخي الكريم محمد الدوادي إليك الملف التالي عله يكون المطلوب تقبل تحياتي CV Employees Import Pictures Based On ID YasserKhalil V2.rar

حياك الله اخي الكريم وجدت هذا الكود في احد المواقع الأجنبية ... قمت بتغيير نص الرسالة الى العربية .. فقط Private Sub CheckFileSize(strMyFile) Dim objFileSys As Scripting.FileSystemObject Dim objMyFile As File Set objFileSys = CreateObject("Scripting.FileSystemObject") Set objMyFile = objFileSys.GetFile(strMyFile) If objMyFile.Size > 6000000 Then MsgBox "حجم المرفق اكبر من المسموح به ", vbOKOnly Else MsgBox "حجم المرفق مناسب ", vbOKOnly End If Set objFileSys = Nothing Set objMyFile = Nothing End Sub اتمنى يفيدك بالتوفيق

أخي الكريم مرسال يرجى تغيير اسم الظهور للغة العربية .. قمت بتغيير شكل الملف قليلاً لسهولة التعرف على كيفية التعامل مع البيانات بشكل صحيح .. لأن الملف المرفق من قبلك غير معبر بعض الشيء عموماً يمكنك التعديل بسهولة على الملف وعلى الكود يوضع الكود في حدث ورقة العمل المسماة Sheet1 .. كليك يمين على اسم ورقة العمل Sheet1 ثم اختر الأمر View Code ثم الصق الكود التالي ..ثم انقر دبل كليك في عمود الاسم ليتم إعداد التقرير للاسم الذي قمت بالنقر عليه دبل كليك وإذا كانت الخلية فارغة يتم مسح محتويات التقرير Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 3 And Target.Row > 3 Then Application.ScreenUpdating = False Application.EnableEvents = False Cancel = True Dim Sh As Worksheet, lRow As Long Set Sh = Sheets("التقرير") lRow = Target.Row With Sh .Range("D5,D7,H8,H11,D11").Value = "" If Not IsEmpty(Target) Then .Range("D5").Value = Date .Range("D7").Value = Cells(lRow, "C").Value .Range("H8").Value = Cells(lRow, "D").Value .Range("H11").Value = Cells(lRow, "E").Value .Range("D11").Value = Cells(lRow, "F").Value MsgBox "تم إعداد تقرير للموظف " & Cells(lRow, "C").Value & " في ورقة التقرير", 64 End If End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub تقبل تحياتي Single Report For Each Name Worksheet Double Click YasserKhalil.rar

أخي الكريم محمد إليك الكود التالي يوضع في حدث ورقة العمل كليك يمين على اسم الورقة المسماة CV .. ثم اختر الأمر View Code والصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C4")) Is Nothing Then Call ChangePic End If End Sub وضع الكود التالي في موديول عادي Sub ChangePic() Dim pic As Picture, strPhotosFolder As String, strPhoto As String strPhotosFolder = ThisWorkbook.Path & "\Photos\" Application.ScreenUpdating = False With Sheets("CV") While .Pictures.Count .Pictures(1).Delete Wend strPhoto = strPhotosFolder & Trim(.Range("C4").Value) & ".*" strPhoto = Dir(strPhoto) If Len(strPhoto) Then strPhoto = strPhotosFolder & strPhoto .Pictures.Insert (strPhoto) Set pic = .Pictures(.Pictures.Count) With pic .ShapeRange.LockAspectRatio = msoFalse .Left = .Parent.Range("G2:G4").Left .Top = .Parent.Range("G2:G4").Top .Width = .Parent.Range("G2:G4").Width .Height = .Parent.Range("G2:G4").Height End With End If End With Application.ScreenUpdating = True End Sub تقبل تحياتي CV Employees Import Pictures Based On ID YasserKhalil.rar

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

حياك الله استاذنا الغالي اساسا الفكرة مأخوذة من برنامج الاكسل اصلاً من المعلوم في الاكسل 3 نوع من دوال راوند، 1- Round هذا الدالةتهمل الكسور اقل او يساي 5 بعد مرتبة محددة و اكثر من 5 تقرب الى الاعلى، مثلا 5.333 الى 5.33 و 5.336 الى 5.34 2- RoundUp هذا تقرب الى الاعلى من اول كسر اضافي مثلا 5.333 الى 5.34 3-RoundDown هذا تهمل جميع الكسور من اول رقم اضافي بعد مرتبة محددة كما تفضلت بإنشاء تلك الدالةفي ردك الاخير يعني بعد اختصار في اسطر دالة من النوع 3 ، تكرمنا بإختصار دالتي 1 و 2 و لك تحية استاذي،،،

الله يبارك فيك يا ياسر ويجعلة في ميزان حسناتك جاري التجربة واحب اشاركك بالبرنامج دة VBA Decompiles and compacts VBA projects ودة الموقع بتاعة http://cpap.com.br/orlando/VBADecompilerMore.asp?IdC=Help لعل فية افادة للزملاء VBADecompiler.rar

تفضل البرنامج كامل ولكن بعد تجربته .. فاشل جربه ربما ينفع معك ووافنا بالنتائج أمر آخر ارفق ملفك التالف لتجربة بعض البرامج عليه علنا نصل لبرنامج يستطيع حل هذا الأمر من جذوره Kernel Excel Recovery Full.rar

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

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

هذا رابط جديد تفضلوا إخواني http://up.top4top.net/downloadf-top4top_33b1d2a7c51-rar.html

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

الاستا الفاضل // sayed&h 1 ) مرحبا بك أخ فاضل بيننا في أول مشاركة لك 2 ) اعلم رحمك الله ان كنت ترى ان الشيت به كرسة فنحن ننظر لهذا الرجل العملاق علما وخلقاُ ( رجب جاويش ) بكل فخر واحترام ويكفيه شرف المحاولة وليس اي احد معصوم من الخطا او النسيان عزيزي الفاضل بل يكفي اننا تعلمنا من هذا الرجل الشامخ الاسلوب الراقي في الحوار وفن معاملة الاخرين وعدم احراجهم فيما لا فائدة فيه بل تعلمنا منه كيف ينصح الاخرين باسلوب راقي عن طريق الرسائل الخاصة 3 ) تشرفنا بمروركم الكريم في أول مشاركة لك ونتمنى تواجدك بيننا دائما كاخ ناصح امين محب للاخرين 4 ) بل نتمنى مشاركتك معنا واصلاح ما غفل عنه استاذنا ليكون عونا لاخوانك السائلين عنه !!!