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

السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم اليوم موضوع خفيف دمه ظريف ، ومفيد جداً جداً إلى أبعد مما تتصور ...الموضوع يتمركز حول استخدام كلمة NOT والتي تعكس القيمة أي إذا كانت القيمة True فإنها تصبح False ، وإذا كانت القيمة False تصبح القيمة True ... وإليكم أمثلة تطبيقية لتأكيد المعلومة وكيفية الاستفادة منها المثال الأول : Sub ToggleFormulaBar() Application.DisplayFormulaBar = Not Application.DisplayFormulaBar End Sub نجد نفس السطر اللي على اليسار هو هو كما على اليمين ، فقط أضفنا كلمة NOT والتي تعكس القيمة فإذا كان شريط المعادلات مخفي أصبح ظاهراً ، وإذا كان شريط المعادلات ظاهراً أصبح مخفياً .. سأدرج بقية الأمثلة مع ذكر الفائدة من كل كود ، والفكرة نفسها في كل الأمثلة ------------------------------------------------------------------------------------------ المثال الثاني : Sub ToggleShowZeros() ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros End Sub الكود لإظهار القيم الصفرية وإخفائها المثال الثالث : Sub ToggleGridlines() ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub الكود لإظهار خطوط الشبكة وإخفائها المثال الرابع : Sub ToggleDisplayHeadings() ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings End Sub الكود لإظهار عناوين الصفوف والأعمدة المثال الخامس : Sub ToggleScrollBars() ActiveWindow.DisplayHorizontalScrollBar = Not ActiveWindow.DisplayHorizontalScrollBar ActiveWindow.DisplayVerticalScrollBar = Not ActiveWindow.DisplayVerticalScrollBar End Sub الكود لإظهار أشرطة التمرير الأفقية والرأسية وإخفائها المثال السادس : Sub ToggleWorkbookTabs() ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub الكود لإظهار تبويبات المصنف أي أسماء أوراق العمل المبوبة وإخفائها المثال السابع : Sub ToggleStatusBar() Application.DisplayStatusBar = Not Application.DisplayStatusBar End Sub الكود لإظهار شريط الحالة وإخفائه المثال الثامن : Sub ToggleShowFormulas() ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas End Sub الكود لإظهار المعادلات في ورقة العمل وإخفائها (التعامل هنا ليس مع شريط المعادلات) المثال التاسع : Sub ToggleShowColumns() Columns("I:J").Hidden = Not Columns("I:J").Hidden End Sub الكود يقوم بإظهار الأعمدة I و J وبالطبع إخفائها أرجو أن يكون الموضوع نال إعجابكم ... وهذه صورة من الملف المرفق حمل الملف من هنا وأخيراً تقبلوا وافر تقديري واحترامي

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

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

السلام عليكم ورحمة الله وبركاته زكاة العلم نشره تاريخ صلاحية انتهى او تاريخ استحقاق انتهى واردت ان يظهر امامك مشطوب فى هذه الحاله نعرض عليكم الطريقة واتمنى .ان تفيدكم رابط الموضوع على مدونة خبير اكسيل http://excelfinancial1.blogspot.com.eg/2016/04/blog-post_15.html شطب(1).rar

