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

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

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

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

تفضل اخى الحبيب المرفق فيه ما طلبت ترحيل حسب الحالة مع بقاء البيانات في الشيت2.rar ترحيل حسب الحالة مع بقاء البيانات في الشيت2.rar

انسخ هذا الكود وضعه في حدث Workbook Private Sub Workbook_Open() UserForm2.Show vbModeless End Sub

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

اخى الحبيب زيزو اولا اسف انى اتاخرت عليك بالرد لكن والله ما دخلت الموقع من يوم الخميس تفضل يا غالى انت بس تامر شاهد المرفق الدرس رقم 1.zip

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

السلام عليكم ورحمة الله وبركاته الدرس الحادي عشر 11-Worksheet&Workbook Events احداث الورك بوك والورك شيت وسوف نتناول فى هذه الدرس الاتى Worksheet_SelectionChange Worksheet_Activate Worksheet_Deactivate Worksheet_Change Worksheet_BeforeDoubleClick Worksheet_BeforeRightClick Workbook_Open Workbook_BeforeClose Workbook_BeforeSave Workbook_AfterSave Workbook_SheetActivate Workbook_SheetBeforeDoubleClick Workbook_SheetBeforeRightClick Workbook_NewSheet Workbook_SheetChange Workbook_SheetSelectionChange ............................................................................................. سوف نتناول هنا بعض الاكواد التى توضع فى حدث الورقه مع محاولة توضيح كيفية استخدامها كيفية اضافة الاكواد الخاصه بالحدث Worksheet يتم ذلك عن طريق الدخول الى محرر الاكواد ثم اختيار الشيت الذى نريد تطبيق الكود فيه والضغط مرتين على اسم الشيت فى محرر الاكواد لفتح نافذه الاكواد ثم كتابة الكود داخل النافذه ده طبعا على سبيل المثال بالنسبه لاسم الشيت ولكن اختيار الشيت هيكون على اساس اسماء الشيتات الى عندك انت طبعا Worksheet_SelectionChange هنا يتم تنفيذ الامر كلما يحدث تغير داخل النطاق المحدد شكل الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub Worksheet_Activate هنا يتم تنفيذ الامر كلما يتم الدخول الى الورقه شكل الكود Private Sub Worksheet_Change(ByVal Target As Range) End Sub Worksheet_Deactivate هنا يتم تنفيذ الامر كلما يتم الدخول الى اى ورقه داخل الشيت اى الخروج من الورقه التى بها الكود شكل الكود Private Sub Worksheet_Deactivate() End Sub Worksheet_Change هنا يتم تنفيذ الامر كلما يتم حدوث تغير فى الورقة شكل الكود Private Sub Worksheet_Change(ByVal Target As Range) End Sub Worksheet_BeforeDoubleClick هنا يتم تنفيذ الامر كلما يتم الضغط على زر الماوس الايسر مرتين شكل الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) End Sub Worksheet_BeforeRightClick هنا يتم تنفيذ الامر كلما يتم الضغط على زر الماوس الايمن شكل الكود Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) End Sub انتهينا من معظم احداث الورك شيت ................................................................................................................................................................................................................................................................................... نتناول الان معظم احداث الورك بوك الفرق هنا ان هذا الكود يوضه فى حدث الورك بوك وطالما وضع فى حدث الورك بوك فيكون قابل للتنفيذ على جميع الشيتات الموجوده فى الورك بوك وليس على شيت بعينه لكتابة الكود داخل حدث الورك بوك ندخل الى محرر الاكواد ثم نضغط على ThisWorkbook مرتين ثم ندخل الى نافذة محرر الاكواد ونكتب فيها الكود Workbook_Open هنا يتم تنفيذ الامر عند فتح الملف شكل الكود Private Sub Workbook_Open() End Sub Workbook_BeforeClose هنا يتم تنفيذ الامر قبل غلق الملف شكل الكود Private Sub Workbook_BeforeClose(Cancel As Boolean) End Sub Workbook_BeforeSave هنا يتم تنفيذ الامر قبل حفظ الملف شكل الكود Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) End Sub Workbook_SheetActivate هنا يتم تنفيذ الامر عند التنقل بين اوراق الملف شكل الكود Private Sub Workbook_SheetActivate(ByVal Sh As Object) End Sub Workbook_AfterSave هنا يتم تنفيذ الامر بعد حفظ الملف شكل الكود Private Sub Workbook_AfterSave(ByVal Success As Boolean) End Sub Workbook_SheetBeforeDoubleClick هنا يتم تنفيذ الامر كلما يتم الضغط على زر الماوس الايسر مرتين فى كل اوراق الملف شكل الكود Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) End Sub Workbook_SheetBeforeRightClick هنا يتم تنفيذ الامر كلما يتم الضغط على زر الماوس الايمن فى كل اوراق الملف شكل الكود Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) End Sub Workbook_NewSheet هنا يتم تنفيذ الامر كلما يتم اضافة ورقه جديده شكل الكود Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) End Sub Workbook_SheetChange هنا يتم تنفيذ الامر عند حدوث تغير فى اى ورقه من اوراق العمل شكل الكود Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) End Sub Workbook_SheetSelectionChange هنا يتم تنفيذ الامر عند حدوث تغير فى نطاق المحدد فى اى ورقه من اوراق العل شكل الكود Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) End Sub انتهينا من معظم احداث الورك شيت ............................................... طبعا فى كتير بيسأل دلوقتى احنا استفدنا ايه من الاكواد دى ولو عايزين نستخدمها هنستخدما ازاى امثـلـــــــــــــــــــــــه عـمـلـيـــــــــــــــــــــه Worksheet_SelectionChange نفترض اننا عايزين حينما يتم التنقل فى الخلايا من a3:a10 يتم ادخال رقم الصف فى الخليه المقابله فى العمود2 يعنى لما ننتقل الى الخليه a3 يتم كتابة رقم الصف فى الخليه b3 ولما ننتقل فى a4 يتم ادخال رقم الصف فى b4 وهكذا كيف نستطيع ان نقوم بعمل ذلك جرب استخدام الكود الاتى Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 10 Then Exit Sub ' فى حالة ان السطر اكبر من 10يتم الخروج من الكود وعدم تنفيذ شئ If Target.Column = 1 Then 'فى حالة العمود الاول If Target.Row >= 3 Then 'فى حالة ان السطر اكبر من او يساوى السطر3 Target.Offset(0, 1).Value = Target.Offset(0, 0).Row ' يتم اعطاء الخليه التى تلى خلية ادخال البيانات بعمود رقم السطر الحالى End If End If End Sub Worksheet_Change نفترض اننا عايزين حينما يتم الكتابه فى الخلايا من a3:a10 يتم ادخال رقم الصف فى الخليه المقابله فى العمود2 يعنى لما نكتب فى الخليه a3 يتم كتابة رقم الصف فى الخليه b3 ولما نكتب فى a4 يتم ادخال رقم الصف فى b4 وهكذا كيف نستطيع ان نقوم بعمل ذلك جرب استخدام الكود الاتى Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Row > 10 Then Exit Sub ' فى حالة ان السطر اكبر من 10يتم الخروج من الكود وعدم تنفيذ شئ If Target.Column = 1 Then 'فى حالة العمود الاول If Target.Row >= 3 Then 'فى حالة ان السطر اكبر من او يساوى السطر3 Target.Offset(0, 1).Value = Target.Offset(0, 0).Row ' يتم اعطاء الخليه التى تلى خلية ادخال البيانات بعمود رقم السطر الحالى End If End If End Sub Worksheet_Activate نفترض اننا عايزين اول ما ندخل على الشيت رقم 3 يتم ظهور رسالة ترحيب كيف يتم عمل ذلك جرب وضع الكود الاتى فى حدث الشيت رقم 3 Private Sub Worksheet_Activate() MsgBox "ابراهيم محمد" End Sub Worksheet_Deactivate نفترض اننا عايزين او ما نخرج من الشيت رقم3 ونروح لاى شيت اخر يتم ظهور رسالة ترحيب كيف يتم عمل ذلك جرب وضع الكود الاتى فى حدث الشيت رقم 3 Private Sub Worksheet_Deactivate() MsgBox "ابراهيم محمد" End Sub Worksheet_BeforeDoubleClick نفترض اننا عايزين لما نضغط فى دبل كليك فى العمود الاول فقط تظهر لنا رسالة ترحيب كيف يتم عمل ذلك جرب وضع الكود الاتى فى حدث الشيت رقم 3 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column > 1 Then Exit Sub If Target.Column = 1 Then MsgBox "ابراهيم محمد" End If End Sub هذا على سبيل المثال يمكنك اضافة الاكود التى تريدونها على حسب احتياجكم اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى learnvba.rar

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

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

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

