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

أبريل 26, 2017

اولاً:- نفتح محرر الاكواد من خلال الضغط على تبويب  Developer

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

ثالثاً:-  نقوم بإدراج  CommandButton

رابعاً:- نقوم بالضغط على زر  CommandButton  حتى نتمكن من كتابة الكود بداخله كالتالى :

Private Sub id_Change() x = WorksheetFunction.CountIf(Sheet1.Range("a:a"), Val(Me.id.Value)) Set ws = Application.WorksheetFunction With Me If .id.Value <> "" And x <> 0 Then nam = Application.WorksheetFunction.VLookup(CLng(Me.id.Value). ( Sheet1.Range("lookup"), 2, 0), adress = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 3, 0) phone = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 4, 0). account = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 5, 0). End If End With End Sub  

  

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

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

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