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

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

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

 

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

من 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

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

اكرر شكري لك

أبو مروان

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

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

للتنويه

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

هل في طريقة

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