الدرس الثانى :- كود يوزرفورم لتعديل البيانات من خلال اليوزرفورم

أبريل 24, 2017

اولاً:- نقوم بفتح محرر الاكواد Developer

ثانياً :- ندرج يوزرفورم جديد  Insert UserForm

ثالثاً :- ندرج زر CommandButton ثم نضغط عليه مرتين بزر الماوس الايسر

خامساً :- نكتب الاكواد التاليه بداخل زر CommandButton

Private Sub CommandButton1_Click() For Each y In Range("a2:e100") If y = Me.textbox1.Text Then y.Select ActiveCell.Offset(0, 1).Value = Me.textbox2.Text ActiveCell.Offset(0, 2).Value = Me.textbox3.Text ActiveCell.Offset(0, 3).Value = Me.textbox4.Text ActiveCell.Offset(0, 4).Value = Me.textbox5.Text End If Next "تم تعديل البيانات بنجاح" MsgBox End Sub  

  

* اخيراً لا ننسى ان نقوم بحفظ الاكواد السابقه داخل محرر الاكواد VBE.

فيسبوك تويتر لينكدين واتساب

مواضيع ذات صلة