moxfox قام بنشر ديسمبر 12, 2020 مشاركة قام بنشر ديسمبر 12, 2020 الساده الافاضل تم تنزيل بيانات حاولت مرراً و تكرارً تعديل التاريخ بدون فائده التاريخ الذى تم تنزيله Nov 1 2020 Dec 10 2020 التاريخ الصحيح 01/11/2020 10/12/2020 * مرفق ملف اكسيل معادله لتحويل التاريخ.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 12, 2020 مشاركة قام بنشر ديسمبر 12, 2020 البيانات في الغمود A هي مجرد نصوص و ليس تواريخ الصورة توضح ذلك رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 12, 2020 أفضل إجابة مشاركة قام بنشر ديسمبر 12, 2020 جرب هذا الماكرو لعله يكون المطلوب (فقط اصغط الزر Run ) Option Explicit Sub Text_to_date() Dim st, i%, m%, k%, ro Dim arr() Dim My_dat As Date Dim stg ro = Cells(Rows.Count, 1).End(3).Row If ro < 2 Then Exit Sub Range("C2:C" & ro).ClearContents For i = 2 To ro st = Split(Cells(i, 1)) For k = LBound(st) To UBound(st) If st(k) <> "" Then ReDim Preserve arr(m) arr(m) = st(k) m = m + 1 End If Next k On Error Resume Next stg = """" & arr(2) * 1 & " " & arr(0) & " " & arr(1) * 1 & """" If Err.Number > 0 Then GoTo Next_I If IsDate(Evaluate(stg)) Then My_dat = Evaluate(stg) Cells(i, 3) = My_dat End If Next_I: Erase arr: m = 0: On Error GoTo 0 Next i End Sub الملف مرفق Text_to dat.xlsm 3 1 رابط هذا التعليق شارك More sharing options...
moxfox قام بنشر ديسمبر 14, 2020 الكاتب مشاركة قام بنشر ديسمبر 14, 2020 شكرا لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها