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

يوليو 22, 2017

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

ثانياً:- نفتح محرر الاكواد Visual Basic

ثالثاً:- نقوم بإدراج يوزرفورم جديد وندرج به زر Textbox

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

Private Sub TextBox1_Change() lr = WorksheetFunction.CountIf(Range("a2:A100"), Val(TextBox1.Value)) If TextBox1.Value <> "" And lr = 1 Then TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("a2:i100"), 2, 0) TextBox3.Value = Format(WorksheetFunction.VLookup(Val(TextBox1.Value), Range("a2:i100"), 3, 0), "yyyy/mm/dd") TextBox4.Value = Format(WorksheetFunction.VLookup(Val(TextBox1.Value), Range("a2:i100"), 4, 0), "yyyy-mm-dd") TextBox5.Value = CDate(WorksheetFunction.VLookup(Val(TextBox1.Value), Range("a2:i100"), 5, 0)) TextBox6.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("a2:i100"), 6, 0) Else "" =TextBox2.Value ""= TextBox3.Value ""=TextBox4.Value ""=TextBox5.Value ""=TextBox6.Value End If End Sub  

  

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

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

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