حسام ميلكانا قام بنشر يناير 16, 2015 مشاركة قام بنشر يناير 16, 2015 السادة خبراء ومعلمين هذا الصرح التعليمى الكبير نتمنى من الله ان يجعلة فى ميزان حسناتكم فانتم نعم العلم المقدم من خبراء واساتذة كبار الى المبتدئين امثالنا مرفق لحضراتكم شيط من اعمال احد الاخوة الكرام بالمدرسة الكبيرة قمت بتعديل الاسماء الموجودة بالفورم بما يتاسب مع عملى وانا احتاج لتكملة الاكواد فية حيث انة الفورم كان تحتوى على 20 خانة فقمت بزيادة العدد وحاولت كثيرا على انى اصلح الكود ولكنى للاسف لم افلح...؟ مش عارف لية ممكن لان الموضوع صعب على المبتدئين امثالنا فنرجة تكملة الاكواد حتى يتسنى لكل مادة موجودة بالفورم الدخول الى الشيط وشكرا ليكم دائما وابدا شكر ممذوج بكل حب وتقدير لامثالكم خلطاط ميلكانا.rar رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر يناير 16, 2015 مشاركة قام بنشر يناير 16, 2015 تم التعديل إليك ما طلبت خلطاط ميلكانا.rar رابط هذا التعليق شارك More sharing options...
حسام ميلكانا قام بنشر يناير 17, 2015 الكاتب مشاركة قام بنشر يناير 17, 2015 بارك الله فيك اخى الكريم استاذ الجموعى ليس بالجديد على اعضاء وخبراء هذة المدرسة الكبيرة المليئة بالمعلمين ان يمونودائما اول من يقدمون يد العون للمبتدئين امثالنا شكرا لكم على حسن التعاون والمساعدة وربنا يجعلة فى ميزان حسناتكم لو ممكن تقولى ازاى اعمل شيى زى كدة وازاى لو حبيت اضيف خانة اخرى اعمل اية على شان نقدرنتعلم لانى حاولت ولم انجح ياريت تقولى ازاى اوصل للنتيجة الى حضرتك وصلتلها وشكرا مرة اخرى رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 17, 2015 مشاركة قام بنشر يناير 17, 2015 اخى الكريم اليك فكرة بسيطه يمكن استخدامها من خلال الاكسيل قم بتحديد جدول وليكن من A2 الى العمود AF10 (علما بان الحد الاقصى المسموح به للاعمده 32 عمود والى مالا نهاية من الصفوف للجدول) ثم اضغط على فورم كما هو مبين بالصورة الايقونه المحاطه بالدائره السمرا واليك ملف مرفق تقبل تحياتى خلطاط ميلكانا.zip رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر يناير 17, 2015 مشاركة قام بنشر يناير 17, 2015 اخى الكريم اليك فكرة بسيطه يمكن استخدامها من خلال الاكسيل قم بتحديد جدول وليكن من A2 الى العمود AF10 (علما بان الحد الاقصى المسموح به للاعمده 32 عمود والى مالا نهاية من الصفوف للجدول) ثم اضغط على فورم كما هو مبين بالصورة الايقونه المحاطه بالدائره السمرا واليك ملف مرفق تقبل تحياتى أستاذي القدير ياريت طريقة إضافة أيقونة فورم كما في الصورة المرفقه إستفسار ثاني ما الهذف من تحديد جدول وليكن من A2 الى العمود AF10 ياريت شرح مبسط للفكرة رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر يناير 17, 2015 مشاركة قام بنشر يناير 17, 2015 بارك الله فيك اخى الكريم استاذ الجموعى ليس بالجديد على اعضاء وخبراء هذة المدرسة الكبيرة المليئة بالمعلمين ان يمونودائما اول من يقدمون يد العون للمبتدئين امثالنا شكرا لكم على حسن التعاون والمساعدة وربنا يجعلة فى ميزان حسناتكم لو ممكن تقولى ازاى اعمل شيى زى كدة وازاى لو حبيت اضيف خانة اخرى اعمل اية على شان نقدرنتعلم لانى حاولت ولم انجح ياريت تقولى ازاى اوصل للنتيجة الى حضرتك وصلتلها وشكرا مرة اخرى وفيك بارك الله أخي الكريم شرح مبسط إن شاء الله يفيدك مثلا أضف مربع نص المقصود به TextBox في فورم UserForm1 ملاحظة مهمة هنا لابد من تغيير إسم التكست بوكس إلى أخر رقم في ww إنت حاليا عندك أخر رقم في تكست بوكس هو ww37 معناها عند إضافة تكست بوكس جديد قمت بتسميته بهذا الإسم ww38 الأن قم بالدخول إلى الأكواد في حدث الكمبوبوكس لا حظ الكود أخر تكست بوكس هو 37 مشار إليها بالأحمر هي الإسم ww Private Sub ComboBox1_DropButtonClick() For j = 2 To 50 If ComboBox1.Value = Sheet8.Cells(j, 2).Value Then For i = 2 To 37 Me.Controls("ww" & i).Value = Sheet8.Cells(j, i).Value Next i Exit For End If Next j End Sub كل ما علينا فعله هو إضافة رقم 38 ليصبح الكود على الشكل التالي For i = 2 To 38 وهكذا تتم العملية أيضا في زر تعديل ننتقل الان إلى اليوزر فورم الأخر والذي يحمل إسم database مثلا أضف مربع نص المقصود به TextBox هنا أنت حر بتسمية التكست بوكس بأي إسم شئت مثلا txt1 نفتح محرر الاكواد ننتقل لحدث زر ok Private Sub CommandButton1_Click() نقوم بإدراج هذا الكود في أخر شرط If Me.txt1.Value = "" Then MsgBox "أرجو إدخال وزن .......", vbExclamation, "جدول تحليل الأطعمة" Me.txt1.SetFocus Exit Sub End If ملاحظة النقاط تعني إسم الليبل الذي ستدرجه امام تكست بوكس مثلا اسم الليبل : ميلكانا عند إدراج الكود يصبح على هذا الشكل MsgBox "أرجو إدخال وزن ميلكانا", vbExclamation, "جدول تحليل الأطعمة" ننتقل الان إلى الكود التالي في نفس الحدث لاحظ هذا الكود .Offset(RowCount, 35).Value = Me.T15.Value معناها عندنا أخر عمود هو 35 وأنت أضفت عمود جديد معانها أصبح لديك 36 عمود أصبح الكود بهذا الشكل .Offset(RowCount, 36).Value = Me.txt1.Value شرح بسيط للكود القيمة التي ستدرج في العمود 36 تساوي القيمة المكتوبه في مربع النص وهكذا نفس الخطوات عند إضافة مربع نص جديد وفي الأخير أرجو الشرح ان ينال إعجابك والسلام عليكم رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 17, 2015 مشاركة قام بنشر يناير 17, 2015 اخى الجموعى 1- بخصوص ايقونه الفورم هى من خيارات اكسيل يعنى فورم جاهز للاستخدام ازاى تظهره اضغط على ايقونه اكسيل اختار Excel Options ثم اختار Customize لو الاوفيس بتاعك انجلش هتلاقى كمبوبوكس على اليسار اختار منه All Commands أنزل بالاسكرول بار لتحت الين توصل حرف F هتلاقى Form قم بالوقوف على كلمة Form ثم ADD ( هتلاقية بالمنتصف ) هتلاقى الفورم انتقل الى المربع ناحية اليمين ثم اضغط اوك هتلاقى الايقونه موجوده 2- الفورم اكثر شئ يتسع الى 32 عمود لازم تحدد الجدول اللى انتى عايز تشتغل عليه وتضغط على الايقونه بس طبعا لازم بداية الجدول تكون هى رؤوس الاعمده تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر يناير 17, 2015 مشاركة قام بنشر يناير 17, 2015 اخى الجموعى 1- بخصوص ايقونه الفورم هى من خيارات اكسيل يعنى فورم جاهز للاستخدام ازاى تظهره اضغط على ايقونه اكسيل اختار Excel Options ثم اختار Customize لو الاوفيس بتاعك انجلش هتلاقى كمبوبوكس على اليسار اختار منه All Commands أنزل بالاسكرول بار لتحت الين توصل حرف F هتلاقى Form قم بالوقوف على كلمة Form ثم ADD ( هتلاقية بالمنتصف ) هتلاقى الفورم انتقل الى المربع ناحية اليمين ثم اضغط اوك هتلاقى الايقونه موجوده 2- الفورم اكثر شئ يتسع الى 32 عمود لازم تحدد الجدول اللى انتى عايز تشتغل عليه وتضغط على الايقونه بس طبعا لازم بداية الجدول تكون هى رؤوس الاعمده تقبل تحياتى للأسف بحث ولم أجدها منطقيا توجد في علامة تبويب المطور صورة توضح كافة الأوامر في تبويب المطور رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 17, 2015 مشاركة قام بنشر يناير 17, 2015 من تخصيص الشريط اختار الكل من الكمبوبوكس ثم انزل الى الاسفل الين حرف النون هتلاقى نموذج اعمله اضافه ثم اوك 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر يناير 17, 2015 مشاركة قام بنشر يناير 17, 2015 من تخصيص الشريط اختار الكل من الكمبوبوكس ثم انزل الى الاسفل الين حرف النون هتلاقى نموذج اعمله اضافه ثم اوك بارك الله فيك أستاذي كنت بدور على كلمة فورم فلم إجدها وهي نموذج رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.