تفضل اخي الغالي كود ترحيل.rar

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

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

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

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

السلام عليكم إخواني الكرام إليكم الملف المرفق فيه نبذة عن المصفوفات .. أرجو من الله أن ينفع به المسلمين Arrays.rar

وعليكم السلام ورحمة الله وبركاته فقط استبدل n1 بـ نص0 و n2 بـ نص2 لأن n1 و n2 تسمية وليست مربع نص 111.rar

الاخ ياسر ان شاء الله انتظرنى قريبا لان الشغل ده كان على الهارد اللى اتفرمت

السلام عليكم في حدث UserForm_Activate حطيت اشاره Call RegisterHotKey(mlngHwnd, HOTKEY_ID1, MOD_CONTROL, vbkeyA) ' Ctrl+A غير vbkeyA الى vbKeyB وباامكانك اضافة اوامر اخرى اضن تعديلك للكود السابق مختصر وافضل

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

بالنسبة للتسمية انظر الصورة المرفقة

ارجو منك التوضيح كي اتمكن من مساعدتك هل تود الترحيل لنفس الخلايا فقط ام تحتاج الى ترحيل الى الخلايا وعند ادخال جديد تريد الترحيل ان يكون تحت القديم مثلا ؟؟؟؟؟؟؟؟

اخى جرب المرفق الاتى نموزج-فاتورة-بدون-فورم-نهائى.rar

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

