البحث عن قيمة داخل نص

[ابوسلماان]

الاعزاء مساء الخير،،

لدي اسم ملف ( نص ) 

03-05-21377-2
 

كما هو ملاحظ  الاسم يتكون من 4 فواصل بين كل فاصل وفاصل "داش".

المطلوب وضع دالة في عمود التكويد 1 وعمود التكويد 2 وعمود التكويد 3 وعمود التكويد 4 ،
لكي نحصل على تقسيم النص الى 4 ارقام. كل رقم منفصل يوضع في عمود.
03                05             21377              2

وفعليا استطعت الحصول على دالة الرقم الاول والثاني ،، ومتبقي علي الحصول على الرقم الثالث والرابع.

موضح المطلوب بالملف المرفق.

معادلة البحث عن قيمة داخل نص.xlsx

[lionheart]

Sub Test()
    Dim v, r As Long, i As Long, m As Long
    m = Cells(Rows.Count, 1).End(xlUp).Row
    Range("B7:F" & m).NumberFormat = "@"
    For r = 7 To m
        v = Split(Replace(Cells(r, 1).Value, ".pdf", ""), "-")
        For i = 0 To 3
            If i > 1 Then Cells(r, i + 3).Value2 = CStr(v(i)) Else Cells(r, i + 2).Value = CStr(v(i))
        Next i
    Next r
End Sub

 

[ابوسلماان]

استاذنا العزيز

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

[محمد حسن المحمد]

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

كود رائع جزاكم الله خيراً.

[lionheart]

In cell B7

=TRIM(MID(SUBSTITUTE($A7, "-", REPT(" ", 100)), 100*COLUMNS($B1:B1) - 99, 100))

In cell C7

=TRIM(MID(SUBSTITUTE($A7, "-", REPT(" ", 100)), 100*COLUMNS($B1:C1) - 99, 100))

In cell E7

=TRIM(MID(SUBSTITUTE($A7, "-", REPT(" ", 100)), 100*COLUMNS($B1:D1) - 99, 100))

In cell F7

=SUBSTITUTE(TRIM(MID(SUBSTITUTE($A7, "-", REPT(" ", 100)), 100*COLUMNS($B1:E1) - 99, 100)),".pdf","")

But using the code is easier and cleaner and you ust get the values

[محمد حسن المحمد]

ما شاء الله بارك الله معادلات رائعة جداً أيضاً.

أحسنتم بارك الله بكم

[ابوسلماان]

ممتاز باش مهندس ،،،   بارك الله فيك

مشكور بحجم السماء 🌹