أكاديمية الصقر للتدريب
(نسخة قابلة للطباعة من الموضوع)
https://excel-egy.com/forum/t2585
أنقر هنا لمشاهدة الموضوع بهيئته الأصلية

سؤال في طريقة عرض التاريخ فيظهر لدينا في النموذج كسريال
mmatary278 07-11-2018 03:22 مساء
الأخوة الأفاضل: قمت بعمل الكود التالي للبحث عن رقم القيد، يقوم البرنامج بعرض التاريخ بهيئة 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 ... 
أكاديمية الصقر للتدريب

Powered by PBBoard ©Version 3.0.2