صيغة التاريخ بالهجري_ تنسيق اتجاه القراءة من اليمين الى اليسار

[محمد بن سعود]

مطلوب تعديل الصيغة في خانة التاريخ بالهجري 

 

المطلوب التعديل 

من 01/05/1446هـ

إلى 1446/05/01هـ

 

مثل التاريخ.xlsx

[أبومروان]

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

يمكنك استخدام صيغة. إليك كيفية القيام بذلك:

في خلية فارغة، أدخل التاريخ بالتنسيق 1446/05/01.

في خلية أخرى، استخدم الصيغة التالية

=TEXT(A1, "yyyy/mm/dd") & "هـ"

حيث A1 هي الخلية التي تحتوي على التاريخ.

اضغط على Enter. ستظهر النتيجة بالتنسيق 1446/05/01هـ.

إذا كنت تفضل، يمكنك أيضًا إدخال التاريخ مباشرة مع "هـ" كما يلي:

اكتب في الخلية: 1446/05/01هـ.
لكن تذكر أن ذلك سيعطي Excel نصًا وليس تاريخًا، لذلك ستفقد بعض وظائف التاريخ. استخدام الصيغة هو الخيار الأفضل إذا كنت تحتاج إلى التعامل مع التواريخ بشكل أكبر

[محمد بن سعود]

اولاً

اشكرك ابو مروان على ردك

ثانياً

انا محتاج خانة وحده فقط ادخل فيها التاريخ

ويكون 1446/05/01 بدون وضع (هـ) بالاخير

انت شرحت 

خلية فارغة، أدخل التاريخ بالتنسيق 1446/05/01.

في خلية أخرى، استخدم الصيغة التالية

=TEXT(A1, "yyyy/mm/dd") & "هـ"

هل من الممكن تكون خليه وحده ادخال فيها التاريخ 1446/05/01

 

[أبومروان]

اليك حل اخر بالاكواد لعله يفيد حضرتك

وممكن تعدل عليه علي حسب رغبه حضرتك 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim hijriDate As String
    
    ' تعيين الورقة النشطة
    Set ws = ThisWorkbook.Sheets("Sheet1") ' تأكد من تغيير اسم الورقة إذا كان مختلفًا
    
    ' التحقق إذا كان التغيير في النطاق X3 إلى آخر خلية تحتوي على بيانات
    If Not Intersect(Target, ws.Range("X3:X" & ws.Cells(ws.Rows.Count, "X").End(xlUp).Row)) Is Nothing Then
        ' العثور على آخر صف يحتوي على بيانات في العمود X
        lastRow = ws.Cells(ws.Rows.Count, "X").End(xlUp).Row
        
        ' تكرار عبر الصفوف من X3 إلى آخر صف
        For i = 3 To lastRow
            ' قراءة التاريخ الهجري من الخلية
            hijriDate = ws.Cells(i, "X").Value
            
            ' التحقق إذا كانت الخلية تحتوي على تاريخ
            If hijriDate <> "" Then
                ' التحقق إذا كان حرف "هـ" موجودًا بالفعل
                If InStr(hijriDate, "هـ") = 0 Then
                    ' تحويل التاريخ إلى التنسيق المطلوب وإضافة حرف "هـ"
                    ws.Cells(i, "X").Value = Format(hijriDate, "yyyy/mm/dd") & "هـ"
                End If
            End If
        Next i
    End If
End Sub

 

 

مثل التاريخ.xlsm

[محمد بن سعود]

اكرر شكري لك

أبو مروان

على سرعة الاستجابة

ما شاء الله تبارك الرحمن جداً الكود ممتاز

للتنويه

عندي ثلاثة اعمده فيهم تواريخ وليس عمود واحد

هل في طريقة

تطبق بهذا الكود ويعمل على الثلاثة الاعمدة

 

[ابوخليل]

السلام عليكم

حيث ان الأخ محمد من الأصدقاء القدامى .. وقد راسلني .. فهذه المشاركة قد تكون هي الأولى لي في منتدى جيراننا الأكارم

 مشاركة مع اخي ابي مروان وبعد اذنه

في 4‏/11‏/2024 at 23:15, محمد بن سعود said:

ويكون 1446/05/01 بدون وضع (هـ) بالاخير

 

يلزم تحديث الخلايا لديك لإزالة حرف الهاء قبل تشغيل الدالة

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

Sub Utest()
    Dim urg As Range
    Set urg = Range("J2:L10") 'غير حسب النطاق لديك
    Dim UCell As Range
    For Each UCell In urg
        UCell.NumberFormat = "@"
        If UCell.Value = "" Then UCell.Value = ""
        UCell.Value = Format(UCell.Value, "YYYY/MM/DD")
       Next
    End Sub

 

[hegazee]

حلول رائعة من أساتذتي الكرام فلهم كل الشكر و التقدير. إضافة بسيطة قمت بتعديل الملف من خلالها و هي التحكم في الخلايا التي أريد تنسيقها و كذلك إضافة "هـ" بعد التاريخ من خلال زر.

مثل التاريخ.xlsm