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

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

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

أخي الحبيب أبو يوسف إليك الرابط على الميديا فاير 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- اضغط على ctrl+Alt+Delet فيظهر أمامك إطار إدارة المهام افتح على تبويب التطبيقات كما في الصورة اليمنى ثم أشر عل قاعدة بياناتك فستلاحظ أن زر إنها المهمة أصبح فعالا فانقر عليه لإنهاء تشغيل القاعدة . 2- إذا لم تجد قاعدة بياناتك في هذا التبويب فافتح تبويب العمليات كما في الصورة اليسرى ولاحظ الاسم الذي تم التأشير عليه فهذا الاسم خاص بقواعد بيانات أكسس أشر عليه ثم اضغط انهاء العملية في الأسفل . مسألة صغيرة أرجو أن يكون نفعها أكبر ،،،

برنامج المونتاج Power Director حائز على جوائز عديدة و من ضمن افضل 5 برامج عريقة في المونتاج الاحترافي حيث من خلاله يمكنك الاستغناء عن اي برنامج آخر لـ التعديل على الفيديو. فإذا كنت تريد تصوير مشهد معين او فيلم قصير و تريد برنامج سريع و سهل في اتمام عملية الاخراج و مونتاج الفيديو بشكل احترافي فأرشح لك ذلك البرنامج برنامج سايبر لينك حيث انه سهل الاستخدام في اضافة و قص و دمج الفيديوهات مع التأثيرات الاخرى . اليكم شرح عملية تثبيت برنامج باور ديركتور كذلك معظم خصائص برنامج سايبرلينك الرئيسية ثم بعد ذلك المميزات و رابط التحميل المباشر للبرنامج. 1- اضغط Next 2- انتظر 3- اضغط No 4- اضغط No 5- بعد الانتهاء من التنصيب و فتح البرنامج سيظهر لك أولاً الواجهة التالية .. قم بالضغط على Full Feature Editor للاستمتاع بجميع امكانيات البرنامج 6- و هذه هي واجهة البرنامج الرئيسية .. تابع الشرح اسفل الصورة يمكنك اضافة ملفات جديدة سواء صور، فيديوهات أو مقاطع صوت من خلال سحبهم و وضعهم في هذا الصندوق الحاوي للصور و المقاطع او من خلال قائمة File و ادراج ملفات جديدة، ثم سحب المقطع الى شريط الـ Timeline في الأسفل للبدء في التعديل عليه سواء تقطيعه او تسريعه .. و بإمكانك وضع اكثر من مقطع او صورة في نفس الوقت بالتوازي و الشاشة الموجودة على يمين البرنامج لعرض المحتويات و تنسيق اماكنها. يمكنك تقطيع الفيديو من خلال Split أو Trim و تسريعه من خلال Power Tools ثم Speed، و هذه هي الشاشة التي تظهر عند الضغط على Trim لقص الفيديو. و الايقونات الموجودة على يمين البرنامج لإضافة الدخلات بين كل مقطع و الاخر او بين صورة و الاخرى او اضافة نصوص كما في الصورة التالية. و من ضمن خصائص البرنامج ايضاً عمل البومات الصور المتحركة و التي يعرض فيها عدد من الصور بطريقة مختلفة و جذابة مميزات برنامج Cyberlink Power Director • قص و تقطيع الفيديو بدقة • تسريع الفيديو مئات المرات و كذلك تبطىء الفيديو و عمل Slow Motion. • اضافة و دمج الصور مع الفيديو بطريقة احترافية لإحتواؤه على مئات الدخلات • التعديل على الصور و ازالة التشويش . • امكانية عرض الفيديو اثناء التعديل. • امكانية تصوير الشاشة و التصوير من خلال كاميرة الحاسوب ثم التعديل المباشر عليها. • البرنامج سهل جداً في الاستخدام ولا يحتاج لمشاهدة دروس طويلة. • يدعم جميع صيغ الفيديو و بذلك يمكنك استخدامه في تحويل الفيديو. • امكانية حفظ الفيديو بأكثر من جودة مختلفة. المصدر: برنامج سيبرلينك تحميل برنامج سايبرلينك

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