السلام عليكم اخي الفاضل انس دروبي ارجوا ان تكون فهمت عمل الكود الفكره بكل بساطه تفعيل واجهة الاكسل بدلا عن واجهة الفورم عند فتح الفورم كي يعمل معنا Application.onkey واضافه بسيطه تأخير ثانيه لفتح الفورم الثاني كي يعمل امر اظهار Frem2 على العموم جرب المرفق امل ان يعمل معك بكلتا الحالات تفعيل الأختصارات في أوامر الفورم222.rar

الاخ الحبيب حسام الف مبروك الترقية و الى المزيد من التقدم باذن الله

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

السّلام عليكم و رحمة الله و بركاته أهلاً و سهلاً و ألف مرحبا بالأخ العزيز " خزّاني " لم تظهر منذ زمن طويل .. أتمنى أنْ كان المانع خير ..عودًا حميدًا إن شاء الله فائق إحتراماتي

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

جزاك الله خير الجزاء وجعله في ميزان حسناتك

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

تفضل اخي لماذا موضوع منفصل كنت ترفق طلبك بنفس الموضوع السابق دليل.rar

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

رائع جداً ان تدلو بدلوك في هذا الموضوع الشيق - جزاك الله كل خير واثابك الجنة

أخي الكريم ناصر يفضل دائماً وضع الملف المرفق المعبر عن الملف الأصلي من البداية حتى لا يطول الموضوع بدون داعي كما يفضل أن يكون الطلب واضح تماماً مع توضيح تفاصيل الملف بالكامل .. لأن الأكواد حساسة جداً لكل تفصيلة عموماً إليك الكود التالي وإن شاء الله يفي بالغرض Sub Test() Dim Col As New Collection, Arr, I As Long, J As Long On Error Resume Next Arr = Sheet1.Range("A7:J" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row).Value For I = 2 To UBound(Arr, 1) For J = 2 To UBound(Arr, 2) Col.Add Key:=J & Chr(2) & Arr(I, 1), Item:=Arr(I, J) Next J Next I With Sheet2.Range("A7:J" & Sheet2.Cells(Rows.Count, "A").End(xlUp).Row) Arr = .Value For I = 2 To UBound(Arr, 1) For J = 2 To UBound(Arr, 2) Arr(I, J) = Col(J & Chr(2) & Arr(I, 1)) Next J Next I .Value = Arr End With End Sub أرجو أن يكون المطلوب إن شاء الله تقبل تحياتي

بارك الله فيك أخي الحبيب ياسر العربي على الكود الجميل لكن كما ذكر الأخ السائل .. أنه في هذه الحالة سيكون هناك ارتباط بين المصنفين كما أن الكود طويل لأنه يحتوي على إلغاء خاصية اهتزاز الشاشة وإعادة تفعيلها ، وإلغاء خاصية التنبيه بالرسائل وإعادة تفعيلها .. وذلك لتجنب حدوث خطأ في حالة تنفيذ الكود مرة أخرى كما أنه يحتوي أسطر لنسخ أوراق العمل بالتنسيقات ثم نسخها مرة أخرى بالقيم فقط ..مما يحافظ على التنسيق الأصلي للملف وفي نفس الوقت يتم لصق القيم فقط لإلغاء الارتباط أخ السائل يمكنك تغيير اسم الظهور من خلال الإطلاع على رابط التوجيهات في الموضوعات المثبتة في المنتدى من هنا لمعرفة التفاصيل بالنسبة لسؤالك غير السطر الثالث ليكون بهذا الشكل ArrSheetToCopy = Array(Sheet2.Name, Sheet3.Name)

