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

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

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

كود جميل اخي سليم سلمت يداك وهذه بطريقة اخري مع تغيير اسم الزر تحياتي كشف عام مرتبات.rar

اكتب هذا الكود و عين له زر على الصفحة انه يقوم بأخفاء الصفوف المطلوبة و بكبسة ثانية يعيدها الى الظهور Sub hid_text() Range("ar7:ar98").SpecialCells(2).EntireRow.Hidden = Not (Range("ar7:ar98").SpecialCells(2).EntireRow.Hidden) End Sub

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

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

السلام عليكم ورحمة الله وبركاته انظر المرفق تم التعديل تسجيل غياب.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

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

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

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

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

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

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

تفضل اخي هل يفي هذا بالغرض اضغط انتر بعد فتح الفورم واحد سيظهر الفورم اتنين اضغط الزر يظهر الفريم تفعيل الأختصارات في أوامر الفورم.rar

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

تفضل حل المشكلة الثانية في شيت فوائم الفصول غير الخلية F6 ولاحظ النتيجة طلب من اهل الخبرة ف الاكسل3.rar

مجهود بسيط مني إليكم وإلى كل من يعاني من استدعاء الصور في الإكسيل.. تم استخدام طريقة مختلفة وهي تلوين المستطيل بالصورة مما وفر علينا كثير من الكودات.. حيث يمكنك البحث عن الصور والتعديل عليها وكذلك إضافتها إلى المجلد بشكل تلقائي .. إليكم المرفق. (الرجاء نقل المجلد pics إلى مجلد المستندات لديكم) lockup and get pics.rar

أخي الكريم جرب الكود التالي يقوم بقسمة الخلية في العمود 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 بت فلا تعمل للأسف أرجو أن يكون البرنامج مفيد للجميع حمل البرنامج من هنا

الاخوة الكرام اقدم لكم بقية لدرس الترحيل كيفية وضع شروط تجبر المستخدم على ادخال بيانات مما لا شك فيه ان سند القبض اللى بصورة التالية لابد من ادخال جميع البيانات اللى بالسند وهى المظلله باللون الاصفر رقم الايصال بالخلية [G7] تاريخ السند بالخلية [D8] الجهه التى تم القبض منها بالخلية [D10] المبلغ المقبوض بالخلية [D11] ان شاء الله اليوم بنتعرف كيف يمكن اجبار المستخدم على ادخال البيانات قبل ترحيلها فلا يعقل مثلا ان يقوم المستخدم بعدم كتابه تاريخ للسند ويترك الخلية فارغه بدون تاريخ ثم يقوم بالترحيل لازم اجبره على ادخال التاريخ اولا: اجبار المستخدم على ادخال رقم الايصال بالخلية [G7] هنستخدم السطر التالى بالكود If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub هذا السطر يتم اضافتة بعد هذا السطرمن الكود Application.ScreenUpdating = False ليصبح هكذا Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [D8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [D10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub تعالى بقى نشرح معنى هذا السطر If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub هذا السطر من الكود معناه ببساطه كدا ان لو الخلية [g7] فارغه اكتب رساله تظهر للمستخدم تنبهه بان الخلية فارغه ويجب ادخالها و اخرج من الكود ومتكملش الشىئ الذى تريد تنفيذه then الشرط المطلوب التحقق من وجوده if استخدمنا هنا IF وذالك لعمل شرط قبل عملية الترحيل وهى كما نعرف جميعا ان iF معناها لو then معناها تنفيذ الشرط الذى نريده كما اتفقنا من قبل هو عدم ترك الخلية [g7] فارغه اللى بيسجل بها رقم الايصال الكود هيقوم باختبار الشرط التالى "" = [if [g7 "" العلامه هذا بالكود تعنى فارغ ( فلو [g7] تساوى فارغ نفذ كذا كذا ) نفذ دى فى الكود هى Then وسيكون لونها بالكود ازرق هينفذ ايه بقى انا عايزة يظهر رساله وهى " الرجاء ادخال رقم الايصال" ونلاحظ انها مكتوبه بين علمتى تنصيص ( تكتب من خلال شيفت + حرف ط بالكيبور) وهينفذ ايه تانى غير الرساله هينفذ خروج من الكود ميكملش يعنى ودى بتكون exit sub : وبعدها كتابتها ستجد ان لونها اصبح ازرق لمتابعه شرح عن كتابة الرسائل فى لغة البرمجه يرجى مراجعه الرابط التالى ستجد شرح باستفاضه http://www.officena.net/ib/index.php?showtopic=57199&hl= ) ثانيا : عايزين نجبر المستخدم على ادخال التاريخ If [d8] = "" Then MsgBox "الرجاء ادخال تاريخ لسند القبض": Exit Sub هو نفس السطر السابق بس بنختبر الخليه [d8] فيها تاريخ ام لا ثالثا : اجبار المستخدم على ادخال الجهه التى تم الاستلام منها If [d10] = "" Then MsgBox "الرجاء ادخال اسم الشخص الذى تم الاستلام منه": Exit Sub رابعا: اجبار المستخدم على ادخال المبلغ المقبوض If [d11] = "" Then MsgBox "الرجاء ادخال المبلغ المقبوض": Exit Sub وهيكون الكود فى شكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub If [d8] = "" Then MsgBox "الرجاء ادخال تاريخ لسند القبض": Exit Sub If [d10] = "" Then MsgBox "الرجاء ادخال اسم الشخص الذى تم الاستلام منه": Exit Sub If [d11] = "" Then MsgBox "الرجاء ادخال المبلغ المقبوض": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub يعنى الكود قبل الترحيل هيعمل اربع اختبارات الاول هيمسك اول سطر بتاع رقم الايصال لو موجود ينتقل للسطر اللى بعده ولو مش موجود هبخرج من الكود ومش هيكمل وهكذا ما باقى الاسطر الين يتحقق من وجود بينات بالاربع خلايا ثم يقوم بعمليه الترحيل خامسا : هل يمكن عمليه الاختبار بسطر واحد بدلا من اربع اسطر نعم يمكن ذالك من خلال السطر التالى If [g7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub هنا تم استخدام داله OR وهى تعنى أو لو الخلية اللى بها رقم الايصال فارغه أو الخلية اللى بها التاريخ فارغه او الخلية اللى بها الجهه التى تم استلام المبلغ منها أو الخلية اللى بها المبلغ فارغه نفذ رساله ثم اخرج من الكود ومتكملش ويكون الكود بشكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub وفى النهاية ارجوا ان اكون وفقت بالشرح واتمنى ان يستفيد منه الجميع تقبلوا منى وافر الاحترام والتقدير

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