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

[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

 

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

[mohamedyousef]

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

اخي الكريم الاستاذ عبدالله اولا كل عام وحضرتك بخير والف شكر على اهتمامك بمشكلتي والف شكر على المساعدة انا والحمد لله توصلت للاضافة كود جديد حل المشكلة وحبيت انقله لحضرتك داخل زر اضافة وعند textbox5,6 اضفت قبلها هذا الكود

rng.Offset(0, 4).Value = CDate(Me.TextBox5.Value)
rng.Offset(0, 5).Value = CDate(Me.TextBox6.Value)

وتم حل المشكلة والحمد لله تعبت حضرتك معايا حبيت اشكركك بالحل 

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

اخي الكريم كان هناك طلب اخير كنت محتاج في الليست بوكس اظهر بداخله عناوين الجدول والاجماليات ليكون الشكل اجمل من الموجود فهل في الامكان واكون شاكر

 

[mohamedyousef]

اخي الكريم لي طلب اخير هل في الامكان اضافة عنواين الجدول داخل الليست بوكس بالاجماليات بدل الموجود حاليا واكون شاكر