JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

اكسيل vba | كيفية عمل فورم ادخال بيانات ديناميكى يعمل على اى عدد من الشيتات Dynamic Userform Excel

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

كيفية عمل فورم ادخال بيانات ديناميكى يعمل على اى عدد من اوراق العمل

كثير منا فى عملة من يقوم بادخال بيانات مختلفة فى عدد كبير من اوراق العمل ولكن البيانات الاساساية للجداول فى كل اوراق العمل تكون متشابهة .

لذلك قررنا ان نقوم بعمل يوزرفورم لادخال البيانات فى كل اوراق العمل من خلال فورم واحد فقط ديناميكى 

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


نقوم بالضغط دوبل كليك على زر الترحيل ليقوم بفتح نافذة الكود 

وكتابة الكود التالى


te Sub CommandButton1_Click()
Dim lr As Integer
Dim ws As Worksheet
Set ws = ActiveSheet
With ws
lr = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("a" & lr + 1).Value = lr - 3 + 1
.Range("b" & lr + 1).Value = Me.TextBox1.Value

.Range("c" & lr + 1).Value = Me.TextBox2.Value
.Range("d" & lr + 1).Value = Me.TextBox3.Value

.Range("e" & lr + 1).Value = Me.ComboBox1.Value 
End With
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.ComboBox1.Value = ""
MsgBox "Done", vbInformation, "ADmin"


End Sub

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

 كن سفيرا للعلم

لمشاهدة شرح الفيديو (رابط التحميل اسفل المقال)

لتحميل ملف العمل


الاسمبريد إلكترونيرسالة