أخي الكريم الدمج هو المشكلة .. قم على سبيل المثال بإزالة الدمج في النطاق D11:D376 ثم ضع المعادلة التالية في الخلية D11 ثم قم بسحبها =$L$3 كرر نفس الخطوات مع بقية الأعمدة التي قمت بإخفائها .. وجرب الكود مرة أخرى .. وأخبرني بالنتيجة

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

أخي الكريم جرب الكود بهذا الشكل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 10 Then If Target.Column >= 3 And Target.Column <= 60 And Target.Column Mod 3 = 0 Then Application.EnableEvents = False Application.ScreenUpdating = False Target.Offset(, 2).Value = Target.Value * Target.Offset(, 1).Value Application.ScreenUpdating = True Application.EnableEvents = True End If End If End Sub أرجو أن يفي بالغرض

الف مليووووووون مبروك للاخ حسام عيسى وياسر العربى وابراهيم ابوليلة خير اختيار وخير الناس والشكر موصول لمؤسس هذا الصرح المهندس محمد طاهر

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

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

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

السلام عليكم ورحمة الله وبركاته ألف ألف مليون مبروك وربنا يباركلك فيها ويحفظهالك أبى وأستاذى الحبيب / محمد حسن

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

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

اخى الكريم/ابومهند بخصوص طلبك الاول لم افهم ما تقصده يرجى مزيد من التوضيح بخصوص طلبك الثانى جرب المرفق هل هو ما تريد تقبل تحياتى ----------------------------------------- ترحيل جديد1.zip

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

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

You're welcome Thanks for the feedback Regards

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

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

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

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

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

وصلتني على البريد افتح الاوت لوك الخاص بك وحاول تجربة الاختصارات التالية: •Ctrl+R : الرد على بريد الكتروني •Alt+R : الرد على الكل في البريد الإلكتروني أو قم بالتبديل إلى طريقة عرض تقويم أسبوع العمل •Alt+W : إعادة توجيه البريد الإلكتروني أو قم بالتبديل إلى عرض التقويم الاسبوعي •Ctrl+M : F9 لإرسال/تلقي جميع المراسلات •Alt+S : أرسل بريد الكتروني •Ctrl+G للانتقال الى أي تاريخ في التقويم » الانتقال الي تاريخ « : فتح مربع يمكنك أيضا التبديل بين البريد والتقويم والاتصالات والعناصر الأخرى في "جزء التنقل" عن طريق Ctrl + 1, 2, 3, 4, 5 . جرب الأرقام كل على حدة

السلام عليكم الاستاذ علي انا اعتذر منك ، فلم ارى مرفقك إلا الآن والسبب اني لم اره ، هو انك عدلت في مشاركتك ووضعت فيه المرفق ، بعد مشاركتي !!! على كل حال ، فتح واكتشاف كائنات برنامجك كان تحديا اكثر من الحل نفسه في مشاركتي الاخيرة قلت: . وبالفعل هي مشكلة برنامجك !! عندك 42 نموذج ، بهم صورة او اثنتين ، و 23 تقرير ، بهم صورة او اثنتين . . صحيح انك في بعض النماذج والتقارير كنت كاتب الكود الصحيح لربط الصور ، ولكن للأسف ، الصور اصلا كانت مضمنة وليست مرتبطة. غير طريقة عرض الصور من Embedded او Shared الى Linked ، واضغط واصلح البرنامج ، وان شاء الله البرنامج يصغر حجمه جعفر

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

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

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

الخ العزيز / يوسف باشا عطا برنامج عمل الفلاشات + الكراك فى المشاركة السابقة

الأخ العزيز / خالد القدس أمهلنى حتى يوم الأحد 5 - 7 - 2009 وسوف أرفق لك ملف فلاش يشرح كيفية إستيراد بيانات من الأكسيل إلى الأكسيس دون إستخدام النسخ واللصق المتعبة والمضيعة للوقت هنا ملف فلاش يشرح تحويل ملف الأكسيل إلى الأكسيس http://dc03.arabsh.com/i/00273/m0zvn4jiv3zq.swf

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