07-10-2017, 06:59 PM
|
|
عضو فعال
|
|
تاريخ التسجيل: Jan 2010
المشاركات: 290
معدل تقييم المستوى: 15
|
|
الاخوة الزملاء
اليكم الدرس الثانى
كيفية عمل زر اضافة مع ادخال الاكواد
الفيديو
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 المسافة بين الفورم والحافة العلوية للشاة بالبيسكل
|