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

بسم الله الرحمن الرحمن أحبابى السلام عليكم ورحمة الله وبركاته وبعد أقدم إلى حضراتكم ملف صغيراً وبسيطاً لكنه يحتوى على كود - من وجهة نظرى المحدودة - فوق الرائع الفكرة هى أن الملف يغلق اذا لم يكن هناك مستخدم يعمل عليه الاغلاق يتم بعد ترك المستخدم له بدقائق محددة " يتم تحديد الدقائق فى المديول العادى" الكود الرئيسى يوضع فى حدث المصنف اذا رجع المستخدم الى العمل على الملف قبل نهاية المدة يتم تجاهل الكود ولا يتم الاغلاق لو حاولت تغيير عدد الدقائق رغبةً منك فى اطالة المدة فان الكود لا يعمل بالعدد الجديد الا بعد الحفظ والاغلاق واعادة فتح الملف تحياتى / مختار حسين محمود :fff: Timed Closing Of A Workbook.rar

السلام عليكم ورحمة الله الادخال السريع مع قوائم منسدلة 12.bmp khezzani.rar

السلام عليكم ورحمة الله وبركاته نبتعد قليلاً عن أسلحة الدمار الشامل .. وننتقل إلى ملف ذو فائدة كبيرة إن شاء الله معكم اليوم : دانلود مانجر داخل الإكسيل ..حمل ملفاتك وعيش حياتك وانسى التفعيل والكراكات .. طبعاً لا بديل عن الداونلود مانجر في تحميل الملفات ، ولكن ملف اليوم ممكن يكون بديل مؤقت ، عشان لو حصلت مشكلة في التحميل متعطلش !! أترككم مع رابط الفيديو لكيفية استخدام البرنامج .. تقبلوا تحيات أخوكم أبو البراء ودائماً إن شاء الله مع كل جديد ومفيد دمتم على طاعة الله Download Internet Files Automatically.rar

اخواني الافاضل / عندما قمت بالمشاركة في منتداكم هذا كنت على يقين انه منتدى تعليمي لكني فوجئت اليوم بأحد اﻷعضاء يسمى emanabd بعرض 3 مواضيع اعلانات لبرامج حسابية ليست مجانية ؟؟ وسؤالي هل يسمح بالترويج لسلع وبرامج وما إلى ذلك داخل المنتدى؟ إذا كان الجواب بلا فأين اﻹدارة من ذلك؟؟ اعتذر لكم اذا كان منتداكم للبيع والتجارة مة خلال العلم

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاةً الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد بدايةً أحب أن أقول لحضراتكم أننى قدمت لكم موضوعاً سابقا بعنوان : إغلاق آلى لملف اكسل إذا ترك بدون استخدام على هذا الرابط : http://www.officena.net/ib/index.php?showtopic=59908 من خلال فكرة هذا الموضوع تم استنباط فكرة تنشيط شاشة الحماية آلياً إذا ترك ملف الاكسل بدون استخدام لمدة زمنية محددة بامكانك تغيير المدة الزمنية فى الكود أى حركة تعملها بالماوس أو الكيبورد تجعل شاشة الحماية غير نشطة . ووضعت لك أسماء شاشات الحماية المتوفرة على ويندوز 7 فى الكود للتبديل بينها .واستدعائها ألياً بعد المدة الزمنية المحددة كما يمكنك استدعاء شاشة الحماية يدوياً بالضغط على المفتاح الاحمر فى الملف . أتمنى أن تسعدوا به لكم منى كل محبة وتقدير واحترام والحمد لله تعالى من قبل ومن بعد *************** Activate the scrensaver.rar

السادة أعضاء المنتدي الكرام السلام عليكم و رحمة الله و بركاتة اليوم مرفق لكم ملف أدراج التاريخ بعد تحميلة و أدراجة ضمن برنامج أكسل لا تحتاج الى تحميلة مرة أخري و سوف يعمل في كافة ملفات الاكسل لديك أتمني أن ينال قبولكم khaled Calendar.rar

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

