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

بعد العديد والعديد من الأكواد التى أستخدمت ، فى عمل " تجمد " للوقت أو التاريخ هذه طريقة بعيدة كل البعد عن هذا كله وتحقق المطلوب ، وأنا أستخدمها منذ مدة طويلة وتحقق ماأريد وهذا حل " وأتمنى أن تكون إضافة بالطبع " وهوحل بدون معادلات ولا أكواد وخطواتة كاللأتى: 1- ضع دالة "NOW " فى الخلية التى تريد إظهار الوقت بها 2- ثم نضغط على "F2 " 3- ثم نضغط على "F9 " 4- ثم نضغط على مفتاح "ENTER " من " KEY BOARD " 5- ثم كليك يمين على الخلية الذى يوجد بها الوقت ، ثم نختار " FORMAT CELLS " ومن هذه القائمة نختار تنسيق الوقت أو التاريخ أيهما نفضل ومبروووووووووك عليكم ثبات التاريخ أو الوقت مهما أغلقت أو فتحت أوراق عملك أتمنى أن تكون إضافة ومفيدة للأخو الزملاء تقبلوا تحياتى

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

السلام عليكم خواتم مباركة نموذج بسيط للترحيل والبحث والتعديل هو طلب لاحدهم جعلته هنا للعموم الفائدة تم تعديل النسخة السابقة بهذه بعد ان حملت 80 مرة المرفق 2010-2003 نموذج بحث وترحيل وتعديل.rar ================================== هذا نموذج مع البحث في جميع الاعمدة وطباعة الفورم المرفق 2003-2010 نموذج بحث وترحيل وتعديل.rar ================================== هذا نموذج مع زيادة زر حذف سجل المرفق 2003 نموذج بحث وترحيل وتعديل.rar

الاخوة الافاضل السلام عليكم ورحمة الله اثناء تجوالي في المنتديات الاجنبية وجدة مجموعة من المكرو خاصة بتنظيم الوقت فاحببت ان اشارككم بها 1- اغلاق ملف الاكسل بعد وقت محدد : وهو ممتاز للملفات المشتركة والتي يتعامل بها اكثر من شخص او ان تحدد لنفسك وقت محدد للعمل على ايت حال يعتبر هذا المكرو ميزه جيدة يمكن اضافتها لعدة استخدامات المكرو : Private Sub Workbook_Open() Dim Start, Finish, TotalTime, TotalTimeInMinutes, TimeInMinutes Application.DisplayAlerts = True TimeInMinutes = 180 'Timer is set for 180 minutes; change as needed. If TimeInMinutes > 5 Then TotalTimeInMinutes = (TimeInMinutes * 60) - (5 * 60) Start = Timer Do While Timer < Start + TotalTimeInMinutes DoEvents Loop Finish = Timer TotalTime = Finish - Start Application.DisplayAlerts = False MsgBox "This file has been open for " & TotalTime / 60 & " minutes. You have 5 minutes to save before Excel closes." End If Start = Timer Do While Timer < Start + (5 * 60) DoEvents Loop Finish = Timer TotalTime = Finish - Start Application.DisplayAlerts = False MsgBox "Excel will now close." Application.Quit End Sub 2- تشغيل المكرو اتماتيكين لمدة ثواني - دقائق - ساعات بعد تشغيل ملف الاكسل, وهو مفيد جدأ عند الحاجة لربطة مع مكرو اخر يتم تشغلة بعد فترة من الزمن مثلاً أعداد قالب اختبارات ويتم التنبيه عن الوقت المتبقي لنتهاء فترة الاختبار ملاحضة يتم نسخ المكرو في ThisWorkbook لتفعيلة لا يستفاد من هذا المكرو على حدة - يجب ربطة بمكرو اخر للاستفادة من وذلك بتغير Name_of_Macro الى اسم المكرو المراد تفعيلة عند ربط وتفعيل المكرو يجب حفظ الملف واغلاقة ثم اعادة فتح الملف حيث انه سيبدء العد عند فتح الملف ان الوقت المحدد لهذا المكرو للبدء هو 10 ثواني ولتغيره قم بادخال الوقت المطلوب في خانة 00:00:10 المكرو: Private Sub Workbook_Open() 'Runs a macro 10 seconds after Excel is opened Application.OnTime Now + TimeValue("00:00:10"), "Name_of_Macro" End Sub 3- تشغيل المكرو في وقت محدد من اليوم مثلاً اساعة 4:43 عصراً وهو مقارب للمكرو السابق ولكن يعمل في وقت محدد من اليوم ملاحضة جميع الاعدادات السابقة لمكرو رقم 2 يجب تطبيقها لهذا المكرو بلأضافه الى انه سيعتمد على توقيت الساعة الموجودة في كمبيوترك المكرو : Private Sub Workbook_Open() 'Runs a macro at 4:30 PM Application.OnTime TimeValue("16:30:00"), "Name_of_Macro" End Sub مع تمنياتي للجميع بتوفيق اخوكم بوفيصل

