كيفية تصميم أستبيان على الإكسيل وتحليل النتائج وعرض تقرير نهائى Excel Tutorial

طريقة عمل أستبيان على الإكسل بكل بساطة
'طريقة تفريغ الاستبانة الاحصائية من خلال الأداة التفاعلية Option Button
لطلب برنامج من تصميمنا..و متابعة أعمالنا 👇
/ code7programming
برجاء دعمنا بـ
لايك للفيديو Like
أشتراك فى القناة Subscribe
مشاركة الفيديو Share
الكود السمتخدم بالشرح
Sub Extract()
Dim Last As Integer
Last = Sheets(2).Range("B100000").End(xlUp).Row + 1
Sheet2.Cells(Last, "B").Value = Sheet1.Range("A16").Value
Sheet2.Cells(Last, "C").Value = Sheet1.Range("B16").Value
Sheet2.Cells(Last, "D").Value = Sheet1.Range("G15").Value
Sheet2.Cells(Last, "E").Value = Sheet1.Range("H15").Value
Sheet2.Cells(Last, "F").Value = Sheet1.Range("I15").Value
Sheet2.Cells(Last, "G").Value = Sheet1.Range("J15").Value
MsgBox "تم إرسال الإجابات", vbInformation, "تأكيد"
Sheet1.Range("A16").Value = ""
Sheet1.Range("B16").Value = ""
Sheet1.Range("G15").Value = ""
Sheet1.Range("H15").Value = ""
Sheet1.Range("I15").Value = ""
Sheet1.Range("J15").Value = ""
End Sub

[@amirabraham2405]

شكرا على جهودكم المبذولة , عمل متميز

[@alhassanabuelkhair]

العفو بارك الله فيكم

[@tawfeeqalsrori9092]

عمل رائع وجميل شكرا أستاذنا الغالي

[@alhassanabuelkhair]

شكراً لك بارك الله فيك

[@mohamadissawi2201]

شكرا الك يعطيك الف عافية

[@alhassanabuelkhair]

الله يعطيك العافيه 🌹🙏🙏

[@tamer_elshahat]

جميل جدا الله ينور 👏👏👏🌹🌹🌹

[@alhassanabuelkhair]

حبيبى استاذ تامر شكرا جزيلا لحضرتك

[@ashrafibrahim3972]

بارك الله فيك

[@alhassanabuelkhair]

شكرأً لك يا أستاذ أشرف

[@husseinmustafa4743]

رائع يا مستر بالتوفيق ان شاء الله

[@alhassanabuelkhair]

حبيبى يا مستر حسين

[@faris-math]

شكرا جزيلا على الشرح الرائع...
ونحتاج اضافة شرط على الكود بحيث لا يسمح اجراء الاستبانة للشخص مرتين

[@alhassanabuelkhair]

برارك الله فيكم استاذ فارس
فعلاً الشرط دا مهم عدم تكرار عمل الاستبانة لنفس الشحص
وكود الشرط دا موجود فعلا على القناة فى الفيديو دا
ua-cam.com/video/IkPqsmpiR8I/v-deo.html
بالتحديد كود منع تكرار الاسم بس نأخده ونطبقه عادى على خانة الاسم هنا

[@faris-math]

@@alhassanabuelkhair ... شكرا جزيلا على سرعة الرد ... بالتوفيق ان شاء الله

[@amalnajdi1778]

استخدمت الكود ولكن ظهر لي ؟؟؟؟؟ ايش المشكله انه مايعمل معي ؟!

[@alhassanabuelkhair]

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

[@abdullahal-shoaibi4303]

​@@alhassanabuelkhair لو سمحت رابط الفيديو حق حل مشكلة اللغة العربية

[@mufeedali2326]

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

[@alhassanabuelkhair]

فكرة رائعة استاذنا الفاضل
شكراً لحضرتك على تشجيعنا على المزيد

[@alhassanabuelkhair]

تم إضافة الكود بصندوق الوصف

[@malkey51]

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

[@alhassanabuelkhair]

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

[@malkey51]

@@alhassanabuelkhair ممكن تعطينا الخطوات التالية
عمل برنامج في الاكسل بشكل جميل زي الي تعملها، ترسل لأولياء امور طلاب مدرسة يعبوها وترجع للمدرسة كامل المعلومات في ملف اكسل، دون أن يطلع على المعلومات إلا المدرسة

[@almstr-9564]

شرح حقيقى جميل جدا ومجهود رائع واتمنى لو حضرتك مشترك بقناتى ونتبادل المعلومات فى الاوفيس عامه والاكسل خاصه

[@alhassanabuelkhair]

المستر الغالى أسف على التأخير فى الرد
طبعاً شرف لى التواصل مع حضرتك وتبادل المعلومات بما يخص الأوفيس والإكسيلِ

[@tawfeeqalsrori9092]

من فضلك تزويد متابعيك بملف العمل مع الكود

[@alhassanabuelkhair]

تمام أستاذنا الملف سيكون فى صندوق الوصف
تعديل ..المف أصبح فى صندوق الوصف

[@mufeedali2326]

عزيزي اين كود الاستبيان مش نازل او مدرج تحت الفيديو زي ما حضرتك قلت... تحياتي

[@alhassanabuelkhair]

تمام هنزل لحضرتك الملف اسفل الفيديو لما افتح الكمبيوتر

[@mohdahmed9171]

شرحك جميل
بس ممكن ياقلب تعكين رقمك ارسلك معي مشكله .

[@alhassanabuelkhair]

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

[@ahmedalfarsi6013]

زبط معايا بس متينزل تحت يضيف في نفس الصف كل مره

[@Feda98]

كل شي تمام لكن الاجابات يقول تم الارسال وهي ما انرسلت كيف الحل

[@alhassanabuelkhair]

تقصد لا يتم ترحيل البيانات إلى الشبت الثانى

[@Feda98]

@@alhassanabuelkhair نعم

[@Feda98]

@@alhassanabuelkhair ايش الحل

[@Feda98]

@@alhassanabuelkhair ايضا بخانة الاستطلاعات ابغى احط خانة اقتراحات العميل مو قادرة يرفض 😢💔

[@nooral-bughdadia7253]

الكود شغال لكنه يرسل الاجابات في نفس المكان

[@alhassanabuelkhair]

ممكن توضيح اكثر لو سمحت
يعنى ايه يرسل الاجابات فى نفس المكان

[@nooral-bughdadia7253]

يخزن لبيانات الجديدة في نفس البيات القديمه
يبقه في نفس السطر يعيد خزن البيانات