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

اخى الكريم يمكن عمل اضافه بسيطه If Me.ComboBox1.MatchFound = False Then: MsgBox "فضلا اختار من القائمة", vbCritical:Me.ComboBox1.value ="": Exit Sub وايضا يمكن وضع هذا الشرط فى زر الحفظ بمعنى قبل عملية الحفظ سيقوم بالاختبار هل الاختيار تم من القائمة ام لا

يمكن أن تتعامل مع كل عمود على حدا بهذا الشكل Test This.rar

السلام عليكم ورحمة الله وبركاته بعد اذن استاذنا / اسماعيل حاصبيا المحترم عدلت تعديل بسط بمجرد ادخال تاريخ البدء يتم تعبئة الجدول تلقائيا باليوم والتاريخ ولو تم البدء من منتصف الاسبوع او اخر يومين فقط وجعلت باقي التاريخ المكرر يظهر باللون الابيض حتى لا يظهر لاني لا احسن البرمجة تماما وعملت حماية بدون كلمة سر للخلايا المؤتمته حتى لا يتم مسحها بدون قصد واكرر اسفي للتعديل حساب الوقت.rar

السلام عليكم ثلاثة برامج لمن يبحث عن برامج جمعبات خيرية والبرامج الثلاثة مع بعض قابلين لتعديل مكتب هيئة الإغاثة .zip رقم سري :1 ContributorData.rar رقم سري :1234 جمعية الوفاء.rar

بسم الله الرحمن الرحيم دروس فى VBA Excel هذه الدروس نتيجة جهد مستفاد من شروحات وأعمال السادة أساتذة منتديات أوفيسنا أسأل الله عز وجل لهم أن تكون فى ميزان حسناتهم http://www.officena.net/ib/index.php الدرس الأول قبل أن نبدأ، دعونا نتأكد من أن الأدوات التي نحتاجها موجودة. إذا كنت تستخدم ( Excel 2007) أو إصدار أعلى click ". Office button, then click Excel Options بالاسفل سيتم إضافة علامة تبويب جديدة وهى Developer سوف نحتاج فى العمل مع التعليمات البرمجية ل VBA ، محرر، يتم تثبيته بشكل افتراضى. يمكنك فتحه عن طريق الضغط على تركيبة مفتاح الاختصار " Alt+ F11 ": او انقر على الشكل المشار له بالسهم بالصورة السابقة انتهى الدرس الأول مرفق ملف PDF يرجى ان كان هناك أى استفسار يكون فى مضمون الدرس حتى لا يتم التشتيت وتقبلوا منى وافر الإحترام والتقدير الدرس 1VBA Excel.rar

::: (( هـــديـــة الجمعـــة )) ::: سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل بمزيج من الحركات مما يستخدمها ملك الحركات الاخ الحبيب / شوقي ربيع اقدم لكم اليوم سورة ( الكهف ) كامله علي فورم في ملف اكسيل به بعض الحركات الجميله ويمكنك من خلاله التعرف علي ... ** معلومات عامة عن السورة ** ** قراءة السورة كامله ** ** فضائل قراءة السورة ( يوم الجمعة ) ووقت قراءتها ** ارجو من الله ان يحوز اعجابكم ويكون مفيدا وهو اهداء لجميع محبي منتدي اوفيسنا ... وخصوصا اساتذتي الكرام .. نسألكم الدعاء بظهر الغيب جزاكم الله خيرا ســـــورة الكهـــف فــي فـــــورم.rar

Create and manage databases إنشاء و إدارة قواعد البيانات قاعدة البيانات عبارة عن ملف لتنظيم و إدارة البيانات و المعلومات و حفظها بجداول مرتبطة لاسترجاع النتائج ضمن الاستعلامات باستخدام واجهات النماذج و إخراجها بتقارير. 1. إنشاء قاعدة بيانات جديدة 2. إنشاء قاعدة بيانات سطح مكتب 3. إنشاء قاعدة بيانات خاصة بتطبيقات الوب 4. العمل مع تطبيقات قاعدة البيانات 5. استخدام تنسيقات ملفات أكسيس للإصدارات السابقة حمل ملف الدرس الأول ملف pdf حمل ملف الدرس الأول ملف بوربوينت -------------------------------------------------------------------------------------------------

