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

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

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

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

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

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

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

حياك الله اخي الكريم ... شاهد المرفق وان شاء الله ان فيه ماطلبت ... ** ضع مسار الملف في مربع النص 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 تقبل تحياتي

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

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

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

وعليكم السلام ورحمة الله وبركاته بارك الله فيك على حسن استجابتك .. والالتزام بالتوجيهات تقبل وافر تقديري واحترامي

أخي الكريم أحمد ضع الكود التالي في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل "عميل رقم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 ... تقبل تحياتي

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

تفضل : جعلت معامل الضرب x خمسة ارقام فظهر تكرار مرتين فقط خلال 540 سجل ثم جعلت معامل الضرب x تسعة فاختفى التكرار تماما يمكنك التجربة والملاحظة تنبيه : لا يمكننا جعل الحقل مفتاحا او غير قابل للتكرار لأنه في الاصل عبارة عن حقول فارغة مكررة ترقيم عشوائي عبر الجدول.rar

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

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

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

أخي الكريم رميلي تم فك حماية المصنف وعمل معادلة بسيطة جداً تعتمد على الخلية N1 في ورقة العمل (صفحة المعلومات) المسماة 333 إليك الملف المرفق عله يؤدي الغرض ..تم إخفاء العمود N في ورقة المعلومات (قائمة التلاميذ) المسماة 333 تقبل تحياتي CERTIFICAT.rar

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

اخى الكريم هل هذا ما تقصده شاهد المرفق تقبل تحياتى ------------------------------- ترحيل جديد1.zip

اخي الفاضل ياسر ما شاء الله لا قوة الا بالله شرح وافي وكافي . سترك الله في الدنيا والاخرةكم سترتني امام الاخت ربا اخي هذه الطريقة تعلمتها من مشاركات الاستاذ الشهابي حفظه الله الذي ساعدني كثيرا يعنى بالمختصر موضوع (لطش) تمنياتي لك بالصحة والعافية وزيادة العلم والعمل النافع لاخوانك مع وافر الاحترام والتقديرللاخت الفاضلة ربا والاخ الشهابي

جزاكم الله خيراً بل أصبر ... فالصبر له أجر تقبل تحياتي العطرة والسلام عليكم

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

السّلام عليكم و رحمة الله و بركاته الحل بسيط و بسيط جدّا يا غالي يا أبا يوسف .. فقط عليك بإضافة الموديل ADBLOCK و تنهي عملية الاشهارات المزعجة للأبد بإذن الله ..

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

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

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

اخي الفاضل السلام عليكم اتمنى ان افيدك ويكون المطلوب توزيع بيانات على صفحات مختلفة.rar

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

السّلام عليكم و رحمة الله و بركاته الشّكر موصول للأخ الغالي " ياسر العربي " لفتحه الأبواب لنا على مصْراعيْها للنّقاش المثمر و الحوار المتواصل أدعو الله أن يفتح له أبواب الجنّة على مصراعيْها إن شاء الله المولى العزيز القدير الأخ القدير و الأستاذ الحبيب " أبو يوسف " رفعت لك هذه النّسخة التي إشتغلت عليها لحد الآن و لم تصادفني مشاكل إلاّ التي تحدث عن سوء فهمي لها و جهلي بها .. نسخة الفيجوال بيسك البروفيسيونال بصيغة إيزو .. جرّب من باب زيادة الخير خيريْن لعلها تنفع .. لا ندري سأحاول رفع الآن نسخة الويندوز 7 للأستاذ القدير " إبراهيم أبو ليله" .. فقط شويّة صبر .. فالسلحفاة أسرع من الأنترنت عندي تفضّل الرّابط : http://www.4shared.com/file/pj0Btorlce/VBPRO.html

حياك الله اخي الكريم وجدت هذا الكود في احد المواقع الأجنبية ... قمت بتغيير نص الرسالة الى العربية .. فقط 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 اتمنى يفيدك بالتوفيق

