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

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

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

ميكروسوفت أوفيس | الاكسل | ترحيل البيانات من اليوزرفورم الى اكثر من شيت فى نفس الوقت excel vba tutorial

 بسم الله الرحمن الرحيم 

اهلا بكم متابعى موقع عالم الاوفيس

فى كثير من الاحيان نحتاج الى ترحيل البيانات من اليوزرفورم الى اكثر من ورقة عمل فى الاكسل فهل الامر بهذة الصعوبة 

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

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

الاكسل | ترحيل البيانات من اليوزرفورم الى اكثر من شيت فى نفس الوقت 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

 


وفى هذا الكود نقوم بتعريف عدة متغيرات مثل LR , LR2 ,WS ,WS1 وذلك للتعبير عن اخر صف فية بيانات واكل متغير WS  يعبر عن شيت معين
وبعدذلك نقوم ببدء عملية ترحيل البيانات الى الشيت ثم الى الشيت الثانى وهكذا 

للمزيد من المعلومات يرجى مشاهدة فيديو الشرح




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

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