تفضل الكود بعد التعديل المطلوب Sub TarhilClientData() Dim LR As Long Dim sDate As Long, sClient As Long LR = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row sDate = Application.WorksheetFunction.Match(Sheet3.Range("C5"), Sheet2.Range("A1:A" & LR), 0) sClient = Application.WorksheetFunction.Match(Sheet3.Range("C7"), Sheet2.Rows(1), 0) Application.ScreenUpdating = False Sheet3.Range("C10:C13").Copy Sheet2.Cells(sDate, sClient).PasteSpecial xlPasteValues Sheet2.Activate Sheet2.Cells(sDate, sClient).Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله من أجل أدراج التاريخ عن طريق فورم خاص بالتاريخ 1. انسخ الملف "samradDatePicker" الي المسار التالي C:\Program Files (x86)\Microsoft Office\Office14\XLSTART :C تعني رمز الهارد دسك الموجود علية ملفات الاوفس Office14 حسب نسخة الاوفس لديك نفتح المجلد المسمي XLSTART ننسخ الملف بداخلة نفتح ملف اكسل بالوقوف على أي خلية بالملف نضغط الزر الايمن للماوس تظهر قائمة اول شئ فيها Pic From Calendar نختار التاريخ الذي نريدة و نضغط علي اليوم المطلوب أتمني أن أكون قد وفقت في هذا الشرح ===================================================== المطلوب : الملف XLSTART لايوجد عندي علما بأن الاوفس عندي 2013

بارك الله فيك

الأخ الكريم أحمد إليك الملف المرفق لعله يكون المطلوب إن شاء المولى Conditional Formatting Today's Formula.rar

ايـــــه الحلاوة دى ربنا يزيدك من علمه مع خالص شكرى وتقديرى لك وللمنتدى المبدع

السلام عليكم ورحمة الله تنبيه انتظر قليلا مع حركة جميلة khezzani MsgAttente.rar

جرب هذا الملف لعله يكون المطلوب Progress Bar Fading UserForms.rar

حقل النتيجة ntj استخدمنا فيه الطريقة نفسها التي نجمع فيها كل صفحة على حدة ولكن هنا استبدلنا الجمع استبدلناه بالاختيار من متعدد واليك شرح مفصل عن ما يحدث داخل التقرير 1- مصدر التقرير هو الاستعلام التجميعي وتظهر فيه المعدلات والمجموع 2- وضعنا حقلا مخفيا (test1) في تفصيل التقرير ومصدر بياناته هو حقل test1 الموجود في الاستعلام وكما ذكرنا سابقا ان هذا الحقل يأخذ القيمة 1 عن كل مجموع يقل عن 50 3- انشأنا حقلا جديدا غير منضم ntj داخل مقطع تذييل اليوزر ويظهر في المحرر بهذا الاسم : (تذييل_المجموعة0 ) الآن نحتاج الى طريقة او كود يجمع الموجودات في حقل test1 ان وجدت ( كل صفحة لوحدها ) لنعمل لها شرطا كالتالي : المجموع1= مكمل .... المجموع2 = مكمل ... المجموع3=راسب ... المجموع 0 =ناجح والطريقة وجدناها وهي طريقة جمع الصفحات وشرحها كالتالي : نعلن عن متغير رقمي testSum في رأس المحرر Dim testSum As Integer في مقطع رأس التقرير نجعل قيمة المتغير صفر لقطع العلاقة بمجموع الصفحة السابقة Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) testSum = 0 End Sub في مقطع التفصيل نجعل المتغير يساوي مجموع قيم الحقل test1 الموجودة Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) testSum = testSum + Nz(Me.test1, 0) End Sub في النهاية قيمة المتغير ستكون صفرا أو 1 أو 2 أو أكثر الآن يمكننا صناعة شرط بناء على قيمة هذا المتغير يظهر قيمة ntj كما نرغب ونريد وذلك يتم في حدث مقطع التذييل الذي يتواجد به حقلنا هذا Private Sub تذييل_المجموعة0_Format(Cancel As Integer, FormatCount As Integer) If testSum = 1 Or testSum = 2 Then ntj = "مكمل" ElseIf testSum > 2 Then ntj = "راسب" Else ntj = "ناجح" End If End Sub آمل ان اكون بينت ووضحت شيئا من الاشكال في المثال المرفق