السلام عليكم إخواني الكرام أقدم لكم اليوم ملف قمت بإعداده ، لنتعلم من خلاله كيفية عمل قائمة منسدلة يمكن البحث من خلالها ... الملف به كل التفاصيل أرجو أن ينال إعجابكم وأن ينفعكم به Searchable Drop Down List.rar

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاةً الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد يشرفنى أن أقدم لحضراتكم ملفا به كود منقول أكثر من رائع هذا الكود يمكنه أن يظهر لك ما يأتى 1 - عدد البارتشنات فى الهارد ديسك 2 - نوع البارتشنات فى الهارد ديسك 3 - مساحة كل بارتشن والمساحة الكلية للهارد ديسك 4 - المساحة المستخدمة فى كل بارتشن والمساحة الكلية المستخدمة فى الهارد ديسك 5 -المساحة الفارغة فى كل بارتشن والمساحة الكلية الفارغة فى الهارد ديسك 6- اظهار المساحة الكلية و المستخدمة و الفارغة فى أى وحدات التخزين كالفلاشات المتصلة بجهازك طريقة استخام الملف : بسيطة ضغطة زر فقط لا غير ملحوظة 1: اعرف مساحة الهارديسك قبل وضع فلاشة وبعدها ملحوظة 2 : أى تغيير بالزيادة والنقص فى المساحات لديك يظهرها الكود بضغطة واحدة أتمنى أن تسعدوا به لكم منى كل محبة وتقدير واحترام والحمد لله تعالى من قبل ومن بعد *************** Drives names Type Size SpaceFree etc.rar

