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

أغسطس 09, 2017

اولاً:- نقوم بفتح تبويب Developer 

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

ثالثاً :- ندرج زر CommandButton

ثم نقوم بالضغط على زر CommandButton  مرتين بزر الماوس الايسر ونكتب الاكواد التاليه :

Private Sub CommandButton2_Click() For Each x In Range("a2:e100") If x = id.Text Then x.Select Exit For End If Next x Range(ActiveCell, ActiveCell.Offset(0, 4)).Delete MsgBox "تم الحذف بنجاح" Me.Name.Text = "" Me.account.Value = "" Me.phone.Value = "" Me.id.Text = "" id.SetFocus  

  

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

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

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