الجازع قام بنشر مايو 11, 2011 قام بنشر مايو 11, 2011 اخواني الاعزاء اود اضافة رسم بياني داخل فورم بحيث يتم عرض الرسم الباني(داخل الفورم)عن طريق الفورم؟ وطريقة ربط قائمة منسدلة مع قائمة اخرى بالفورم؟ ولكم جزيل الشكر والتقدير ....
الحسامي قام بنشر مايو 11, 2011 قام بنشر مايو 11, 2011 السلام عليكم اخي الكريم مرفق ملف لمثالين لما طلبت للرسم البياني وللقوائم المترابطة بالنسبة للرسم البياني هناك رسم بياني في داخل الصفحة وهو ما سيظهر في الفورم وعند تغير التنسيق سيتغير تنسيق الرسم الموجود في الفورم اي انه يقوم باخذ التنسيقات والبيانات من الرسم الاصلي امثلة.rar 1
دغيدى قام بنشر مايو 11, 2011 قام بنشر مايو 11, 2011 (معدل) السلام عليكم اخي الكريم / الحسامى دائما فى المقدمة .. يــــــــــــــــــارب تم تعديل مايو 11, 2011 بواسطه دغيدى
الحسامي قام بنشر مايو 11, 2011 قام بنشر مايو 11, 2011 السلام عليكم اخي الكريم والحبيب / دغيدي دائما فى القلب.. يــــــــــــــــــارب
ياسر الحافظ قام بنشر مايو 11, 2011 قام بنشر مايو 11, 2011 (معدل) ا الاخ / الاستاذ الحسامي : والله كلمة ابداع لاتكفي بحقك وعلى اية حال هذا الامر غير مستغرب من اساتذة امثالك وفقك الله ياسر الحافظ تم تعديل مايو 11, 2011 بواسطه hyasser
عبدالله المجرب قام بنشر مايو 11, 2011 قام بنشر مايو 11, 2011 (معدل) الاستاذ الفاضل الحسامي بصراحة ابداع بلا حدود يضاف الى رصيدك ابواحمد تم تعديل مايو 11, 2011 بواسطه ولد المجرب
saad abed قام بنشر مايو 11, 2011 قام بنشر مايو 11, 2011 اخى الحسامى عبقرية وابداع وبسم الله ماشاء الله لا قوة الا بالله واقول لصاحب الموضوع اصبت حين كتبت الى عباقرة المنتدى وقد تقدم صاحب العبقرية سعد عابد
الجازع قام بنشر يونيو 18, 2011 الكاتب قام بنشر يونيو 18, 2011 اخواني الاعزاء اود لو اتعلم منكم اكثر وافادتي بطريقة تثبيت القيم يعني لو تم تشغيل الفورم باي شيت يتم عملية ولا يفقد المعلومات. يعني عند تغير مكان الفورم لشيت اخر لا تعمل عملية الربط وشكرا....
عادل حنفي قام بنشر يونيو 18, 2011 قام بنشر يونيو 18, 2011 السلام عليكم بارك الله في اعمال الجميع و بعد اذنكم جميعا اخي jazea عندما يكون عمل داخل شيت معين و علي مدي معين و لا يتدخل طلب مدي من شيت اخر فهنا لا يهم التحديد فسيكون العمل علي الشيت المفتوح مثلا سيكون الكود كالتالي Textbox1=Range("G5").Value اما اذا تداخل بالعمل عدة شيتات او اننا سنفتح شيت اخر اثناء عمل الفور فهنا يجب التوضيح او التحديد للكود لكي ياتي بالبيانات الصحيحة لذا سيكون الكود كالتالي Textbox1=Sheets("sheet1").Range("G5").Value و هنا عرفنا الكود ان التكست بوكس 1 سيحمل بيانات الخلية G5 الموجودة في الشيت الذي اسمة sheet1 اوعي تقلي اني فهمتك غلط و مش ده قصدك هههه تحياتي
الجازع قام بنشر يونيو 18, 2011 الكاتب قام بنشر يونيو 18, 2011 مفهوم لاكن كيف يتم تطبيق هذا الشرح على هذا الكود :- Private Sub ComboBox1_Change() On Error Resume Next Dim c As Range ComboBox2.Clear For Each c In [b1:f1] If c.Text = ComboBox1.Text Then For i = 2 To 6 ComboBox2.AddItem Cells(i, c.Column) Next End If Next End Sub وشكرا
عادل حنفي قام بنشر يونيو 18, 2011 قام بنشر يونيو 18, 2011 اخي On Error Resume Next هذا امر يفيد في بعض الاشياء و تعلمنا عدم استعمالة الا علي مستوي ضيق جدا فمعناة تجاهل الحطأ و الانتقال للامر الذي يلي الخطأ Dim c As Range و هو تعريف لحرف ال C و التعامل معاه علي انه خلية ComboBox2.Clea معناه ان الكمبوبوكس 2 يتم مسح محتوياتها For Each c In [b1:f1] عمل حلقة اختبار لكل خلية في المدي b1:f1 If c.Text = ComboBox1.Text Then لو ان النص داخل الخلية = النص الموجود في الكمبوبوكس1 For i = 2 To 6 عمل حلقة تكرارية ممن الص الثاني الي السادس ComboBox2.AddItem Cells(i, c.Column) يتم اضافة بند للقائمة المنسدلة و الذي يكون في الخلية الموجوده في الصف الاول و هو 2 و الموجودة ايضا في عمود الخلية التي تساوت سابقا مع الكبوبوكس1 Next و يتم التكرار حتي اخر خلية في المدي b1:f1 End If اغلاق قاعدة if Next و يتم التكرار حتي الصف 6 لاضافة بنود الكمبوبوكس2 تحياتي ُ
الجازع قام بنشر يونيو 18, 2011 الكاتب قام بنشر يونيو 18, 2011 (معدل) والله شاكر لك جدا جدا على هذا الشرح لاكم انا لم اقصد شرح الكود انا كنت ابغاك تتفضل عليا بطريقة تحديد الشيت في مدى معين بالكود هذا:- Private Sub ComboBox1_Change() On Error Resume Next Dim c As Range ComboBox2.Clear For Each c In [b1:f1] If c.Text = ComboBox1.Text Then For i = 2 To 6 ComboBox2.AddItem Cells(i, c.Column) Next End If Next End Sub يعني كيف احدد الشيت الذي يبحث فية الخاص بالنطاق [b1:f1]؟؟ اخي كما هو بالموفق لو غيرت مكان الفورم لا تعمل عملية الربط ارجو ان يكون الطلب مفهوم واسف جدا امثلة.rar تم تعديل يونيو 18, 2011 بواسطه jazea
عادل حنفي قام بنشر يونيو 18, 2011 قام بنشر يونيو 18, 2011 سيتم تغير سطرين الي ما يقابلهم For Each c In Sheets("Charts").Range("b1:f1") ComboBox2.AddItem Sheets("Charts").Cells(i, c.Column) 1
الجازع قام بنشر يونيو 18, 2011 الكاتب قام بنشر يونيو 18, 2011 الله يرضى عليك ياعبقري شكرااااااااااااااااااااااا
يوسف عطا قام بنشر يونيو 20, 2011 قام بنشر يونيو 20, 2011 اللهم بارك فى علمهم وإجعلهم أعمدة إنارة لطريق كل من يحتاج أن يتعلم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.