السلام عليكم ورحمة الله اولا / الشكر الجزيل للاخ الفاضل الاستاذ سليم حاصبيا --------------------------------------------------------------------------- ثانيا / بعد إذن الاستاذ سليم المشكله في اصطياد السمكة يا استاذ ياسر ليس شرح الكود لانه حتى لو شرح الكود ينقصه من ان الكود مبني علي خطوات مسبقه إليكم الخطوات المسبقة محاوله مني: اولا / نقوم بتعريف المدى اللي بالكود والمسمى Prot_Range نذهب إلي الشيت المسمى Sheet1 ثم من شريط الادوات نذهب إلي صيًغ ثم إدارة الاسماء ثم جديد ونضع الاسم Prot_Range ونشير للخلايا أي نحدد الخلايا حسب رغبتنا في تطبيق العمل عليها وهنا في عمل الاستاذ سليم اشار للخلايا من A1 إلي Z255 ثم موافق خلاص إنتهينا من تسمية النطاق او المدى.والآن يأتي دور الاكواد نذهب لمحرر الاكواد الخاص بالصفحة Sheet1 عام أي في ال General ونضع هذا الإجراء : 'xxهنا نقوم بتسمية إجراء ونسميه اي إسم اي حرف وهنا إسمه Sub xx() ' salim يقوم بإلغاء الحماية من علي الصفحة النشطه والتي كلمة المرور الخاصة بها هي ActiveSheet.Unprotect "salim" إذاً' Prot_Rang إذا لم يتقاطع الإختيار بمدى النطاق المسمى If Not Intersect(Selection, Range("Prot_Range")) Is Nothing Then ' هنا الإشارة للمجال المختار وهو مدى النطاق في الصفحة النشطة بالخاصية With With ActiveSheet.Range("Prot_Range") ' تنشيط إقفال الخلايا .Cells.Locked = True 'عدم إقفال الخلايا الفارغة التي لايوجد بها بيانات .Cells.SpecialCells(xlCellTypeBlanks).Locked = False ' إغلاق الخاصية With End With ' يقوم بحماية الصفحة وعمل كلمة المرور salim ActiveSheet.Protect "salim" End If ActiveSheet.Protect "salim" End Sub ثم نضع الكود التالي في حدث تغيير الصفحة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) ' إذا لم يتقاطع الهدف بالمدى وان نتائج الهدف يساوي واحد ‘ذاً If Not Intersect(Target, Range("Prot_Range")) Is Nothing And Target.Count = 1 Then ' عدم تمكين تطبيق الاحداث Application.EnableEvents = False 'هنا بعد إدخال اي بيانات تأتي رسالة تفيد حسب الموضح في الرسالة mess = MsgBox(" بعد ادخال البيانات سوف يتم اقفال هذه الخلية" & vbNewLine & _ "لا يمكن تغييرها الا من خلال كلمة السر في حال الموافقة اضغط نعم", vbYesNo, "تنبيه") ' عند الموافقة If mess = vbYes Then 'xxهنا يتم إستدعاء الإجراء والمسمى xx ' عند عدم الموافقة Else ' تراجع عن التطبيق Application.Undo End If End If ' تمكين تطبيق الاحداث Application.EnableEvents = True End Sub

السلام عليكم ورحمة الله وبركاته إخوتي الكرام أرى أن في البيانات نقص ...إذ كيف ينصرف من لم يحضر ...أو حضر ثم لم ينصرف ..هل عنده مكان يبيت فيه إن لم يسجل انصراف.. مثل سجاد انصرف 09:08:42 ص دون تسجيل حضور.. و ذوالفقار حضر 07:30:53 ص ولم يسجل انصراف تقبلوا تحياتي والسلام عليكم

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

شكرا لجميع الإخوة المشاركين في الموضوع وللعلم تم تحديث المشاركة الأولى وتحديث الملف المرفق لتلافي بعض المشكلات برجاء إعادة تحميله

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

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

وأيضا هذا الموقع http://abusuliman.eb2a.com/