[مجدى يونس]

الاخوة الزملاء

اليكم الدرس الثانى

كيفية عمل زر اضافة مع ادخال الاكواد

الفيديو


https://youtu.be/5HSTW8c5xAw

الكود المستحدم فى الشرح

الكود:Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("بيانات")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
ws.Cells(iRow, 7).Value = Me.TextBox7.Value
ws.Cells(iRow, 8).Value = Me.TextBox8.Value
ws.Cells(iRow, 9).Value = Me.TextBox9.Value
ws.Cells(iRow, 10).Value = Me.TextBox10.Value
ws.Cells(iRow, 11).Value = Me.TextBox11.Value

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox1.SetFocus

شرح

UserForm1.Show يستخدم لعرض الفورم ويجب ادراجه في موديل يمكنك إنشاء زر في ورقة عمل، ثم انقر بزر الماوس الأيمن لتعيين الماكرو إلى هذا الزر، ثم حدد الماكرو الذي يظهر في UserForm Unload UserForm1 يستخدم لاخفاء الفورم وتفريغ الذاكرة Unload Me نفس وظيفة الامر السابق UserForm1.Hide يستخدم لاخفاء الفورم مؤقتا بمعني انه مازل موجود بالذاكرة UserForm1.PrintForm يستخدم لطباعة الفورم UserForm1.Show False يمكن المستخدم من العمل علي الاكسيل مع وجود الفورم End يستخدم في زر امر لانهاء الفورم UserForm1.Caption = "officena." النص الذي يظهر اعلي الفورم UserForm1.Height = 350 تعيين ارتفاع الفورم UserForm1.Width = 550 تعيين عرض الفورم UserForm1.Left = 30 المسافة بين الفورم والحافة اليسري للشاشة بالبيسكل UserForm1.Top = 50 المسافة بين الفورم والحافة العلوية للشاة بالبيسكل