بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
لو انت مدخل بيانات وبتشتغل على اوراق عمل كتير وكل ورقة عمل عمل فيها بيانات مختلفة عن الورقة الاخرى
يبقى الدرس دة ليك
كيفية عمل فورم ادخال بيانات ديناميكى يعمل على عدد من اوراق العمل اكسيل بدون اكواد او برمجة
فى هذا الدرس سوف نقوم ببرمجة زر لفتح الفورم الخاص بادخال البيانات فى الاكسيل
من المعروف ان هناك فورم داخل برنامج الاكسيل فورم جاهز نقوم باظهارة من خلال اتباع مجموعة من الخطوات من الدخول الى customize The Ribbon والدخول الى Commands Not In The Ribbon ثم نختار فورم Form ونضغط علية فيظهر فى شريط الادوات الموجود اعلى برنامج الاكسيل .
الا ان هذا الفورم لايعمل الا على جدول بيانات جاهز او نطاق معرف بما اننا فى هذا الدرس لانريد ان نرتبط بجدول واحد لان عندنا عدد كبير من اوراق العمل نريد ادخال البيانات الية لذلك سوف نقوم بكتابة كود واحد فى زر ليقو بعدد من العمليات فى ان واحد
فى الخطوة الاولى يقوم بتسمية النطاق الموجود بة البيانات ويقوم ايضا باستدعاء الفوم ثم يوم بعمل حلقة تكرارية بين جميع الشيتات لكى يمسح جميع النطاقات المعرفة بنفس اسم النطاق الحالى
الكود
Sub
showform()
Dim
nName As Name
Range("a1").Select
Range("a1").CurrentRegion.Name
= "mydata"
ActiveSheet.ShowDataForm
For
Each nName In ActiveWorkbook.Names
If "mydata" = nName.Name Then nName.Delete
Next nName
End
Sub