ضبط التواريخ في صغحة الحدث

[sabah2023]

السلام عليكم

محتاج كود يضبط التواريخ

اليوم/الشهر/السنة

ضبط التواريخ في صفحة الحدث.xlsx

[محمد هشام.]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, B As Range, j As Range, lr As Long
    
lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
Application.ScreenUpdating = False

    Set A = Range("R2:R" & lr)
    Set B = Range("D2:F" & lr)
    
    For Each j In Union(A, B)
        With j
'Modify it to suit you
'.NumberFormat = "mm/dd/yyyy"

 .NumberFormat = "yyyy/dd/mm"
 
        End With
    Next j
    
Application.ScreenUpdating = True

End Sub

 

تم تعديل سبتمبر 10, 2023 بواسطه محمد هشام.

[sabah2023]

تسلم

[sabah2023]

السلام عليكم

بعد القيام بادخال البيانات في الصفحة

تبين وجود عدم تنسيق بعض التواريخ

ضبط التواريخ في صفحة الحدث (1).xlsm

[احمد عبدالحليم]

ممكن بدون اكواد 

تحدد الأعمدة التى تحتوى على تاريخ وتعديل التنسيق إلى التاريخ بالشكل الذي تريده

 

[sabah2023]

لا تتوحد التواريخ

[احمد عبدالحليم]

قم بتحديد العمود بأكمله من الاعلى 

[عبدالفتاح في بي اكسيل]

@sabah2023

,لكن  كيف  عمل  معك  الكود  من البداية ؟!!

طلبك يكون مثل هذا بناء على مشاركتك الاولى  2023/08/23

الكود  لا يفعل ذلك !

عليك تغيير هذا  السطر من 

 .NumberFormat = "yyyy/dd/mm"

الى 

 .NumberFormat = "yyyy/mm/dd"

 

[sabah2023]

والله يا استاذ حاولت كل الطرق

ولكن دون جدوى

بعض التواريخ تنضبط

وبعضها لا يضبط

واخذت مني وقت طويل ولكن دون جدوى

وحين طلبت من المرسل ارسال الملف بي دي اف لأتاكد من التواريخ 

ظهر لي بان التواريخ مرسلة صحيح اليوم الشهر السنة

ولكن عند وضعها بملف الجمع بحاسبتي

تتغير التواريخ

وهنا يصعب عليه عمل الفترة

تم تعديل سبتمبر 10, 2023 بواسطه sabah2023

[حسونة حسين]

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

تم حل مشكله التاريخ في هذا الرابط