اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر
إدراج بيانات من فورم إلى الكشف متسلسلة على الشرط


و إليكم المثال المطلوب الخاص بالمركز الصيفي بجامع ذي النورين



للكشف الطلاب المسجلون و يعطيكم ألف عافية .




الملف المرفق :


_______________.rar
قام بنشر

السلام عليكم

انا مسرور جدا لهذا العمل لوجه الله

هنا فورم سريع

و هناك الكثيرر من الاشياء يمكن اضافته

بكل سرور ساتحمل كل عمل هذا الفورم

_______________.rar

قام بنشر

السلام عليكم

ممكن سؤال

كيف وضعت بيانات الصف في القائمة المنسدلة .

تعبناك معنا يا أبو اسامة العينبوسي

يعطيك ألف عافية

هذا لزيادة معلوماتي

قام بنشر

بالطبع أنا لاأرقي إلي مستوي أستاذي الفاضل أبو أسامه:-

ولكني سأحاول أن أجيبك.

تمت تسمية النطاق هكذا:-

-قم بتحديد النطاق المراد تسميته. ثم من قائمة Insert أختر Name ثم Define وحدد الأسم الذي تريده ثم أضغط OK

أرجو أن أكون قد وفقت في هذا الرد ويكون هو المطلوب.

قام بنشر (معدل)

السلام عليكم

بعد اذن السيد دينجر

ممكن ان تظلل النطاق المراد تسميته

ثم من الزاويه اليسرى (بجانب شريط الصيغه) اكتب الاسم الذي تريد ثم اضغط انتر

تم تعديل بواسطه ابو اسامة العينبوسي
قام بنشر

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

قام بنشر (معدل)

كيفية ؟؟

1 - عمل الفورم

بالدخول إلى قائمة Tools ثم بعد ذلك اختر macro ثم بعد ذلك اختر Visual Basiv أو بإختصار إضغط Alt + F11

ستجد اوراق العمل على اليسار تأكد من ذلك .

إضغط على أي ورقة من أوراقك باليمين ستظهر قائمة منسدلة أختر منها insert بعد ذلك اختر UserForm

الآن تم إنشاء فورم جديد

2 - انتقال البيانات من الفورم الى ورقة الكشف

هذا المطلوب موجود له مثال في المنتدى

افتح الشفرة وتعلم منها

قدر المستطاع

تم تعديل بواسطه سراب الليل
قام بنشر

كيفية عمل زر لاضافة طالب جديد 0

أنقر باليمين في شاشة الإكسل

ستظهر عندك قائمة منسدلة ستجد فيها Visual Basiv

ستجد صورة مطرقة و مفك اضغط عليها ستظهر لك مربع آخر ملئي بالأدوات

المطلوب منه هو الإزار Command Button

طريقة برمجتة على الفورم موضحه في الملفات المرفقة السابقة

وجزاك الله خيرا

قام بنشر

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

قام بنشر

الاخ العزيز آسف على ازعاجك لكن اريد منك شرح كيفية انتقال البيانات من الفورم الى صفحة الاكسل ولك عميق شكرى

قام بنشر (معدل)

أخي العزيز حرصا ً على أخواني المسلمين ألألذين أنارو لي هذا الطريق ليأخذو أجرهم مضاعف

لأقوم بتوصيل ماعلمني هؤلاء الشباب من الذكور و الإناث سأقوم بأذن الله شرح كيفية انتقال البيانات من الفورم إلى الإكسل

الشرح :

نقوم بإنشاء form داخل الإكسل

بعد ذلك نقوم بإنشاء text داخل form

ثم نقوم بإنشاء زرار داخل form

ثم نضغط على الزرار مرتين ستأتي البرمجة الخاصة بالإزرار

تأتي الشفرة التالية :

Private Sub CommandButton1_Click()

End Sub

هكذا تكون فارغة من الأوامر تمام

نقوم بإضافة بداية تنزيل البيانات

من الصف و العمود

Cells(5, 3).Select

5 هي الصف ستبدأ الكتابة في الصف التالي و هو 6

3 هو العمود ستبدأ الكتابة في العمود نفسه و هو 3

و هذا أمر الإدخال

ActiveCell.Offset(0, 2) = TextBox1.Value

2 هو العمود ستبدأ الكتابة في العمود نفسه

و هذا امر مسح في الأخير

TextBox1.Value = ""

الصورة النهائية للشفرة هي

Private Sub CommandButton1_Click()

Cells(5, 3).Select

Selection.End(xlDown).Offset(1, 0).Select

ActiveCell.Offset(0, 1) = TextBox3.Value

Columns.AutoFit

TextBox1.Value = ""

End Sub

ويعطيك العافية

تم تعديل بواسطه سراب الليل
قام بنشر

اخي سمير هنداوي

جزاك الله خير على هذه الكلمات

حبيت أذكرك بنقطة مهمة

أن أسمي هو سراب الليل

تمام يا سمير هنداوي

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information