اليوم باذن الله سنقوم بشرح المصفوفات (المصفوفات)Arrays Arrays (المصفوفات) : يتم التخزين في المصفوفة باحجام ثابتة و متتابعة و تكون العناصر من نفس النوع يعني مثل (string , integer ) يتم استخدام Arrays (المصفوفة) في تخزين البيانات و سهولة ترتيب الاكواد و اختصارها و تستخدم دائما في المشاريع الكبيرة . وتعريف أبسط : هي عبارة عن مجموعة من المتغيرات من نفس النوع مخزنه في مصفوفة نروح لمثال لتطبيق عدد من المتغيرات String كالاتي Dim aa As String Dim bb As String Dim cc As String Dim dd As String Dim ee As String Dim ff As String Dim gg As String aa = "ياسر" bb = "محمد" cc = "اسيل" dd = "ابو البراء" ee = "ابو يوسف" ff = "الفلاحجي" gg = "عبد العزيز" الكود السابق هو الاعلان عن متغيرات متعددة من نوع استرنج وتم تعريفهم باسفلهم طيب اللي فات متغيرات واحنا أخدناها من قبل طيب ايه نظام المصفوفات دي نشوف الكود التالي Dim aa(6) As String aa(0) = "ياسر" aa(1) = "محمد" aa(2) = "اسيل" aa(3) = "ابو البراء" aa(4) = "ابو يوسف" aa(5) = "الفلاحجي" aa(6) = "عبد العزيز" الكود اللي فات دا بيعبر عن مصفوفه بسيطة تتكون من سبع عناصر مع العلم اننا قمنا بتحديد العدد 6 في الاعلان ؟؟؟؟ لانه المصفوفة بتبدأ من الصفر كما ظهر في التعريف اسفل الاعلان وممكن نكتبها بطريقة اخرى ايضا مثل الكود التالي Dim aa() As String = {"ياسر", "محمد", "اسيل", "ابو البراء", "ابو يوسف", "الفلاحجي", "عبد العزيز"} انا هنا لم احدد عدد العناصر داخل المصفوفة وسيبنا الاقواس مقفوله بدون رقم ولكن قمنا بتعريفها بجانب الاعلان وهي بنفس الاعداد بترتيبهم من جانب علامة يساوي يعني الطريقة دي هي نفس اللي فوقها نستطيع اختبار النتيجة عن طريق عمل تكست بوكس واحد وزر للاختبار ونضع الكود التالي داخل الزر لاظهار النتيجة في التكست بوكس TextBox1.Text = aa(0) ايه اللي هيظهر لما نطبق الكود دا هيظهر لينا ياسر في كلتا الحالتين السابقتين من كتابة المصفوفة طيب المصفوفه اللي اخدناها دي تعتبر مصفوفة ذات البعد الواحد مصفوفة الone dimensional (البعد الواحد) ودي صورة توضيحية لكيفية عملها وتستطيع تغيير الارقام في الكود التالي كما هي موضحه بالصور واشوف النتيجة 'اكتب واحد من الاسطر الاتية كل مره وشوف النتيجة TextBox1.Text = aa(0) TextBox1.Text = aa(1) TextBox1.Text = aa(2) TextBox1.Text = aa(3) TextBox1.Text = aa(4) TextBox1.Text = aa(5) TextBox1.Text = aa(6) طيب دي مصفوفة مكونة من صف واحد فقط ازاي نقدر نحدد صفوف اكتر ودا في القسم الثاني من شرحنا المصفوفة ذات البعدين Two dimensional (البعدين) وهذه المصفوفة تتميز بتخزين اعمدة وصفوف متعددة طبعا اخواتنا عارفين في الاكسيل ان موجود صفوف واعمدة ولما نحدد خلية عن طريق كود برمجي بنحددها كدا Cells(1, 2).Select يبقي الخلية كما بالصورة هي المحددة بالكود هتفهموا الصورة دي يبقي كدا عرفنا المصفوفة ذات البعدين طيب نشوف كود المصفوفة دي بيتكتب ازاي Dim aa(2, 3) As String aa(0, 0) = "ياسر" aa(0, 1) = "محمد" aa(0, 2) = "اسيل" aa(0, 3) = "ابو البراء" '-------------------- aa(1, 0) = "ابو يوسف" aa(1, 1) = "الفلاحجي" aa(1, 2) = "عبد العزيز" aa(1, 3) = "ياسر1" '--------------------- aa(2, 0) = "ياسر2" aa(2, 1) = "ياسر3" aa(2, 2) = "ياسر4" aa(2, 3) = "ياسر5" TextBox1.Text = aa(2, 1) ركزو معايا المفروض دي عبارة عن ثلاثة صفوف واربعة اعمدة وبنعلن عنها كدا (2,3) لان الصفر عندنا يعتبر عمود وصف طيب الكود السابق دا التكست بوكس1 الناتج هيكون ايه ؟؟؟؟؟؟؟ هيطلع ياسر3 طيب صور توضيحية عشان نتأكد الجدول السابق بيبين لينا تقاطع الصفوف مع الاعمدة والارقا موضحه بالجدول العلوي والاسفل منه يوضح البيانات الموجودة بداخل الجدول مثلا طيب نشوف الصورة دي ياريت تكون الصورة وضحت اكتر بالنسبة للمصفوفات من نوع المتعددة الابعاد Arrays Multi dimension وممكن نكتبها بالطريقة الاخرى هكذا Dim aa(,) As String = {{"ياسر", "محمد", "اسيل", "ابو البراء", "ابو يوسف", "الفلاحجي", "عبد العزيز"}, {"1", "2", "3", "4", "5", "6", "7"}, {"8", "9", "10", "11", "12", "13", "14"}} TextBox1.Text = aa(0, 2) نيجي نشوف نتيجة الكود دا ايه هي الاول لازم نعرف ان كل اقواس مغلقة تعتبر صف يبقي عندنا كام صف ثلاثة وست اعمدة لان لدينا ست قيم في كل صف طيب التكست بوكس اللي في الكود هتساوي ايه اولها الصف وهو صفر يعني الصف الاول والثاني العمود ورقمة 3 يعني القيمة الرابعة لان الصفر يعتبر واحد وهي "أسيل" طبعا الكود معكوس هنا لما تنسخ وتحط داخل البرنامج هتوضح معاك ارجو أن أكون قد وفقت في الشرح . الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت في امان الله . تقبلو تحياتي ياسر العربي يتبع

