طائع

للرفع

المطوب بالمرفق الرجاء المساعدة __ ___ ______.rar

هناك برامج عديدة لا اعرف نوعها اهى اكسل ام اكسس ام اى برنامج اخر افيدونى يا ذوى الخبرة عن هذا البرنامج الملف اسمه time tables وهو برنامج جدول مدرسى ولكن لا اعرف نوعه عذرا الملف كبير جدا لا استطيع رفعه على المنتدى

السلام عليكم اساتذتى الأفاضل الرجاء المساعدة فى جلب بيانات من sheet2 عندما اختار اسم المدرسة من combo box فى sheet3 وتوضيحا يوجد عدد خمسة افراد لكل مدرسة فى شيت 2 اريد عند اختيار اسم المدرسة فى شيت 3 كما هو مبين تدرج اسماء الخمسة أفراد ببياناتهم فى الجدول المبين مع العلم انه يوجد عمود عدم تكرار اسم المدرسة فى شيت 2 فى العمود k المرفق الجودة.rar

ايه ده هو فيه كده بارك الله لك فى علمك والحقنا بك

شكرا جزيلا اخ strong على اجابتك الجميلة

للرفع

اخى هذه الروابط لا لاتعمل ارفق ملف للعمل عليه

واليك مرفق على ما فهمت من كلامك New Folder (3).rar

ارفق مرفق تجد الحل

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

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

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

للرفع

واليكم مرفق للتوضيح Book2.rar

