ضبط صيغة التاريخ

[mohamedyousef]

السلام عليكم ورحمة الله

السادة الكرام

الملف المرفق احتاج فيه ضبط على صيغة التاريخ بمعنى عند التسجيل في الفورم رقم 6 وفي خانة التاريخ اكتب التاريخ بصيغة 06/09/2025 وعند الخول الى ملف العمل اجد التاريخ يبدأ بالشهر الاول ثم اليوم ثم السنة 

محتاج عند الكتابة في الفورم يكون نفس الصيغة داخل ملف العمل ولسيادتكم وافر التحية 

 

 

تاريخ.xlsm

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

اعتقد المشكلة  ان الاكسل يحاول تفسير التواريخ وفقاً لإعدادات النظام الإقليمية

واعتقد ان المشكلة في الشهور من1 الى 9 فقط  امالشهور 10-11-12 لا مشكلة 

الحل هو معاملة القيم كنص بدلاً من تاريخ

جرب الكود التالي في زر اظافة  مع اعادة تنظيم  واختصارالكود  جرب واعلمنى بالنتائج وفقك الله 

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    Dim ws As Worksheet, rng As Range
    Set ws = Sheet1
    If Me.TextBox4 = "" Then: Exit Sub
    
    Set rng = ws.Range("a10000").End(xlUp).Offset(1, 0)
    
    rng.Offset(0, 0).Value = Me.TextBox1.Value
    rng.Offset(0, 1).Value = Me.TextBox2.Value
    rng.Offset(0, 2).Value = Me.TextBox3.Value
    rng.Offset(0, 3).Value = Me.TextBox4.Value
    
    rng.Offset(0, 4).Value = "'" & Me.TextBox5.Text
    rng.Offset(0, 5).Value = "'" & Me.TextBox6.Text
    
    rng.Offset(0, 6).Value = Me.TextBox7.Value
    rng.Offset(0, 7).Value = Me.TextBox8.Value
    
Dim i As Long
    For i = 1 To 8
        Controls("TextBox" & i).Value = ""
    Next i
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub

 

تم تعديل منذ 4 ساعات بواسطه عبدالله بشير عبدالله