سيدي الفاضل من الخطأ ان تبدا اسم الكائنات برقم ، او اسم حقل ، واتذكر في احد المنتديات الاجنبية ، كنت وسط أفضل المبرمجين ، وجاءنا سؤال في المنتدى ، وكان احد جداوله يبدا برقم ، ولم نفلح في الوصول الى حل (مع ان السؤال ما كان بذاك التعقيد) ، ولما تم تغيير اسم الجدول ، تم الحل بسهولة !! . نموذج frm_Favorite: زر Add / Remove هو الذي يضيف المواد الى المفضلة ، وتعرف ان المادة اُضيفت الى المفضلة عندما يصبح لون الخلفية اخضر ، نموذج frm_Medication: عند تشغيل النموذج ، ستظهر لك جميع الادوية ، حيث All سيكون مختار ، وعندما تختار Favorite ، ستظهر لك الادوية المفضلة فقط عندما تريد ان تبدأ من البداية ، يجب ان تستخدم الاستعلام qry_User_All_to_Zero ، حتى يُزيل جميع الادوية المفضلة (طبعا استعمل هذا الاستعلام مرة واحدة وفي البداية فقط) ، عند بدأ البرنامج ، يقوم البرنامج بحفظ رقم المستخدم في وحدة نمطية ، وهذا الرقم متوفر للبرنامج الى اغلاقه ، وستلاحظ في الاستعلام الطريقة التي استعمل هذا الرقم ، وهي: . او في الكود: Me.Add_This_ID = Pass_ID() . وللعلم ، تم إضافة رقم الدكتور الى جميع الوصفات اللي يعملها ، فيعني تستطيع ان تعمل استعلام بإسم الدكتور ، بالاضافة/بدل عن Print_This جعفر 357.ER12345678.accdb.zip

تمت معالجة الامر (كلمة السر) salim أحرف صغيرة الملف 2010 اذا كان عندك 2003 يمكن التغيير حماية الصفوف من التغيير ة salim.rar

تاكد من الاوبشنز

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

هل هذا ماتقصد اخي؟ Check For Specific Digits Within Numbers YasserKhalil2222.rar

السلام عليكم قد يكون الموضوع مش جديد وعلى المبتدئين ! ولكن يمكن ان يكون من نوع السهل الممتنع ! الموضوع : عند اضافة بيانات لحقل معين اريد ان يشيك اولا هل هو موجود فيذهب لذلك السجل او يستمر في الاضافة عند عدم وجود المكرر ان ما جعلني اكتب هذا الموضوع هو ان احد الاخوة طرح هذا السؤال وهو شخص اعرف ان مستواه جيدا فقمت بالبحث في اماكن عدة فلم اجد جوابا شافيا ! ويكثر الطلب عليه دائما ! وضعت هنا طريقتين وعند الحدث قبل التحديث للحقل: 1. وهي المطبقة في المرفق: Private Sub Id_BeforeUpdate(Cancel As Integer) Set rs = Me.RecordsetClone rs.FindFirst "id=" & Me.Id If Not rs.NoMatch Then Undo Me.Bookmark = rs.Bookmark MsgBox ("موجود هنا") End If End Sub 2. Private Sub Id_BeforeUpdate(Cancel As Integer) idx = Me.Id If DCount("*", "persons", "id=" & idx) Then Undo DoCmd.FindRecord idx MsgBox ("مكرر هنا") End If End Sub تحياتي متمنيا الفائدة ومستقبلا التعقيب وراغبا في المشاركة بافكار اخرى check_before_ins_upd.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى Split Workbook في مجلد .. المصنف يحتوي على 4 أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result) في ورقة العمل المسماة Main يوجد زر أمر ، بالنقر عليه يتم عمل الكود ، ويبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ثم يقوم الكود بإغلاقه .. أسطر الكود مشروحة داخل الكود .. Sub SplitWorkbook() 'تعريف المتغير من النوع النصي Dim xPath As String 'تعريف المتغير من النوع ورقة عمل Dim SH As Worksheet 'تعيين المتغير لتساوي قيمته مسار المصنف الحالي xPath = Application.ActiveWorkbook.Path 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each SH In ThisWorkbook.Sheets 'نسخ ورقة العمل SH.Copy 'حفظ ورقة العمل بنفس الاسم ونفس المسار Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'إغلاق المصنف الجديد والذي أصبح هو المصنف النشط Application.ActiveWorkbook.Close False 'الانتقال لورقة العمل التالية Next 'تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub * ملحوظة : يجب ألا تكون هناك ورقة عمل بنفس اسم المصنف Split Workbook ، حتى لا يحدث مشكلة أثناء تنفيذ الكود أو لتجنب هذه المشكلة يمكن إضافة هذا السطر On Error Resume Next أرجو أن ينال الملف رضاكم ، وتستفيدوا منه في المقام الأول ... دمتم في رعاية الله وطاعته .. وهذا رابط لقناتي على اليوتيوب (في انتظار آرائكم حول القناة كبداية لمرحلة جديدة ..) My Channel أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا

صدر بحمد لله كتاب (مشروعي) و هو كتاب متكامل باللغة العربية في إدارة المشاريع والاعداد لشهادة PMP. الكتاب من تأليف كلٍ من: د/عمرو مسلم و م/ محمد طاهر عرفه ويقع في أكثر من 800 صفحة تغطي المجالات المعرفية الأساسية لإدارة المشروع ،كما يمثل الكتاب مرجع عربي متكامل لمن يرغب في الاستعداد لشهادة مدير المشروع المحترف PMP. اعتمد الكاتبان بالأساس على تبسيط الإصدار الخامس من الدليل المعرفي لإدارة المشروعات ليس من خلال الاختصار ولكن عن طريق الشرح والتوضيح وإضافة أمثلة وتلميحات ورسومات توضيحية وخرائط ذهنية ومعلومات يحتاجها كل مدير مشروع مع الكثير من التمارين المتنوعة في أسلوبها وذلك لضمان استيعاب القارئ لما جاء في كل فصل من معلومات. ويحوي الكتاب خاصية فريدة لتوضيح أين سيتم استخدام أهم مخرجات كل عملية كمدخلات للعمليات الأخرى، مما يؤدي لمساعدة القاريء على الربط المتميز بين كافة العمليات و المجالات المعرفية الواردة في الكتاب. بالإضافة الى ذلك، يحوي الكتاب ما يقارب 500 سؤال تدريبي للاستعداد لاختبار شهادة مدير المشروع المحترف PMP بالإضافة الى 60 نموذج من أهم النماذج المستخدمة في إدارة المشاريع ، فضلا عن تطبيق عملي لاستخدام أهم النماذج ضمن فصول الكتاب، وأخيرا قائمة بأهم المصطلحات المستخدمة في إدارة المشاريع وترجمتها. أخيراً، فإن الكتاب مُوَجه لكل من يفتقد مادة علمية متكاملة في إدارة المشاريع باللغة العربية والتي قد تمثل عاملاً مهماً لتخطي حاجز اللغة الانجليزية والتي جاءت بها معظم الكتب والمراجع في هذا المجال. لمعلومات التوزيع و التواصل ووصلة الكتاب على موقع أمازون إضغط هنا

السلام عليكم ورحمة الله وبركاته يمكن جمع أعمدة النتيجة لدالة vlookup عن طريق دالة Sumproduct كما هو موضح بالملف المرفق يارب الموضوع يعجبكم دالة Vlookup.rar

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

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

كل يوم تثبت لنا انك عملاق استاذ سليم بارك الله فيك

صورة الشرح الجميل مش مرفقة في الملف المرفق ليه يا ريس ؟ اتعودنا نشوف الملف بشكله البديع يا وديع

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

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

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

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

جزيت خيرا شيخ والله ممتاز

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

و عليكم السلام و رحمة الله و بركاته ... اولا تعدل نوع البيانات للحقل المعرف في جدول 2 من ترقيم تلقائي الى نص ثم تزيل المفتاح الاساسي منه ثم test2.rar كرار ...

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