إذا كنت تقصد أخي الحبيب علامة الإغلاق في الفورم فهذا أمر يسير يمكن استخدام الكود التالي في حدث الفورم Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True MsgBox "تم إلغاء هذا الزر للإغلاق .. لطفاً استخدم زر الأمر", vbCritical End If End Sub إليك الملف المرفق Test YasserKhalil.rar

http://www.officena.net/ib/topic/36752-كود-اضافة-خدمة-مضافة-الى-الخدمة-الفعلية-للموظفين-بالاكسس/ http://www.officena.net/ib/topic/43253-حساب-العمر-الى-تاريخ-معين-مستقبلي/ http://www.officena.net/ib/topic/60034-حساب-العمر-باليوم-والشهر-والسنة-في-تاريخ-محدد/

الحمد لله تم بعون الله وحمده شكرا

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

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

اتفضلي اختي العزيزة المرفق لعلة يكون فية طلبك تم عمل معادلة لحساب الاجمالي للعام المحدد MyFees بالاضافة للشهر MonthFees اما عن كيفية تشغيلها https://youtu.be/Y5eyL8-5bEY أذا كان مطابق لطلبك برجاء التعليق تم تحياتي Annual fees.rar

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

لتطبيق فكرة الملف على الملف الخاص بك اتبعى الخطوات التالية الخطوه الاولى :- فتح محرر الاكواد من خلال Alt+f11 هتظهر معاك الصورة التالية فى الصورة دائرة حمراء صغيرة بداخلها Insert اضغطى عليها هتفتح معك قائمة اختارى منها Module ستجدى صفحه شاشة بيضاء جديده شاهدى الصورة أنسخ الكود التالى واعملى له لصق فى الشاشة البيضه Option Explicit Sub ToggleCutCopyAndPaste(Allow As Boolean) 'Activate/deactivate cut, copy, paste and pastespecial menu items Call EnableMenuItem(21, Allow) ' cut Call EnableMenuItem(19, Allow) ' copy Call EnableMenuItem(22, Allow) ' paste Call EnableMenuItem(755, Allow) ' pastespecial 'Activate/deactivate drag and drop ability Application.CellDragAndDrop = Allow 'Activate/deactivate cut, copy, paste and pastespecial shortcut keys With Application Select Case Allow Case Is = False .OnKey "^c", "CutCopyPasteDisabled" .OnKey "^v", "CutCopyPasteDisabled" .OnKey "^x", "CutCopyPasteDisabled" .OnKey "+{DEL}", "CutCopyPasteDisabled" .OnKey "^{INSERT}", "CutCopyPasteDisabled" Case Is = True .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "^{INSERT}" End Select End With End Sub Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean) 'Activate/Deactivate specific menu item Dim cBar As CommandBar Dim cBarCtrl As CommandBarControl For Each cBar In Application.CommandBars If cBar.Name <> "Clipboard" Then Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True) If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled End If Next End Sub Sub CutCopyPasteDisabled() 'Inform user that the functions have been disabled MsgBox "النسخ واللصق والحفظ باسم غير مسموح به فى هذا الملف" End Sub Sub n() Call ToggleCutCopyAndPaste(True) End Sub الخطوه الثانية فى هذه الصورة يوجد دائره حمراء بداخلها ThisWorkbook اضغطى عليها هتظهر معك الصوره التالية فى الشاشة البيضه المسماه ThisWorkbook انسخى الكود التالى وقمى بصلقه فى هذا الشاشة ( حدث المصنف ) Option Explicit Private Sub Workbook_Activate() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Deactivate() Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Open() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then Me.Save Cancel = True End If End Sub اذا كنت تريد عمل زر لتفعيل خاصيه النسخ واللصق مره اخرة نفذ الخطوة الثالته والرابعه لو مش عايز انتقل للخطوة الخامسه مباشرة الخطوه الثالثه :- الخطوة الرابعه :- يتم تحديد الزر بالوقوف عليه ثم الضغط كليك يمين شاهدى الصورة الخطوه الخامسه :- هى حفظ الملف بضيغه Xlsm شاهد الصورة ارجوا ان يكون شرح تطبيق نقل الكود واضح تقبلوا تحياتى

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

بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم لقد قدمت سابقا نموذج فاتوره على الاكسيل بدون فورم وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج وتلبية لرغباتهم نتناول طريقه عمل النموذج ونظرا لضيق الوقت ان شاء الله يتم تناول درس يوميا على الاقل حتى الانتهاء بإذن الله .......................................................................... الاخوه الافاضل الحمد لله فقد انتهينا من شرح الدرس الاول وهو عباره عن ثلاثة دروس تمهيديه وهى اولا--تصميم الفاتوره ثانيا--انشاء شيت به الاكواد المساعده ثالثا--انشاء شيت لتجميع بيانات الفواتير المسجله --------------------------------------------------- الان نبدأ فى شرح الدرس الثانى الدرس الثانى ( أ ) الكود الاول--كود يقوم بعمل تسلسل لرقم الفاتوره بالتاكيد اننا نحتاج لمثل هذا الكود توفيرا للوقت الضائع فى ادخال الرقم بأيدينا وظيفة الكود انه بعد الانتهاء من الفاتوره وادخال بياناتها يقوم الكود تلقائيا بوضع رقم جديد للفاتوره وهذا الكود سوف يكون مرتبط بالبيانات المسجله فى شيت INVOICE DATA وبالاخص فى العمود C والخاص برقم الفاتوره حيث ان عمل الكود يكون كالاتى انه فى حالى عدم وجود بيانات فى العمود c يتم اعطاء الخليه الرقم 1 اما فى حالة وجود بيانات يتم اخذ اكبر رقم موجود ثم يتم اضافة 1 اليه الان نتعرف على كيفيه كتابة الكود وطريقه عمل الكود نقوم بانشاء موديل جديد وكتابة الكود داخلها كالاتى وهنا نجد ان الشكل النهائى للكود يكون كالأتى Sub INV_NO() On Error Resume Next Dim WS As Worksheet Dim WS1 As Worksheet Set WS = Worksheets("INVOICE") Set WS1 = Worksheets("INVOICE DATA") If WS.Range("I6").Value = "" Then WS.Range("I6").Value = 1 Exit Sub End If If WS.Range("f6").Value <> "" Then With WS1 WS.Range("I6").Value = Application.Max(WS1.[C6:C10800]) + 1 End With End If End Sub واسمحو لى ايها الاخوه الافاضل بمحاوله متواضعه منى لشرح اسطر الكود Sub INV_NO() كلمة sub ,وهى اختصار لكلمة Subroutine وتعنى تنفيذ مهمه محدده هذه المهمه تم تسميتها ب INV_NO Dim WS As Worksheet Dim WS1 As Worksheet هنا يتم الاعلان عن متغير اسميناه ب ws ,ومتغير اخر اسميناه ب ws1 وتم الاشاره الى كلا من المتغيرين على انهما سيكونان عباره عن شيت اكسيل Set WS = Worksheets("INVOICE") Set WS1 = Worksheets("INVOICE DATA") وهنا يتم تعريف المتغيرين وتحديد اسمهما فنجد ان المتغير الاول ws تم نعريفه على انه الشيت المسمى ب invoice ونجد ان المتغير الثانى ws1 تم نعريفه على انه الشيت المسمى ب invoice data If WS.Range("f6").Value = "" Then هنا ينم استخدام القاعده if داخل الكود لتنفيذ شئ معين وفى البداية نود ان نشير الى شئ معين الا وهو كيفيه استخدام المتغير ws فمثلا فى هذا السطر نشير الى الخليهf6فى شيت invoice وبذلك يكون شكل الكود كألأتى sheets("invoice").range("f6") هكذا يتم الاشاره الى الخليه f6 فى شيت invoice اما فى حالة استخدام الاختصار اى استخدام المتغير ws تكون الاشاره كالأتى ws.range("f6") وبالنظر الى سطر الكود سنجد اننا نريد ان نقول انه فى حالة عدم وجود بيانات فى الخليه f6 فى الشيت ws اى شيت invoice يتم تنفيذ الاتى WS.Range("I6").Value = 1 وفى هذا السطر نجد انه سوف يتم تنفيذ أو سوف يتم اعطاء الخليه f6 فى شيت ws اى فى شيت invoice الرقم 1 Exit Sub End If كلمة Exit Sub وظيفها انه تقوم بانهاء عمل الكود فلا يتم تنفيذ شئ بعدها اما كلمة End If فهى تقوم بانهاء عمل الشرط if

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

اليكم هذا الكود الذي يفعَل كل المعادلات دفعة واحدة مهما كان عددها في الملف مرفق الملف مع الكود الربح.rar