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

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

بسم الله الرحمن الرحيم سابقا كنت ابحث عن طريقة اعرض بها منتجا علي الاكسيل بمعلومات كاملة عنه وهي بيانات المنتج وصورته فكان من السهل الوصول للبيانات بمعادلات بسيطة وسهلة اما صورة المنتج فكانت مشكلتي حتى وجدت هذا الكود الرائع فاحببت ان افيدكم لان المعظم سيحتاجه لنفس غرضي او لوضعه مثلا كصورة مستخدم لكل مستخدم لبرنامج الاكسيل وغيرها اليكم المثال يوجد فولدر داتا وهو الذي يحتوي علي كل الصور التي ستعرض في الملف كل ما عليك هو ان تدخل علي شيت اتنين وتملاء بياناتك الكود والصنف والحجم والسعروالملاحظات وتدخل علي فولدر داتا وتضع فيه صور منتجاتك وتعمل لها اعادة تسمية ولكل كود منتج تكتبه علي الصورة الخاصة به وتدخل علي الشيت الاول وتكتب الكود الذي ترغب في رؤية بياناته اترككم لتجربوه بنفسكم ياسر العربي 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

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

أخي الكريم جرب المرفق التالي فيه المثال الذي ذكرته عله يفي بالغرض Test.rar

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

السلام عليكم اخي الكريم تم عمل كود الترحيل حسب فهمي لطلبك شاهد المرفق واخبرني عن رايك facture.rar

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

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

الطريقه الثالثه :- استخدام النطاقات المعرفه بدالة Offset فى عمل نطاق ديناميكى متغير اليكم الرابط التالى للقدير واستاذى الفاضل / محمد نصرى يشرح فيه الداله offset بطريقه رائعه http://www.officena.net/ib/topic/56588-سلسلة-تعلم-اكسل-معي-بالصوت-والصورة/?do=findComment&comment=358921 تحديدا الفيديو الثانى هو اللى مرتبط بموضوعنا وبعد ما تشاهد الفيديو ارجع لشرحى المتواضع وهتعرف ليه قلتلك افهم الداله Offset وهذا شرحى المتواضع عن الداله offset الداله Offset هى من اهم الدوال فى الاكسيل انا شخصيا لما بتعامل معها بحس انى مهندس مساحه دلوقتى هنعرف ما هى داله offset وازاى نستفيد بيها فى عمل نطاق ديناميكى معرف يتم استخدامه فى تعبئة الكمبوبوكس بالبيانات هقولك ما هى الداله offset بلغة المصطبه واحنا قاعدين كدا نشرب كوباية شاى فى الخمسينه ازاى بقى نطبق الكلام ده فى الاكسيل شوف الصوره دى الاول وبعدين نكمل زى ما شايفين بالصوره وقفت بالخلية G8 وعملت الداله offset فهى مكونه من خمس اقسام 1- reference : - وهو مرجع العمل يعنى تحديد مركز انطلاق العمل وهو كما بالصوره A2 لانها اول خلية بالجدول المظلل باللون الاخضر فأنا حدد A2 لتكون مركز انطلاق العمل 2- rows : - وهى تعنى الصفوف ومن خلالها يتم تحديد صف بداية العمل يعنى اتحرك كم صف من نقطة المركز اللى هى A2 ( هنا بالمعادله كتبت 0 يعنى لا تتحرك اى صف من الخلية A2 3- Cols: - وهى اختصار كلمة Colmuns تعنى العمود ومن خلالها يتم تحديد عمود بدابة العمل يعنى اتحرك كم عمود من نقطة المركز اللى هى A2 ( هنا بالمعادله كتبت 0 يعنى لا تتحرك اى عمود من الخلية A2 ) 2 و 3 يتم من خلالهم تحديد نقطة بداية العمل 4- height: - وهى تعنى ارتفاع ومن خلالها يتم تحديد كم صف نريده للاستخدام ( هنا بالمعادله كتبت 6 يعنى اجلب لى 6 صفوف بدأ من الخلية A2 ) 5- width: - وهى تعنى عرض ومن خلالها يتم تحديد كم عمود نريده للاستخدام ( هنا بالمعادله كتبت 1يعنى اجلب لى عمود واحد بدأ من الخلية A2 ) 4 و 5 يتم من خلالهم تحديد كم صف وكم عمود نريده للاستخدام الكلام ده هيتضح لك اكتر لانه اذا عرف السبب بطل العجب انسخ المعادله اللى كتبناه بالخلية G8 واتبع التعليمات اللى بالصوره وبكدا عرفنا نطاق شوف الخطوه اللى بعد كدا شاهد الصوره وبكدا عند عرض الفورم شاهد النتيجة واحد هيقولى وليه يا عم اللفه الطويله دى انا مش شايف فرق بينها وبين الطريقه التانية اللى شرحتها قبل كدا هى نفس الفكره فى تعريف النطاق ومن ثم كتابته فى Rowsource يعنى دلوقتى لو حبينا نضيف اسم جديد فى الخلية A8 مش هيظهر فى الكمبوبوكس وانت قلتلى انه نطاق ديناميكى يكبر ويصغر حسب الادخالات فى العمود A هقوله برافو عليك انك صاحى معايا تعالى بقى اقولك ايه الفرق بينها وبين الطريقه التانية هو انى بدل ما انا محدد عدد 6 صفوف فى المعادله offset هستعين بداله Count A وهى تعمل على عد الخلايا اللى بها كتابه فى نطاق معين =COUNTA(A2:A10000) لو عملنا المعادله دى فى اى خليه هيقوم بعد الخلايا اللى بها بيانات فى النطاق من A2 الى الخلية A10000 مثلا طبعا النتيجة طبقا للصوره السابقه هتكون 6 ولكن لو قمت باضافه اسم جديد هتكون النتيجة 7 أذن اروح للداله Offset واتحكم فى عدد الصفوف من خلال Count A هتكون المعادله كدا =OFFSET($A$2;0;0;COUNTA($A$2:$A$10000);1) لاحظ الفرق بينها وبين المعادله السابقه استبدلنا رقم 6 بالمعادله هننسخ المعادله دى ونروح نعدل النطاق اللى عرفناه قبل كدا وبكدا ضيف اى اسماء عملاء جديده او احذف اى اسماء موجوده وشاهد الكمبوبوكس سوف يتم عرض الاسماء الموجوده فقط دون زياده او نقصان شاهد الصوره واحد هيقولى انت كدا علمتنى ازاى اتحكم فى عدد الصفوف لتكون تلقائيه حسب عددها بالشيت طيب ازاى اتحكم فى عدد الاعمده انا شايف الكمبوبوكس بيظهر عمود 1 انا عايزه يظهر عمودين ازاى التحكم فى المعادله دى المعادله اللى موجوده دلوقتى =OFFSET($A$2;0;0;COUNTA($A$2:$A$10000);1) وعلشان تتحكم فى عدد الاعمده غيرها الى =OFFSET($A$2;0;0;COUNTA($A$2:$A$10000);2) اللى مركز معايا هيلاحظ الفرق بين المعادلتين فى اخر جزء من المعادله وهو عدد الاعمده غيرت بدل من عرض عمود 1 الى عمودين 2 طبعا علشان تغيرها لازم تروح الى قائمة Name Manager وتعمل تحرير للنطاق وتغير المعادله بدل من عمود واحد الى عمودين وطالما عايز تعرض عمودين متنساش زى ما قلنا قبل كدا تكتب 2 فى الخاصيه Column Count شاهد الصوره عند تغيير المعادله علشان تثبت المعلومه فى راسك لازم تجرب الكلام ده عملى بنفسك اتمنى يارب اكون وفقت بالشرح واتمنى لكم التوفيق والى لقاء اخر فى طريقه جديده من طرق تعبئة الكمبوبوكس بالبيانات

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

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