مافي مانع من المساعدة ، بل ونرحب بالفكرة ، ولكن رجاء تنظيف المرفق من الفيروسات (ان وجدت) ، ثم تستطيع ان ترفقه ، وانا هنا اطلب منك ارفاق نسخة نظيفة من البرنامج حتى نستفيد منه جعفر

أخي محمد هذه اول مشاركة لك ، فلوسمحت تتأكد ان مرفقاتك نظيفة من الفيروسات. جعفر

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

جميل جدا أن تكون الأفكار بصوت عال خصوصا إذا كان المفكرون من العمالقة تضامنا مع فكرة أستاذنا جعفر اذا قلنا أن الـ 2000 نسخة هذه من برنامج واحد فستكون الـ 2000 نسخة عبارة عن رقم واحد بجدول tbl_Software والـ 2000 تعليق ستكون 2000 سجل بجدول والتى يمكننى فرزها حسب رقم المنتج - (واقتراحى هنا أن يكون هنالك كود لنوع الرسالة 1-شكوى أو 2-تعليق أو 3-تقيم أو طلب 4-مساعدة أو ..... داخل الجدول tbl_Software_Feedback) وبهذا يمكننى عمل فلترة حسب نوع الرسالة

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

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

أخي الكريم مهند جزاك الله كل خير وبارك الله فيك ووفقني وإياك لما فيه الخير لجميع المسلمين أخي ابن بنها .. لم أعمل على 2003 ولكن ابحث في القوائم لديك ستجد الأوامر مماثلة ..وهناك شريط أدوات على ما أعتقد عليه زر الأمر ولن يختلف بفية الشرح بشكل كبير

السلام عليكم اخي كرار انتبه لحقل النص وحقل الرقم والتاريخ جعفر

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

قد تفيدك هذه الروابط: Download/Retrieve Email from Gmail account in VB 6.0 و example for gmail with vba-web جعفر

بسم الله ما شاء الله لا قوة إلا بالله.. السلام عليكم ورحمة الله وبركاته...تهانينا الحارة على هذه التحف الجميلة التي تمتع نواظرنا بها.. تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته

ما شاء الله اخي ابو البراء مبدع دائما جزاك الله كل خير

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

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

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

وجزيت خيراً أيها المتهرب من ذكر اسمه .. قلت لك مش هسيبك بارك الله فيك وجزيت خيراً على مساهمتك الجميلة والرد عليها بهذا السطر CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1") أبسط وأيسر

جزاك الله خيرا أخي ياسر قمت بتحميل الملف الجميل كنت اتبع طريقة لتغير اسم الكموند بوتن ( بوتن لا اعني به اسم رئيس روسيا ) و هذه الطريقة هي Private Sub CommandButton1_Click() If CommandButton1.Caption = "1" Then CommandButton1.Caption = "2" Else CommandButton1.Caption = "1" End Sub

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

أخي الكريم الطلب غير واضح بالشكل الكافي .. لأنك لم توضح الحالة التالية وهي وجود نفس الرقم 3 مرات ولكن متباعدين كهذا الرقم .. 4113143 حيث يوجد الرقم 1 ثلاثة مرات؟ أمر آخر ما الغرض من هذا الطلب .. فيما سيفيد ؟ حتى يستفيد الجميع

اما انا فعلى قد حالي ما أقرأ بين السطور ، وما افهم بدون مثال جعفر

ومشاركة مع الأستاذ السيد جمال هنا اعدادات الوهتميل hotamil Set emailObj = CreateObject("CDO.Message") 'بريد المرسل emailObj.From = "xxx@hotmail.com" ' العناوين المراد الإرسال لها emailObj.To = "xxxx@gmail.com" & ";" & "xxxx@yahoo.com" & ";" & "xxxx@hotmail.com" emailObj.Subject = "عنوان الرسالة" emailObj.TextBody = "نص الرسالة " 'emailObj.AddAttachment "c:\windows\win.ini" Set emailConfig = emailObj.Configuration emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com" 'Exclude the following line 'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@hotmail.com" ' هنا تضع بريد الهوتميل وكلمة المرور emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "كلمة المرور هنا" emailConfig.Fields.Update emailObj.Send If Err.Number = 0 Then MsgBox "Done" بالتوفيق

وعليكم السلام من خصائص التقرير / لسان التبويب تنسيق الاتجاه / اجعله من اليسار الى اليمين

