أكاديمية الصقر للتدريب
موضوع بعنوان :سؤال في طريقة عرض التاريخ فيظهر لدينا في النموذج كسريال
الكاتب :mmatary278


الأخوة الأفاضل: قمت بعمل الكود التالي للبحث عن رقم القيد، يقوم البرنامج بعرض التاريخ بهيئة serial number مثلاً 42890 بدلاً من التنسيق الخاص بالتاريخ كيف يمكن أن أقوم بتحويله إلى تنسيق تاريخ. مرفق لكم البرنامج وهو بسيط جداً.... 

Private Sub TextBox1_Change()
On Error Resume Next
lr = WorksheetFunction.CountIf(Range("a3:g10000"), CLng(TextBox1.Value))
If TextBox1.Value <> "" And lr = 1 Then
ComboBox1.Value = WorksheetFunction.VLookup(CLng(TextBox1.Value), Range("a3:g10000"), 2, 0)
TextBox3.Value = WorksheetFunction.VLookup(CLng(TextBox1.Value), Range("a3:g10000"), 3, 1)
TextBox4.Value = WorksheetFunction.VLookup(CLng(TextBox1.Value), Range("a3:g10000"), 4, 0)
TextBox5.Value = WorksheetFunction.VLookup(CLng(TextBox1.Value), Range("a3:g10000"), 5, 0)
TextBox6.Value = WorksheetFunction.VLookup(CLng(TextBox1.Value), Range("a3:g10000"), 6, 0)
TextBox7.Value = WorksheetFunction.VLookup(CLng(TextBox1.Value), Range("a3:g10000"), 7, 0)
Else
ComboBox1.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
End If


End Sub


يقوم هذا البرنامج بالبحث عن رقم القيد وبالتالي عرض البيانات الخاصة به في المربعات
سوف تلاحظ أن البرنامج يقوم بالفعل باحضار البيانات ولكن التاريخ يظهر بهيئة date serial كيف يمكن تعديل الكود ليعرض التاريخ بالتنسيق المتعارف والموجود في ورقة العمل1 ...