بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
فى كثير من الاحيان نحتاج الى ترحيل البيانات من اليوزرفورم الى اكثر من ورقة عمل فى الاكسل فهل الامر بهذة الصعوبة
لقد حاول كثير من مستخدمى تطبيق الاكسل اجراء هذا الموضوع ووقفت امامهم بعض العوائق .
من خلال هذا المقال سنتعرف سويا على طريقة سهلة جدا لترحيل البيانات من اليوزرفورم الى ملف الاكسيل .
الاكسل | ترحيل البيانات من اليوزرفورم الى اكثر من شيت فى نفس الوقت excel vba tutorial
فى البداية سوف نقوم بادراج يوزرفورم مكون من عدة بيانات كما فى الشكل التالى
ثم نكتب فيها الكود التالى
Private
Sub CommandButton1_Click()
Dim
lr As Integer
Dim
lr2 As Integer
Dim
ws As Worksheet
Dim
ws1 As Worksheet
Set
ws = Sheet1
Set
ws1 = Sheet2
lr
= ws.Cells(Rows.Count, 1).End(xlUp).Row
lr2
= ws1.Cells(Rows.Count, 1).End(xlUp).Row
With
ws
.Select
.Range("a"
& lr + 1).Value = Me.TextBox1.Value
.Range("b"
& lr + 1).Value = Me.TextBox2.Value
.Range("c"
& lr + 1).Value = Me.TextBox3.Value
End
With
'===================================
With
ws1
.Select
.Range("a"
& lr2 + 1).Value = Me.TextBox4.Value
.Range("b"
& lr2 + 1).Value = Me.TextBox5.Value
.Range("c"
& lr2 + 1).Value = Me.TextBox6.Value
End
With