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

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

درس جديد من كورس تعليم الاكسل vba

ترحيل البيانات الى اى عدد من اوراق العمل من خلال اليوزرفورم DATA ENTRY USERFORM

يعتبر ترحيل البيانات إلى عدة شيتات من خلال UserForm في Excel VBA يمكن أن يكون ذا أهمية كبيرة لعدة أسباب:

1. زيادة الكفاءة:

- بإمكانك توفير الوقت والجهد عن طريق استخدام UserForm لإدخال البيانات بدلاً من إدخالها يدويًا في كل ورقة عمل.

2. تجنب الأخطاء:

- باستخدام UserForm، يمكنك تقليل فرص الخطأ أثناء إدخال البيانات، حيث يمكنك التحقق من صحة البيانات قبل نقلها إلى الشيتات المختلفة.

3. التنظيم والهيكلة:

- من خلال نقل البيانات إلى شيتات مختلفة، يمكنك تنظيم البيانات بشكل أفضل وتقسيمها وفقًا للمعايير المحددة.

4. سهولة الاستخدام:

- UserForm يمكن أن يوفر واجهة مستخدم بديهية تجعل عملية إدخال ونقل البيانات أسهل وأكثر فعالية.

5. قابلية التوسع:

- باستخدام UserForm، يمكنك بسهولة توسيع النظام ليتضمن مزيد من الشيتات أو المعالجات دون الحاجة لتغيير الكود بشكل كبير.

باختصار، ترحيل البيانات إلى عدة شيتات من خلال UserForm في Excel VBA يساعد في تحسين الكفاءة والدقة ويوفر واجهة مستخدم مريحة لتنظيم ونقل البيانات بطريقة سهلة وسريعة.

وفى هذا الدرس عندنا مجموعة من الاكواد سوف نتعلمها مع بعض

الكود الاول: كيفية تعبئة الكومبوكس باسماء اوراق العمل الموجودة فى الملف

Private Sub UserForm_Initialize()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

Me.ComboBox1.AddItem ws.Name

Next ws

End Sub

من خلال هذ الكود قمنا بادراج كل اسماء اوراق العمل داخل الكومبوبوكس

الكود الثانى : كود اضافة اوراق عمل جديدة

Private Sub CommandButton4_Click()

chosename = InputBox("اختار اسم الشيت")

Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = chosename

Sheet1.Range("a1:c1").Copy ActiveSheet.Range("a1:c1")

ActiveSheet.Range("a1:c1").ColumnWidth = 23

Me.ComboBox1.Clear

UserForm_Initialize

من خلال هذا الكود نقوم بادارج ورقة عمل جديدة بعد اخر ورقة فى الملف وادرجها ايضا داخل الكومبوكس

الكود الثالث : كود الترحيل الى اى عدد من اوراق العمل

Private Sub CommandButton3_Click()

If Me.ComboBox1.Value = "" Then

MsgBox "عفوا يجب اختار الشيت المرحل الية البيانات"

Exit Sub

End If

Worksheets(Me.ComboBox1.Value).Activate

Dim lastrow

lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

lastrow = lastrow + 1

Cells(lastrow, 1) = TextBox1.Text

Cells(lastrow, 2) = TextBox2.Text

Cells(lastrow, 3) = TextBox3.Text

End Sub

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

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

قد يعجبك ايضا

كلمات مفتاحية

.UserForm, ,Excel VBAنقل البيانات, شيت Excel, واجهة المستخدم ,. تحكمات اليوزرفورم ,TextBox

,. CommandButton ,إدخال البيانات,توجيه البيانات, معالجة البيانات, تنظيم البيانات . Excel Worksheet. تطوير VBA. كفاءة العمل, سهولة الاستخدام, دقة البيانات,. برمجة الأوراق,تحسين الإنتاجية, تطبيقات الأعمالا