بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وفيديو جديد من دروس اكسل 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
وبهذا نكون قدانتهينا من شرح درس اليوم
اذا اعجبك الشرح لا تبخل علينا بمشاركتة على وسائل التواصل الاجتماعى
كن سفيرا للعلم
لمشاهدة شرح الفيديو (رابط التحميل اسفل المقال)