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

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

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

بسم الله الرحمن الرحيم نبدا اليوم باذن الله سلسلة كن محترف vba او تعليم vba للمبتدئين اولا احب ان اتوجة بالشكر لكل استاذتنا بالمنتدى واستاذن منهم فى طرح هذة السلسلة البسيطة ربما تنفع اى شخص وانا هنا ما زلت تلميذ فى مدرسة العلم منتدى اوفيسنا فارجو من حضراتكم ان تقبلوا طالب علم يعلم بعض من العلم الذى تعلمة على ايديكم والان نبدا فى شرح الجزء الاول من هذة السلسلة وسنشر باقى الاجزاء تباعا فور الانتهاء منها الجزء الاول https://youtu.be/qz-nKd39lXY

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

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

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

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

وعليكم السلام ورحمة الله في الحقيقة لا يمكن الجزم بمعرفة سبب هذه الرسالة ولأجل ذلك يجب رفع الملف الذي به الخطأ حتى يتضح الأمر أكثر... وعليك بالصبر يمكنك الاطلاع على المساعدة بالرابط التالي: http://support.microsoft.com/kb/928976/ar بن علية

هناك اكثر من طريقة لعمل قائمة منسدلة 1- قائمة منسدلة مترتبطة بعمود ما ( اذا تم حذف شيء من العمود يتم حذفه من القائمة بشكل تلقائى 2- قائمة منسدلة غير مترتبطة باى عمود 3- .................................................. مع تحياتى : مصطفى خليل قائمة منسدلة.rar

المخازن برنامج يتكون البرنامج من اربع اجزاء الجزء الاول تعريف وحدات الاصناف تعريف المجموعة او المخازن تعريف الاصناف لكلمخزن او مجموعة تسطيع اضافة 100 مجموعة او مخزن واضافة 6000 صنف الجزء الثانى - ادخال الحركة على الاصناف من ( الرصيد الافتتاحى _ اضاف – صرف – مرتجع ) ممكن تعديل الحركة الجزء الثالث - تسطيع عمل تقاير من البرنامج 1 – تقرير يومى عن الحركات الى تمت خلال اليوم . 2 – تقرير حركة خلال فترة . 3 – تقرير كارت صنف . 4 – تقرير مجموعة او مخزن خلال فترة . 5 – تقرير عن الاصناف الراكدة التى لم يتم اجراء حركة عليها خلال فترة من الايام . 6- بحث سريع عن الصنف . تسطيع حفظ جميع التقرير بصيغة PDF الجزء الرابع - معرفة حالة المخزن فى حالة وجود صنف واحد تحت حد الطلب يتم تغير لون حالة المخزن الى الاحمر تسطيع طباعة كل الاصناف او الاصناف تحت حد الطلب بفضل الله ثم بفضل جميع اعضاء المنتدى البرنامج من تصميمى لا يوجد باسورد البرنامج مفتوح المصدر فى وجود مشاكل فى البرنامج او اقتراحات لتعديل اوتطوير البرنامج يتم طرحه من خلال المنتدى مخازن.xlsm

جزاكم الله خيرا اخى الكريم يرجى تغيير اسم الظهور الى اللغه العربيه طبقا لقواعد المنتدى ياريت تحاول تتفاعل مع زملائك وتفيد اخوانك يعنى خد وهات ما عندك تقبل تحياتى

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، أعتذر للتأخر في الرد لأني في العادة لا أعود إلى الموضوع الذي أعتقد أني قدمت فيه المساعدة المطلوبة هذا من جهة ومن جهة أخرى تجدني دائما مشغولا في أعمال المؤسسة، المهم أقدم لك بعض الشرح فيما يخص الملف المرفق، بالنسبة للعمود الإضافي (الملون بالأخضر) وضعت فيه معادلة تسمح بوصل Concatenate اسم الشيت الذي يحوي رقم ID من العمود B من بين الشيتات الأربعة (المراد البحث فيها) مع اسم النطاق B:Z لتكوين نطاق البحث للدالة VLOOKUP لمعادلات الأعمدة الأخرى الموالية فمثلا إذا كانت النتيجة الادارية!B:Z فهذا يعني أن نطاق البحث للدالة هو النطاق B:Z من شيت "الادارية"... بالنسبة لأرقام الصف الثاني فهي تمثل أرقام الأعمدة المطلوبة قيمها من نطاق البحث مثلا في النطاق الادارية!B:Z يمثل الرقم 2 العمود الثاني من هذا النطاق أي هو العمود C... وقد وضعت هذه الأرقام في الصف الأول حتى يتم كتابة معادلة واحدة في الخلية D3 بالدالة VLOOKUP مع تحديد رقم العمود بالخلية D$1 (رقم الصف الأول ثابت) ثم سحب سحب الخلية إلى اليسار ثم الأسفل ورقم العمود من نطاق البحث تحدده تلقائيا قيم الصف الأول الثابت في كل المعادلات بالجدول... والله أعلم لا أستطيع الشرح أكثر... أخوك بن علية

استاذ ياسر أنا أسف جداً جداً حداً أرجو أن تسامحني سامحتني حسناً جربت الملف على نةتم 2013 و 2016 كان يعمل تمام التمام عندما جربته على 2010 وقف عند السطر : sh.Range("A8").Select لا أدري لماذا فالذي فعلته هو: sh. activate Range("A8").Select اعتذر بشدة مرة أخرى أ

اتفضل التعديل New Microsoft Office Access 2007 قاعدة بيانات.rar

وضح اكثر عند اختيار ماذا الكود ام الصنف ؟

اتفضل يا قمر البرنامج بعد التعديل منتظر ردكم New Microsoft Office Access 2007 قاعدة بيانات.rar

ارسل مرفقك وانا هعدله باذن الله

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

أتفضل استاذ سعيد لو عجبك منتظر رد واعجابك -برنامج - نسخة.rar

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

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

انسخ هذه المعادلة الى الخلية C5 واسجب نزولاً =IF(OR($B5="",$A5=""),"",$B5+$A5)

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة ونعود اليكم من جديد فى شر ح سلسلة كن محترف vba اول تعلم vba للمبتدئين ونشرح لكم اليوم الجزء الثانى من هذة السلسلة والان مع الدرس https://www.youtube.com/watch?v=O5aO9GCfLzU

السلام عليكم ورحمة الله جرب المرفق... بن علية Book1_10.rar

لمزيد من التوضيح هذا الملف شكراً اخي محمد غلى هذه المعادلة الرائعة في مشاركتي الاولى تم عرض معادلة شاملةأخرى (اذا لاجظت ذلك)

السلام عليكم ورحمة الله وبركاته بصراحة استفدت كتيرا من مشاركات الاخ سليم اخي فراس تفضل الحل بدون استخدام اكواد فقط معادلات باستخدام match & index فلست بمهارة الاخوان سليم و ابو عيد F -manar.rar

شكرا على التوضيح تم التعديل النسبة والتناسب.rar

جزاكم الله خيرا ابا يوسف تقبل تحياتى

ممكن ترسلى تموذج وانا ساقوم بالتعديل باذن الله وسارفقلك التعديل معادلة dlookup

اتفضل التعديل منتظر ردكم واعجابكم By Departments.rar

حسب الملف المرفق في المشاركة الأولى إليكم الكود التالي .. والأفضل أن تدرسوا الكود بعناية لتتمكنوا من التعديل عليه بما يتلائم مع ملفاتكم Sub TestRun() Application.ScreenUpdating = False DeleteRow "بيانات الطلبة", 8 DeleteRow "إنجاز1", 8 DeleteRow "تحريرى ف 1", 8 DeleteRow "رصد الترم الأول", 8 DeleteRow "أعمال السنة", 8 DeleteRow "تحريرى ف 2", 8 DeleteRow "رصد الترم الثانى", 8 DeleteRow "كنترول شيت", 12 Application.ScreenUpdating = True End Sub Sub DeleteRow(sSheet As String, sRow As Long) Dim Ws As Worksheet Dim cnt As Long On Error Resume Next Set Ws = Sheets(sSheet) On Error GoTo 0 If Ws Is Nothing Then MsgBox "Sheet " & sSheet & " Doesn't Exist.", vbExclamation, "Sheet Not Found!" Exit Sub End If Application.ScreenUpdating = False On Error Resume Next Ws.Rows(sRow - 1).SpecialCells(xlCellTypeConstants, 3).ClearContents cnt = Sheets("بيانات المدرسة").Range("B10").Value Ws.Rows(sRow & ":" & (sRow + cnt - 2)).Delete Application.ScreenUpdating = True End Sub

أعتقد أن كود النسخ الذي ينسخ لجميع أوراق العمل يقوم بعملية المسح التي تقصدها .. تعني أن المسح يكون في الصف السابق للصف الهدف ..أي أنك إذا كتبت الصف رقم 8 .. تريد مسح البيانات كلها من الصف رقم 7 لا تنسى أنني أتحدث عن الإجراء الفرعي المخصص الآن DeleteRow "Sheet1",8 الصف الهدف أي بداية الحذف للصفوف وليس المسح يكون من الصف رقم 8 ... فهل المطلوب أن يتم مسح الصف السابق ألا وهو في هذه الحالة الصف رقم 7 .. وهل لمسح لجميع البيانات أم للقيم الثابتة فقط والإبقاء على المعادلات ..؟؟؟؟

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

السلام عليكم اخي الكريم انا الان لا زلت اعمل على برنامج يكون فيه لغتين العربية والتركية المرحلة التي وصلت لها هي : 1- أنشأت جدول وضعت فيه رسائل التحذير باللغتين حتى استخدمها في msgbox 2 - أنشأت جدول وضعت فيه المسميات للأزرار ومربعات النص 3- طبعا وفي جدول الخيارات يكون فيه خيار تحديد اللغة 4 - أنشأت وحدات نمطية لتسهيل الاتصال بجداول المذكورة سابقا واخيرا ما زال العمل قائم على المشروع والتحدي الأكبر سيكون عندما يعمل البرنامج على كل الاجهزة مع اختلاف الاعداد الاقليمية بين الأجهزة

أرجو المساعدة في كتابة كود البحث في اليوزر فورم في Textbox يحدد الكلمة في Listbox1 ( مثل ملف الأستاذ عبدالله باقشير ) ولكن وعند النقر على الكلمة في Listbox1 التي تحتوي العمود B تعطيني C,D,E المقابل لها بنفس طريقة دالة Vlookup ولكن في نفس الفورم .. شرح وافي في المرفق بحث.rar

اخي طاووس مررت هنا بالصدفة وجدت ان جميع الحلول السابقة غير دقيقة جرب ان تدخل جميع التواريخ ماعدا الثالث او الثاني او الرابع جرب هذا لتعبير Expr1: IIf(IsNull([تاريخ 1]),0,1)+IIf(IsNull([تاريخ 2]),0,1)+IIf(IsNull([تاريخ 3]),0,1)+IIf(IsNull([تاريخ 4]),0,1)+IIf(IsNull([تاريخ 5]),0,1) فهو لا ينظر الى التسلسل في الادخال ! بالتوفيق

اتفضل المطلوب: تم عمل التعديلات الاتية: 1- بعض التعديل على كود الترحيل للتأكد من (عدم تكرار رقم الفاتورة - قيام المستخدم بملء البيانات بالكامل - تنظيف الفورم بعد الترحيل) وترحيل ارقام الفواتير المدخلة الى شيت مستقل 2- إضافة شيت مخصوص لعملية الاستدعاء والتعديل والحذف مع تعديل كود الاستدعاء ليكون حسب رقم الفاتورة فقط Accounting.rar

بمعنى اصح من اول فرق 4 وفرق 4.5 و5 وانت طالع يخصم تلتع العرض فى طول القطاع

السلام عليكم الاخوة goudzy و الحبيب خالد القدس بارك الله فيكم وكل عام وانتم بخير