Akram Galal قام بنشر نوفمبر 2, 2016 مشاركة قام بنشر نوفمبر 2, 2016 لسادة الأفاضل أعضاء المنتدى كل عام وأنتم بخير أريد عمل فورمة بها عدد 1 TextBox وكود يقوم بالتأكد من أن تنسيق التاريخ الموجود في TextBox1 مطابق للتنسيق YYYY/MM/DD واذا لم يكن مطابق يظهر رسالة تفيد ذلك ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
Akram Galal قام بنشر نوفمبر 3, 2016 الكاتب مشاركة قام بنشر نوفمبر 3, 2016 للرفع رابط هذا التعليق شارك More sharing options...
محمد الريفى قام بنشر نوفمبر 3, 2016 مشاركة قام بنشر نوفمبر 3, 2016 جرب هذا الكود Dim dDate As Date Private Sub CommandButton1_Click() Sheet1.Range("A1").Value = dDate End Sub Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Mid(TextBox1.Value, 4, 2) > 12 Then MsgBox "Invalid date, please re-enter", vbCritical TextBox1.Value = vbNullString TextBox1.SetFocus Exit Sub End If dDate = DateSerial(Year(Date), Month(Date), Day(Date)) TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy") dDate = TextBox1.Value End Sub رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر نوفمبر 3, 2016 مشاركة قام بنشر نوفمبر 3, 2016 محمد الريفى اخى الفاضل جزاك الله خيرا وحشتنا مشاركاتك رابط هذا التعليق شارك More sharing options...
Akram Galal قام بنشر نوفمبر 3, 2016 الكاتب مشاركة قام بنشر نوفمبر 3, 2016 جزاك الله خيرا يا أ/ محمد وبارك الله لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.