ياسر العربى

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

تفضل اخي الشرح بالمرفق yasser0.rar

تفضل اخي الكريم هذا الكود ضعه مكان الكود الاخر Private Sub TextBox1_Change() On Error Resume Next TextBox2.Text = Application.WorksheetFunction.Index(ZZZ.Range("c2:c11"), Application.WorksheetFunction.Match("*" & TextBox1.Text & "*", ZZZ.Range("b2:b11"), 0), 1) On Error Resume Next TextBox2.Text = Application.WorksheetFunction.Index(ZZZ.Range("b2:b11"), Application.WorksheetFunction.Match(Val(TextBox1.Text), ZZZ.Range("c2:c11"), 0), 1) End Sub تستطيع تغيير الحروف ZZZ بالكود الى الشيت الذي تريد البحث فيه لعله المطلوب

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

اخي الكريم ابو يوسف يكفيني مرورك الكريم هذا بارك الله فيك تقبل فائق احترامي

اليوم باذن الله سنقوم بشرح المصفوفات (المصفوفات)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 يعني القيمة الرابعة لان الصفر يعتبر واحد وهي "أسيل" طبعا الكود معكوس هنا لما تنسخ وتحط داخل البرنامج هتوضح معاك ارجو أن أكون قد وفقت في الشرح . الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت في امان الله . تقبلو تحياتي ياسر العربي يتبع

تفضل شوف المرفق دا Match.rar

الله ينور حبيبي (أنجم) نفس كلمة ابو البراء بس مصري بارك الله فيك وجزاك كل خير تقبل تحياتي

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

بارك الله فيك حبيبي الغالي ابو يوسف هي تحت الانشاء باذن الله تلبي معظم الاحتياجات تقبل تحياتي

مصطبة الحبايب

على حد فهمي من سؤالك كل اللي عليك انك تحط رمز ال $ بين B$1+2 بس واسحب المعادلة لاسفل اذا كنت تقصد شئ اخر يبقي محتاج توضيح اكتر وشكرا test.rar

....................................waiting

....................................I 'm waiting

يرجى صورة توضيحية للمشكلة للتوضيح اكثر هل جربتي الاصلاح بهذه الاداة؟؟ MicrosoftFixit50274.rar

تفضل لعله المطلوب Book1.rar

اختى الكريمة تأكدي من اختيارك لاسم الطابعة كما بالصورة مع اختلاف اسم الطابعة فقط

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

تفضل اخي الكريم لعله المطلوب اختر البحث بمعلومية الB or C Match.rar

العضو الكريم fafa5000 اولا مرحبا بك في منتدى اوفيسنا ثانيا يرجى قراءة توجيهات المنتدى جيدا كمل يرجي تغيير اسم الظهور الخاص بك للغة العربية لسهولة التعامل تفضل كلمة المرور اسم المستخدم admin كلمة المرور admin VBA Password 6626

تفضل اظهار السعر تلقائيا بعد اختيار 11اسم المادة.rar

السلام عليكم مرحبا بكِ اختنا الكريمة ام روان في بيتك الثاني واسرتك الثانية اوفيسنا تحياتي

اخي الفاضل استبدل التكست بوكس4 بالكمبوبوكس1 تكتب هكذا مكان الجزء المشار له بالازرق في الصورة Me.ComboBox1.Value وفي السطر قبل الاخير ايضا Me.ComboBox1.Value = "" السبب مفيش في الفورم حاجه اسمها TxtBox4 والبديل لها ComboBox1

تفضل قائمة منسدلة في الفورمة.rar

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