نسخ مكونات خلية بدون الصيغ

[جمال حسين رشدان]

بسم الله الرحمن الرحيم

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

اعضاء المنتدى الكرام

لدي ملف اكسيل به خلية A1 بتنسيق التاريخ YYYY/MM/DD

اريد نسخ محتوى A1 الى B2 بدون التنسيق بحيث تظهر الخلية B2 هكذا " 2019/08/05 " ولكن بدون تنسيق تاريخ عن طريق كود VBA

ارجوا انا اكون وضحت الفكرة وقد ارفقت ملف يوضح ذلك

وشكرا جزيلا لكم

نسخ المحتوى دون المعادلات.xlsxFetching info...

[سليم حاصبيا]

اكتب في الخلية   هذه المعادلة (لاحاجة للكود)

=TEXT(A1,"yyy/mm/dd")

or

=TEXT(A1;"yyy/mm/dd")

 

[جمال حسين رشدان]

جزاك الله خيرا استاذ سليم ولكن هل يمكن عمل ذلك من خلال vba

[سليم حاصبيا]

هذا الماكرو

Option Explicit
Sub Date_To_Text()
Range("c1").CurrentRegion.ClearContents
Dim cel As Range
 Range("a1").CurrentRegion.Offset(, 2) _
.Formula = "=TEXT(A1,""yyy/m/d"")"
 For Each cel In Range("c1").CurrentRegion
  cel.Value = "'" & cel.Value
 Next
End Sub

الملف مرفق

 

Text_date.xlsmFetching info...

[أحمد يوسف]

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

فلابد من الضغط له على الإعجاب وذلك كما بالصورة