تفضل اخي لعله المطلوب salam.rar

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

السلام عليكم لدي هذا المف في جهازي من هذا المنتدي القيم لعله يكون طلبك الغاء تفعيل علامة x.rar

التهنئة بترقية الاخ حسام عيسى الى عضو مميز

اخي ياسر اليك المزيد حول هذا الموضوع every n cells in sheet salim ++.zip

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

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

السلام عليكم الأخ أبو جومانة الخطأ الموجود هو في تسمية النموذج من الإستعلام فيكون هكذا (>=[Forms]![كشف الحساب]![text0] And <=[Forms]![كشف الحساب]![text2]) أي كشف الحساب وليس مساعد كشف الحساب ثم إني أضفت بعض التعديلات حول التحديث تستطيع أن تزيل زر التحديث لأنه بمجرد ادخال البيانات و الضغط على أنتري يتم التحديث . وأرجو أني قد وفقت للإجابة الصحيحة والله ولي التوفيق . اليك المرفق: 333معدل.rar

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

بسم الله ماشاء الله ... استاذى الفاضل اسامة البراوى ... والله تعجز الكلمات عن وصف تصميمك للملف ... فعلا عمل متميز ... بارك الله فيك

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

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

مش عارف الكود دا حلو ولا لا شوفوا كدا وصغير ياعم الحاج مش كبير Book1.rar

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

السلام عليكم اطلع على المرفق تجربة4.rar

تفضل حل المشكلة الثانية في شيت فوائم الفصول غير الخلية F6 ولاحظ النتيجة طلب من اهل الخبرة ف الاكسل3.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 شاهد الصورة ارجوا ان يكون شرح تطبيق نقل الكود واضح تقبلوا تحياتى

أخي الكريم جرب الكود التالي يقوم بقسمة الخلية في العمود H على الخلية في العمود E .. والنتيجة في الخلية في العمود I كما طلبت في المشاركة الأولى Sub MyTest() Dim Cell As Range For Each Cell In Range("I1:I" & Cells(Rows.Count, "E").End(xlUp).Row) Cell.Value = Cell.Offset(, -1) / Cell.Offset(, -4) Next End Sub تعلم.rar

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

هناك موضوع عن عمل مجموع صفوف في عامود واحد gs لقد نسيت من طلبه لكن اعرف ان اسم الملف وجدت الحل يرجى من صاحب المشاركة اعلامي كي ارسله له عبر المنتدى عندي سؤال لادارة المنتدى :كيف العمل للبحث عن موضوع معين في المنتدى/ هناك زر للبحث يأخذني الى جوجل و انا اريد البحث داحل المنتدى