السلام عليكم ورحمة الله تم عمل المطلوب بإضافة عمود للقائمة المنسدلة مرتبة من شيت "عملاء1" في العمود K بواسطة معادلة صفيف (تم تحديد كل النطاق من K2 إلى K285 ثم نحجز المعادلة مرة واحدة ثم نضغط على CTRL+SHIFT+ENTER -لا يهم الخطأ الذي أظهرته المعادلات- مع استعمال النطاق الديناميكي المسمى Rng في هذه المعادلات)... والقائمة المنسدلة المعنية تم إنشاؤها بالنطاق الديناميكي بالتسمية List والتي تكون عناصرها مرتبة أبجديا... أرجو أن يكون هذا هو المطلوب... أخوك بن علية الملف المرفق : كشف الحساب.rar

عمل مبدع كالعادة دائما بارك الله فيك

جازاك الله كل خير

أسأل الله أن يجزي كل من شارك في هذه الأعمال، فكل هذا محصلة البحث في المنتديات وغيرها، وحقيقة لا أذكر أصحابها، فالدعاء جملة لكل من ساهم بتصميمها ومشاركتها ونشرها. تحويل التاريخ من هجري إلى ميلادي والعكس _1.rar Age2.rar date.zip dates28-10-2008.rar FROM1 v1.rar DOB.rar الفرق بين تاريخين بالأيام.rar

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

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

كما وعدت احبابي فيديو شرح كيفية استعمال الأداة الإضافية ولا ينقصني سوى دعاؤكم

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في وحدة نمطية : Public Sub GetImaage() Dim filelocation As String Dim diagfile As FileDialog Set diagfile = Application.FileDialog(msoFileDialogSaveAs) diagfile.title = "حفظ ملف الصورة كـ ...." diagfile.InitialFileName = "*.bmp" If diagfile.Show Then filelocation = diagfile.SelectedItems(1) Dim scandiag As Object Dim image As Object Set scandiag = CreateObject("wia.commondialog") Set image = CreateObject("wia.imagefile") Set image = scandiag.showAcquireimage() image.savefile filelocation End If End Sub وهذا الكود في الزر داخل النموذج : Call GetImaage بالتوفيق

الاستاذ الفاضل : أبو عبدالله الحلوانى أولا : كل عام انتم بخير إن شاء الله نعم يمكن ذلك وإليك مثال Hide column in report with condition.rar

السلام عليكم أخي العزيز تجد بالمرفق زرين لعمل المطلوبين الباقيين انتهاء اقامات3.rar

السلام عليكم جميعاً اخي ياسر حياك الله على هذه الفكرة الطيبة واعتقد أن ندائي للأخ ابوتامر بخصوص متابعة استكمال مشروعه أداة تحويل المعادلات لاكواد يعتبر افضل بداية لهذا الموضوع (في حالة استجابة الاستاذ الفاضل) .... فالموضوعان يصبان في نفس الاتجاه ولكن يبدو أن الزملاء لم يفهموا المقصود من هذه المشاركة ،،، وهو نفس ما ترمي اليه اخي الحبيب ... فعن طريق تحويل المعادلة لكود ،،، تستطيع فهم كيف يعمل الكود وتتضح لك الصورة تماماً ،،، بدلاً من الشروح المطولة... راجع الرابط http://www.officena.net/ib/index.php?showtopic=29148

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

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

أخي ياسر بالتوفيق و نحن معك ان شاء الله و لكن اخي اكمل الدورة لاخرها و لا تتقاعس او تتعب او تتثاقل بل احتسب عند الله ============ و للعلم ستكون انت المستفيد ان شاء الله لان افضل طريقة لفهم اي مادة هو شرحها. =========== آسف أخي لم انتبه لذلك مسبقاً أنا اتوقع ان افضل كتاب لعمل ذلك هو هذا الكتاب http://www.4shared.com/file/38877157/cdefa..._Reference.html و لكن يا ريت لو تاخذ رأي الأساتذة قبل أن تبدأ في الترجمة

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