هذا المطلوب الأول ولم أفهم المطلوب الثاني جيدا فهل تريد إدراج سطر بعد كل 20 موظف مثلا وما هو الإجمالي الذي تريده ؟ العلاوات أم الحوافز أم ...... أم ...... تفضل نقا بيانات.rar

بكل تواضع ,تكفي كلمة "شكراً"

السلام عليكم تم معالجة الأمر فزر وانتقال 1.rar

أخى وأستاذى الحبيب " أسلام الشيمى " فى كثيرا من الأحيان وليس جديد على حضرتك حاجتنا لتثبيت الوقت ، لأنه كما هو معلوم لحضرتك أيضا أنه يتم عمل ذلك عن طريق دالة "now " وهذه الدالة تأخذ بياناتها من وقت جهاز الكمبيوتر الذى نتعامل معه ومعلوم أيضا أن هذا الوقت متغير لذلك يلجأ الكثير منا إلى الكود لتثبيت الوقت لحظة تسجيل معلومة أو بيان ولحضرتك تصور كما هو مرهق وغير دقيق كتابة التاريخ أو الوقت لحظة تسجيل المعلومة ولن يكون دقيقا كتابتها يدويا وهل تعلم حضرتك أيضا ، أن هذه المعلومة تعادل هذا الكود Sub myNow() activecell.Value = now() End Sub وهل تعلم حضرتك أيضا أنه يمكن إختصار الخطوات التى كتبتها فى الخطوات الخمس الأولى من المشاركة بكتابة دالة " now" وتثبيتها دون تغييرها بالضغط على مفاتيح ";+Ctrl+Shift " أو تحديد الخلية التى تريد ظهور الوقت بها ويكفى الضغط ";+Ctrl+Shift " أرجو أن أكون وفقت فى شرح فائدتها الكبيرة ومايمكن أن توفر تقبل : تحياتى

دالة if هنا عملها يتمثل في عدم ظهور خطأ اذا كانت هناك خلايا فارغة في العامود B حاول ان تضيف بيانات في هذا العامود و ترى ان المعادلة تعمل بشكل آلي

ارسلته على الايميل . اسم البرنامج : Passware Kit Forensic

السلام عليكم استاذ vhk123 ممكن اسم البرنامج

أخى الحبيب " محمد أبو البراء " أولا - وقبل كل أعمال الدنيا كلها ، نورت المنتدى مرة أخرى ، وجميل أن يكون أول ظهور لك معى فى هذه المشاركة البسيطة ثانيا - ألم أقل لحضرتك أننا قد نبتعد وقد تأخذنا الدنيا ولكن كما قال أستاذى " جمال دغيدى " هذا المنتدى أصبح إدمان يعنى موجود فى دمنا جميعا على العموم نورت المنتدى والمشاركة كلها ثالثا - بخصوص ملحوظة حضرتك ، أنا أشرت لها فى بداية المشاركة إننا نستطيع إضافة لها مانريد من أبجدية حسبما نريد حتى تستوعب مانريد من أرقام ويمكن عمل ذلك بسهولة أن نكتب من " الأول.............................................................إلى الثلاثمائة " ولكن لابد من كتابتها فى صف واحد هكذا ثم نضغط "F9" سيظهر محتوى الصفيف ننسخة للمعادلة سيكون ذلك أبسط وأسرع تقبل : تحياتى شرح كتابة أبجدية المعادلة بطريقة سهلة.rar

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

السلام عليكم ورحمة الله وبركاته المعادلة في ملفك صحيحة لكن اعتقد انك ادخلت الحاصرة { } يدويا في المعادلة . في المعادلات العادية بعد الانتهاء من كتابتها نضغط على (ENTER) في معادلات الصفيف بعد الانتهاء من كتابتها نضغط على (CTRL+SHIFT+ENTER) وسوف تظهر الحاصرة تلقائيا.

أنا في انتظار اقتراحاتك بشأن التعديلات المطلوبة فأرجو أن تخبرني عن المواصفات المطلوبة للجدول في الخليج و شكراً

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

السلام عليكم هل هذا هو المطلوب

- عند كتابة رقم فى خلية a1 ثم عمل سحب من نقطة نهاية الخلية يكن امامك خياران الاول هو نسخ الخلية للخلايا التى اسفلها او :pp: عمل مسلسل ارقام عن طريق ضغط زرار ctrl اثناء السحب او الدراج