Public Function SplitText(WorkRng As Range, Number As Boolean) As String
   Dim xLen As Long
   Dim xStr As String
   
   xLen = VBA.Len(WorkRng.Value)
   For i = 1 To xLen
     xStr = VBA.Mid(WorkRng.Value, i, 1)
     If (((VBA.IsNumeric(xStr) And Number) Or (xStr = "-" And Number)) Or (Not (VBA.IsNumeric(xStr)) And Not (Number) And Not xStr = "-")) Then
       SplitText = SplitText + xStr
     End If
   Next
 End Function

Public Function SplitText(WorkRng As Range, Number As Boolean) As String
   Dim xLen As Long
   Dim xStr As String
   Dim n    As String
   xLen = VBA.Len(WorkRng.Value)
   For i = 1 To xLen
     xStr = VBA.Mid(WorkRng.Value, i, 1)
     If xStr = "-" Then n = "-" Else n = "/"
     If (((VBA.IsNumeric(xStr) And Number) Or (xStr = n And Number)) Or (Not (VBA.IsNumeric(xStr)) And Not (Number) And Not xStr = n)) Then
       SplitText = SplitText + xStr
     End If
   Next
 End Function

الدالة المعرفه TND على اساس T=Text و N=Number و D=Date
كود الدالة

Function TND(txt As String, v As String)
Dim i%, chk$, t$, n$, d$, b$, break As Boolean
    b = Mid(v, 2, 1)
        For i = 1 To Len(txt) + 1
            If Len(v) = 2 Then break = Mid(txt, i, 2) Like b & "#" Or Mid(txt, IIf(i - 1 = 0, 1, i - 1), 2) Like "#" & b
            If IsNumeric(Mid(txt, i, 1)) Or break Then
                chk = chk & Mid(txt, i, 1)
            Else
                If IsDate(Replace(chk, b, "/")) Then d = d & IIf(d = "", Replace(chk, b, "/"), "") Else n = n & Replace(chk, b, "")
                chk = ""
                t = t & Mid(txt, i, 1)
            End If
        Next i
        Select Case LCase(v)
            Case "t", "t" & b: TND = t
            Case "d" & b: If d = "" And b <> "" Then TND = "" Else TND = DateValue(d)
            Case "n", "n" & b: TND = IIf(n = "", "", Val(n))
            Case Else: TND = CVErr(xlErrValue)
        End Select
End Function

طيب الدالة بتعمل ايه (قلبظ بجنيه)
اول باراميتر دخل النص
والتانى
اما T لاستخراج النص او T/ اى T والفاصل بين التاريخ وذلك لاستبعاد تنسيقات التاريخ من النص
واما N لاستخراج الرقم او N/ اى N والفاصل بين التاريخ وذلك لاستبعاد تنسيقات التاريخ من الرقم
واما /D لاستخراج التاريخ نفس الكلام هنا / الفاصل ولازم تكتب الفاصل لو هتستخرج تاريخ (تقدر تكتب اى فاصل عدا علامة * وعلامة ؟)

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

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

المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب يا راجل يا مستقظ كل ده ما السطرين حلوبن وخلاص بس نعمل ايه للتاتشات بتاعتك

شبوه يا د ف ع ه

حبيبي

انا مستقظ لا مسمحش بكدا طول عمرى مستنام مش بستيقظ انا

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

احم احم من غير لوك لوك بقى انت كتبت D وبس، اولم اقل اكتب D والفاصل بين التاريخ
يعنى انت الفاصل هنا عامله العلامة - يبقى تكتب كدا D- ولو علامة / يبقى تكتب كدا D/ تمام اغالى
او شغلها على الاتنين كدا مثلا وكبر الدى وروق الجى

=TND($A2,"d"&IF(ISNUMBER(FIND("-",A2)),"-","/"))

وفيه طرق كتير اسهل تستخدم اكتر من فاصل فى وقت واحد بس زى ما تقول كدا كسلت
سيبك انت من الكلام دا وتعالى اشرب شيشه تفاااااااح

المشاركة الأصلية كتبت بواسطة: Eslam Abdullah ايه دا فى الكودين مره واحده ، ايه اللى جرا فى العالم ياجودعااااااان
وبعدين تطلع مشكله فى اكواد المنتدى دا كود وتيجى عندى وتعشق وتركن على جنب
ليه بقى انت هنا تتعامل مع جندى مدرب على احدث الاسلحه فى العالم وممكن فى اى لحظة تهور اطخك بالنار

احم احم من غير لوك لوك بقى انت كتبت D وبس، اولم اقل اكتب D والفاصل بين التاريخ
يعنى انت الفاصل هنا عامله العلامة - يبقى تكتب كدا D- ولو علامة / يبقى تكتب كدا D/ تمام اغالى

سيبك انت من الكلام دا وتعالى اشرب شيشه تفاااااااح