اظهار التاريخ عند دمج الخلايا

[sabah20267]

السلام عليكم

حياكم الله

عند جمع الخلايا يظهر التاريخ ارقام وكما بالملف المرفق

ارجو  التعديل لاظهار التاريخ

اظهار التاريخ عند الجمع.xlsx

[أ / محمد صالح]

 

جرب استعمال هذه المعادلة في الخلية F1

=CONCATENATE(A1,B1,C1,D1,TEXT(E1,"yyyy/mm/dd"))

بالتوفيق 

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

جرب هذا  الماكرو 

Sub CONCATENATE_CELLS()

    Dim CONCELL, myvariant As String
    Dim LR As Long
    Dim i As Integer

    LR = Cells(Rows.Count, 1).End(xlUp).Row
    CONCELL = Range("A2").Value
    
    Range("f:f").Value = ""
    Range("f" & 1).Value = "RESULT"

    For x = 2 To LR

        If Range("A" & x).Value <> "" Then
            CONCELL = Range("A" & x)
        End If

        Range("F" & x).Value = CONCELL & Range("B" & x).Value & Range("C" & x).Value & Range("D" & x).Value & Format(Range("E" & x).Value, "YYYY/MM/DD")
    Next

End Sub

 

MERGE CELLS.xlsm

[sabah20267]

جزيتم خير