اخواني اعضاء المنتدي الكرام مرفق ملف يحتوي على فورم لترحيل البيانات المدرجة بالفورم مع امكانية تحديد الصفحة التي يتم الترحيل اليها اولا يتم اختيار الصفحة المطلوب الترحيل اليها ثانيا اختيار التاريخ لادراجة و هذا يمكن تعديلة الي أي شئ تريدة يمرر الماوس علي الخلية الثالثة و التي يتم وضع التاريخ آاليا بها بمجرد مرور الماوس عليها و في كل مرة يتم تغيير التاريخ يتتغير ايضا بمرور الماوس يتم ملئ باقي البيانات اخر خانة تظهر تلقائي وهذا بسبب احتياجي لها و لكن يمكن تغيرها أيضا يمكن أضافة أي عدد من الاعمدة حسب حاجتك مع مراعات انة في هذه الحالة يتطلب تعديل النطاق ليتضمن الاعمدة الجديدة في الخلية "c2" تم وضع كود ليتم وضع اسم الصفحة اخيرا يمكن اضافة اي عدد من الصفحات أبضا مع تعديل النطاق بمعني انة ملف يمكن أن يكون مفنوح بشكل مرن اتمني أن ينال اعجابكم """ دعاء الي والدي و أخي رحمة الله عليهما اللهمّ إنّه كان يشهد أنّك لا إله إلّا أنت وأنّ محمّداً عبدك ورسولك وأنت أعلم به === عندما نبحث عن كلمات شكر وتقدير للآخرين, فإن اجمل عبارات الشكر والتقدير لابد أن تسبق حروفنا وتنهي سطورنا معبرةً عن صدق المعاني النابعة من قلوبنا لهؤلاء Years Project Reports.rar

السلام عليكم إخواني الأحباب تفضلوا الملف المرفق به شرح كيفية معرفة الصف الأخير في عمود أو صف ، وبه أيضا كيفية إنشاء نطاق ديناميكي باستخدام الأكود Last Row and Dynamic Named Ranges.rar

السلام عليكم ورحمة الله أخي الكريم، قد قمتَ بوضع الحل في ملفك، قلتَ (العدد الإجمالي = الحضور + الغياب) إذا قم بجمع خليتي الحضور والغياب فتحصل على النتيجة... ويمكن استعمال دوال ومعادلات أخرى للحصول على المطلوب، وتجد في الملف المرفق حلين... أخوك بن علية ملاحظة: لست أدري لماذا تستعمل مواقع أخرى لرفع ملفاتك ؟ يمكنك إرفاق الملفات باستعمال أداة الرفع بالمنتدى المرفق : الاحصاء.rar

الاستاذ الفاضل // خالد " حفظه الله " السلام عليكم ورحمته الله وبركاته جزاكم الله خيرا وبارك فيكم الله أسأل أن يغفرلوالدك ولأخيك وأن يسكنهما فسيح جناته وأن يجافى الارض عن جنبيهما وان يجعل قبرهما روضة من رياض الجنة وان يرحم والداى رحمة واسعة وأن يرحمنا امواتا وأحياءا إنه ولى ذلك والقادرعليه وافر تقديرى وجزاكم الله خيرا

ضع المعادلة التالية في الخلية E201 =COUNT(E10:E199) ثم كليك يمين Format Cells واختر التنسيق عام General ثم دبل كليك داخل الخلية التي بها معادلة ثم إنتر

أخي الفاضل بالنسبة للخلايا المدمجة يكفي أن تشير إلى خلية واحدة ..قف في الخلية المدمجة لتعرف المرجع الخاص بها بالنسبة للمعادلة في الخلية C2 تكون كالتالي: ='مصطفى شاهين'!A1

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

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

بعد اذن استاذتى الافاضل صاحب السؤال طلب معادلة المتوسط المرجح للمخزون ومعادلة المتوسط المرجح هى عباره عن تكلفة البضاعه / عدد الوحدات . وهذه الطريقه هى احدى الطرق المتعارف عليها فى تقييم المخزون وتعتبر من ادق واسهل الطرق فى تقييم مخزون اخر المده وتكلفة الوحدات المتاحه للبيع اما مافهمته بالظبط من السؤال والاجابة المطلوبه انه يريد استخدام طريقة المتوسط المتحرك فى تقييم المخزون وهى طريقه لها بعض العيوب المحاسبيه ربما اوفيسنا لايتناول مثل هذه الموضوعات لذا لن اتطرق اليها وهناك حلول لهذا الامر ولكن ستكون بعيده عن المعادلات نوعا من وعند بحثى وجدت انسب طريقه هى Analysis ToolPak add-in. واليك رابط ماتوصلت اليه عسى ان يفيدك http://www.excel-easy.com/examples/moving-average.html# توصيه ---------------------------------------------------------------------------------------------- اخى الكريم استخدم المتوسط المرجح فهو اكثر الطرق عمليا ودقة فى تقييم المخزون والوحدات المنصرفه .وهذا الراى من قبل خبرتى المتواضعه تقبل منى خالص التحيه والاحترام

تم تعديل العنوان ليتناسب مع قواعد المشاركات برجاء ملاحظة ذلك فيما بعد قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

السلام عليكم =IF(C7="";"";SUMIFS(Sheet1!$J$3:$J$10000;Sheet1!$C$3:$C$10000;$D$3;Sheet1!$E$3:$E$10000;C7;Sheet1!K3:K10000;$D$4)) جرب ثبت الجزء الاخير من المعادلة (Sheet1!K3:K10000) مثل بقية المعادلة في الخلية D7 لتصبح =IF(C7="";"";SUMIFS(Sheet1!$J$3:$J$10000;Sheet1!$C$3:$C$10000;$D$3;Sheet1!$E$3:$E$10000;C7;Sheet1!$K$3:$K$10000;$D$4)) تحياتي

حدد المشاركة اللي فيها الإجابة على طلبك كأفضل إجابة أخي عادل

السلام عليكم اسعد الله صباحكم بعد اذن استاذي ياسر الزر في sheet1 بيشغل الامر ده LastRow1 = Columns("A").Find("الفصل الأول", SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row فبيعيد برمجة FIND بانها تبحث عن الكلمة كلها و فقط (LookAt:=xlWhole) يعني تبحث عن محمد لازم يكون الاسم محمد فقط مش محمد محسن مثلا . فممكن يتعدل الجزء ده في البحث التابع للفورم , السطر ده Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(M, LookAt:=xlPart) فيعيد البرمجة بتاعت FIND تاني بحيث تبحث بمعلومية جزء من الكلمة (LookAt:=xlPart) تحياتي

أعتقد لازم يكون الشغل على عمود معين مش الاتنين عموما جرب الملف التالي فيه العمل على انتهاء المعدة .. التاريخ اللي انتهت صلاحيته باللون الأحمر ..واللي باقي عليه أقل من أو يساوي 25 يوم باللون البرتقالي Test This.rar

لابد من السؤال مرة أخرى هل العمل على عمود انتهاء المعدة أم السائق .. لم تذكر ذلك .........

لحين ارفاق ملف وابعد اذن الاستاد ياسر يمكن الاطلاع على الروابط التالية http://www.officena.net/ib/index.php?showtopic=54449&hl=%D8%A7%D9%84%D8%A7%D9%82%D8%A7%D9%85%D8%A9 http://www.officena.net/ib/index.php?showtopic=53881&hl=%D8%A7%D9%84%D8%A7%D9%82%D8%A7%D9%85%D8%A9#entry339531

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

ما شاء الله عليك أستاذي العزيز/ ياسر خليل اجمتع اليسرين إن شاء الله نحلة المنتدى نجدك في كل مكان الله يحفظك من كل مكروه ويديم علينا وجودك بيننا ويبارك لك في كل أعمالك

أخي العزيز / محمد عبد الصمد فعلا تم حذف مجلد الصور قلت ربما لا يحتاجه أخينا في ملفه فما عليك إلا أن تنشئ مجلد للصور وتضع فيه الصور وتسميها بالتسمية التي تريد وتقوم بربطها بالملف من خلال الكود بشرط أن تضع اسم مجلد الصور في الجزء التالي من كود اظهار الفورم وتحدد العمود الذي سوف يوضع فيه اسم الصورة الكود هو : Option Explicit '====================================================== '====================================================== ' kh_SetAddrss متغيرات ' ( اولا : اسم ورقة البيانات (افتراضي ' ( ثانيا : نطاق صف رؤوس اعمدة البيانات (افتراضي ''''''''''''''''''''''''''''''''''''''''''''''''' ' ( ثالثا : عمود التسلسل (اختياري ' اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم ' تلقائيا في عمود معين سجل عنوان راس العمود '====================================================== '====================================================== Sub kh_Show_UFormChang1() On Error GoTo 1 With UFormChang .kh_SetAddrss "ورقة1", "a1:o1" .kh_SetPicture "PH", "U1" .Show End With 1: If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء" On Error GoTo 0 End Sub .kh_SetPicture "PH", "U1" في الكود السابق اسم المجلد هو (PH) غير اسم المجلد حسب التسمية عندك بس لا تنس أن يكون في نفس مجلد الملف وهذا الملف أرفعه لك مع إضافة مجلد الصور أيضا لا تنس فك ضغط الملف بعد تحميله لأنك لو فتحته مباشرة من برنامج الضغط ستظهر الرسالة مرة أخرى الشيت.rar

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

السلام عليكم تفضل المرفق التمرين.rar

خالص تحياتي لأستاذي ومعلمي الفاضل أبو خليل لمروره الكريم ؛ والله لشرف عظيم لي تفضل أخي مصطفى انظر هذا التعديل طبقا لقاعدة البيانات الأخيرة وأضفت في الجدول عام 2015 وظهر في التقرير بخلاف الذي ارفقته db2-----.rar

بارك الله فيك اخي عبد الله بولنوار جزاك الله كل خير

السلام عليكم شغل برنامجك 2007 مباشر بعد تسطيب 2013 واعمل مباشر لا تحتاج لاي شيء بالتوفيق

أخي الحبيب أحمد مرجان (والإكسيل هيبقا بالمجان) إليك الملف المرفق التالي .. يوضع الكود في حدث المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Answer As Long Answer = MsgBox("Do You Want To SAVE This Workbook?", vbYesNo, "Officena Query") If Answer = vbYes Then Me.Save ElseIf Answer = vbNo Then Me.Saved = True End If End Sub Change Default Save Message.rar

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

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

أظن هذا ما تريد حساب الوقت.rar

السلام عليكم انظر الي الرابط http://www.officena.net/ib/index.php?showtopic=59067 http://www.officena.net/ib/index.php?showtopic=31953

تفضل نسختي ولكن يجب تغيير اسم ملف power point في الكود. وهذا الكود: لفتح العرض ، ايقافه ، واغلاقه Option Compare Database Dim opj As Object Private Sub cmd_run_Click() Dim strFilePath strFilePath = CurrentProject.Path & "\30.Office_Exercises.ppt" Set opj = CreateObject("Powerpoint.Application") opj.Visible = True opj.Presentations.Open (strFilePath) ': SendKeys "{F5}" opj.ActivePresentation.SlideShowSettings.Run 'Set opj = Nothing End Sub Private Sub cmd_stop_Click() opj.SlideShowWindows(1).View.Exit End Sub Private Sub cmd_exit_Click() opj.Quit Set opj = Nothing End Sub جعفر 30.Run_PowerPoint.mdb.zip

وهذا الكود لإيقاف العرض opj.SlideShowWindows(1).View.Exit جعفر

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

اعذروني يا شباب للمداخلة ولكني احب اتفادى Sendkeys فايش رايكم بهذا الكود: Dim opj As Object Dim strFilePath strFilePath = CurrentProject.Path & "\Ch1.ppt" Set opj = CreateObject("Powerpoint.Application") opj.Visible = True opj.Presentations.Open (strFilePath) ': SendKeys "{F5}" opj.ActivePresentation.SlideShowSettings.Run Set obj = Nothing جعفر

الاستاذ رمهان .. سعدت بمرورك واضافتك وشكرا للتنبيه على افراغ الذاكرة وحلوة تشغيل العرض هذه Dim opj As Object Dim strFilePath strFilePath = CurrentProject.Path & "\Ch1.ppt" Set opj = CreateObject("Powerpoint.Application") opj.Visible = True opj.Presentations.Open (strFilePath): SendKeys "{F5}" Set obj = Nothing

طيب إمبارح كان الجمعة وعذرناكم .. يا ترى هتعبرونا بالرد إمتى ؟ ولا مفيش مشرفين بالمنتدى اليومين دول ..(صحيح الكرسي بيغير النفوس)

جرب هذا الكود Sub CreateNewWB() Dim NewBook As Workbook Set NewBook = Workbooks.Add On Error Resume Next Application.DisplayAlerts = False NewBook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Sheets("Sheet1").Range("A1").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.DisplayAlerts = True End Sub

بارك الله بك استاذ ياسر و لكن هل تعلم انه بتعديل بسيط على الكود يمكن تحويله الى دالة اخرى انظر المرفق البحث عن القيم المتعددة بدون تكرار و جمعها.rar