بسم الله الرحمن الرحيم استكمالا لحلقات التكرار اليوم سنتحدث عن looping ونسترجع ان اللوبنج من الحلقات التكرارية الشرطية وسنتطرق الى الجمل الاتية في الحلقات التكرارية الشرطية Do.........Loop While Do...........While Do...........Until اولهم Do.........Loop وطريقة كتابة الاكواد هتبقى ازاي نشوف المثال التالي Do MsgBox("Yasser") Loop الكود السابق بدايته DO ثم الاكواد الخاصة بنا داخل الجملة التكرارية ثم Loop لاعادة تنفيذ الكود مرة اخرى طيب لما نطبق الكود دا ايه اللي هيحصل اللي هيحصل ان البرنامج هيطلع لينا رسالة باسم ياسر بس كدا لا دا هيفضل يطلعها على طول كل ما تطلع من واحده تيجي تانيه الى مالا نهاية ايه السبب هي جملة شرطية طيب فين الشرط احنا مش حطينا شرط يبقي البرنامج هيفضل شغال رسايل على طول وطبعا دا لو كود غير الرسالة مع التكرار الى مالا نهاية سيتعرض دائما برنامجنا الى التهنيج من كثرة التكرار طيب عايزين نحل المشكلة ونحط شرط للموضوع دا نشوف المثال التالي ونركز فيه شوية Dim x As Byte = 1 Do MsgBox(x) x = x + 1 If x = 10 Then Exit Do End If Loop اول الكود مجرد اعلنا عن متغير من نوع بايت وعرفناه برقم1 وبعدين بدأنا الجملة ب Do ثم رسالة بها قيمة المتغير والسطر اللي بعده رفعنا قيمة المتغير +1 لكل حلقة تكرارية وبعدين عشان نضع الشرط للجمله نستخدم IF ونقول لو المتغير X يساوي 10 ايه اللي يحصل اخرج من الجملة التكرارية دي يبقي الكود السابق هيحصل فيه ايه بداية الكود المتغير x هيساوي1 وبعدين هنخش الجملة وتظهر رسالة برقم المتغير اللي هو 1 وهننزل على السطر اللي بعده هنلاقي انه المتغير زاد رقم بقي 2 يروح على الجملة الشرطية وهي ان المتغير يبقي عشرة والمتغير لسه 2 يبقي هيتجاهل الشرط ويكمل ينزل يلاقي لووووب هوب يرجع تاني وهكذا لحد اول ما الرقم يوصل 10 يروح للشرط يلاقي انه 10 يقوله عندك اخرج بقي من الدوخة دي واللفه دي وبكدا عرفنا الجملة Do.........Loop ندخل على الجملة الثانية وهي While Dim x As Byte = 1 While x < 10 MsgBox("الحمد لله" & x) x = x + 1 End While ايه الكود دا نفس المتغير x وندخل على الجملة While ودي جد على طول بتقولك الشرط ايه عشان اعرف اشتغل عليه من الاول بنقلها لو قيمة الاكس اصغر من 10 يطبع الحمد لله ورقم المتغير جمبها والسطر اللي بعده طبعا عارفينه وهو زيادة المتغير +1 ويرجع تاني لحد ما يتحقق الشرط عند الرقم 10 تتوقف الجمله الموضوع سهل ومفيهوش اي صعوبة وطبعا دا مثال مبسط للجمله نستطيع تركيب كود بطريقة احترافيه وطرق مختلفه كتييرررر وندخل على الجملة الثالثة وهي Do...........While Dim x As Byte = 1 Do While x < 10 MsgBox("الحمد لله" & x) x = x + 1 Loop باختصار الجملة دي تجمع Do & While مع بعض لان Do لوحدها كنا بنستخدم فيها If اما الان الشرط موجود معها فلا داعي الى IF ندخل على الجملة Do...........Until والجملةدي عكس ال Do...........While بمعني ان Do...........Until بتقول افعل الى ان يتحقق الشرط Do...........While افعل عندما يتحقق الشرط Dim x As Byte = 1 Do Until x > 10 MsgBox("الحمد لله" & x) x = x + 1 Loop هنا هيفضل يكرر الجملة الى ان تصل قيمة المتغير x الى اكبر من 10 وبكدا نكون شبه انتهينا من الجمل التكرارية المحددة والشرطية طبعا دا مجرد شرح مبسط اذا كان هناك اي استفسار يرجى طرحه داخل الردود الخاصة بالموضوع الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت تقبلو تحياتي ياسر العربي يتبع

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