اساتذتى الكرام واخوانى فى هذا الصرح العظيم اريد عدم تكرار اسم السلعة ثانية أى اريد أن ينظر كود فورم ادخال السلع الى اسم السلعة الجديدة اذا كانت موجودة يضيف على عددها فى عمود العدد ولا يكرر اسمها ثانية هذا ما اريده و تقبلوا جميعا تحياتى Private Sub CommandButton1_Click() ' سنقوم بشرح مبسط جدا للكود ان شاء الله 'نقوم هنا اولا بوضع المعطيات الثابتى التي ستكون مرجعا لنا في الكود 'بعد ذلك ' iRow السطر التالي لتحديد مرجع العمود وهو هنا Dim iRow As Long 'sh السطر التالي لتحديد مرجع الشيت المطلوب استخدامه وهو هنا Dim Sh As Worksheet '================================================ 'ويمكن لنا تغيير المعطيات الثابتة لتكون كما نريد 'sh فمثلا يمكننا تغيير 'SH الي اي متغير مثلا '================================================ ' بطريقة بسيطة وسهله وبعيدا عن التعقيد والمصطلحات الكبيرة 'للتسهيل ليس الا ... واي استفسار الاكيد انني معكم دائما 'سأقوم بشرح الاكواد بابسط طريقة ممكنه 'السطر التالي معناه 'ان يجعل الشيت المطلوب استخدامه هو .... وهو هنا الشيت( ) 'ويجب وضع اسم الشيت المراد ترحيل وتسجيل البيانات ' "" الموجودة بالفورم بين علامتي التنصيص كما في السطر التالي Set Sh = Worksheets("SOURCE") '================================================ ' بعد تحديد اساسيات العمل وتحديد الصفحة المطلوب الترحيل اليها ' يجب علينا اولا تحديد الصف الفارع الذي سيتم تسجيل البيانات الجديدة به 'حتي لا يتم الكتابة علي صف واحد كل مرة ولعمل ذلك نقوم بالتالي ... '================================================ ' نقوم بعمل سطر بسيط للعثور علي اول سطر فارغ في الصفحة ' المختارة لعمل عملية الترحيل وهي هنا شيت رقم 2 ' ولعمل ذلك نقوم بوضع السطر التالي ومعناه 'iRow اجعل 'sh في صفحة ' يساوي آخر صف في العمود رقم 1 ' وبذلك تم تحديد العمود الاول للعثور علي اول سطر فارغ فيه iRow = Sh.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row '================================================ 'سنقوم في السطور التاليه بوضع اكواد التسجيل او الترحيل 'وذلك بعد تحديد صفحة التسجيل وعمود البداية وتحديد او سطر فارغ فيه '================================================ 'ولترحيل البيانات نستخدم الاسطر التاليه 'وسنقوم بشرح السطر الاول والثاني فقط والباقي مثلهما تماماً '================================================ Sh.Cells(iRow, 2).Value = Me.TextBox1.Value ' السطر السابق مقسم الي عدة اوامر وهي كالتالي ' sh اختيار صفحة الترحيل والتي تم اختيارها في بداية الكود 'Cells(iRow, 1).Value هذا الجزء معناه ان قيمة الخليه رقم 1 في الصف الفارغ ' الذي يتم تحديده عن طريق الكود وفي العمود المختار تساوي 'Me.TextBox1.Value هذا الجزء من السطر يعني ان قيمة الخليه رقم 1 كما سبق تساوي 'Me قيمة تكس بوكس رقم 1 في الفورم المستخدم وكلمة 'تعني هنا اليوزفورم المستخدم Sh.Cells(iRow, 3).Value = Me.TextBox2.Value ' السطر السابق مقسم الي عدة اوامر وهي كالتالي ' sh اختيار صفحة الترحيل والتي تم اختيارها في بداية الكود 'Cells(iRow, 2).Value هذا الجزء معناه ان قيمة الخليه رقم 2 في الصف الفارغ ' الذي يتم تحديده عن طريق الكود وفي العمود المختار تساوي 'Me.TextBox2.Value هذا الجزء من السطر يعني ان قيمة الخليه رقم 2 كما سبق تساوي 'Me قيمة تكس بوكس رقم 2 في الفورم المستخدم وكلمة 'تعني هنا اليوزفورم المستخدم '================================================ 'وينطبق ذلك علي السطور التاليه مع تحديد الخليه المراد الترحيل لها ' قيمة التكست بوكس المطلوب في الفورم '================================================ Sh.Cells(iRow, 4).Value = Me.TextBox3.Value Sh.Cells(iRow, 5).Value = Me.TextBox4.Value Sh.Cells(iRow, 6).Value = Me.TextBox5.Value Sh.Cells(iRow, 10).Value = Me.TextBox6.Value '================================================ 'وبهذا تكون قد لنتهت عملية الترحيل حسب عدد التكستات الموجودة في الفورم ' والمطلوب تسجيلها او ترحيلها '================================================ ' ولتسجيل بيانات مرة اخري علي نفس الفورم وهو مفتوح نضع بعض الاسطر البسيطة 'لمسح البيانات القديمة من على الفورم بعد الترحيل للتجهيز لإدخال بيانات جديدة ' كما يلي '================================================ 'ولمسح البيانات القديمة نستخدم الاسطر التاليه 'وسنقوم بشرح السطر الاول فقط والباقي مثله تماماً '================================================ Me.TextBox1.Value = "" ' السطر السابق معناه ان يجعل قيمة التكست بوكس 1 تساوي لاشئ 'Me كلمه ' تعني الفورم نفسه المستخدم في التسجيل والترحيل كما سبق ذكره 'TextBox1.Value وهذا الجزء يعنس قيمة التكست بوكس 1 ' = "" وهذا الجزء يعني ان قيمة التكست بوكس 1 تساوي لاشئ ' حيث ان علامتي التنصيص تعني فراغ او لا شئ '================================================ 'وينطبق ذلك علي السطور التاليه مع تحديد التكست بوكس المراد مسح البيانات الموجوة به ' وما هنا في مثالنا كالتالي '================================================ Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" '================================================ 'وبعد مسح البيانات نقوم بوضع جزء بسيط لتحديد التكست بوكس المراد بداية التسجيل منه ' وذلك بوضع مؤشر الكتابه في التكست بوكس المراد الادخال منه '================================================ 'ويتم ذلك عن طريق السطر التالي ' وفيه نحدد ان التكست بوكس 1 هو اساس بداية الادخال بعد مسح البيانات Me.TextBox1.SetFocus ' السطر التالي هو اقفال الكود ونهاية مهمة الزر المحدد 'والمستخدم لعملية التسجيل او الترحيل End Sub Private Sub CommandButton2_Click() End End Sub Private Sub TextBox1_Change() Me.TextBox1.Value = Format(Date, "yyyy/mm/dd") End Sub

للرفع

للرفع

شكرا ابو ايمان

اخى جربت البرنامج ولكن البنود فى اخر الفاتورة وتقريبا فى اخر كل فورم لا تعمل هل هذا عمل تحت الانشاء أم أننى لا أفهمه ؟

رائع جدا جدا وجزاكم الله خيرا كثيرا

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

اخى ابو حنين الدوائر تظهر على جميع الخلايا كما هى اما فهمت قصدى ؟ اننى اريدها على عمود اختبار فصل ثان و عمود الدرجة الفعلية فقط

بعد وضع الكود فى البداية كان يعمل وبعد عمل بعض التنسيقات لم يعد يضع الدوائر الحمراء الا على أول صف المرفق Book-braa.rar

اخى ابوايمان جزاك الله خيرا ولكن بعد نقل الكود للمرفق تم وضع الدوائر الحمراء على جميع الخلايا وانظر بنفسك فهل من تعديل يجعل الكود يضع الدوائر على الامتحان والدرجة الفعلية فقط تقبل تحياتى طباعة.rar