فصل النصوص عن الأرقام من داخل الخلية الواحدة طريقتان ( Flash Fill - الدوال) #85 - إيكسل

[@izzatkiswani]

تحياتي أستاذ محمد
بصراحة وكلمة حق لم أصادف مثل هذا الشرح
ماشاءالله
ارجوك أستمر

[@izzat_kiswani]

شرح مميز جداً
💌

[@abduljaleelwees4879]

جزاك الله خيرا , و الله شرح ممتاز و أفكار نيرة , الله ييسر أمرك

[@izzat_kiswani]

شرح مميز جداً
👍✔

[@mostafaadel4954]

بارك الله فيكم وزادكم من فضله.. ممتع ومفيد والله نقلتني من الجاهلية للقرن ال٢١..

[@Reduce_Scan]

جزاك الله خيرا

[@mahmoudfarag9075]

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

[@scoophouse950]

كثر الله خيرك

[@Reduce_Scan]

جزاك الله خيرا

[@ابراهيمالرجب-ه9ط]

رائع

[@gamaldeghady]

اخى الفضل .. محمد حلمى .. اشكركم .. برجاء مراعاة ان يكون الصوت اعلى من ذلك

[@Reduce_Scan]

أهلا بأستاذنا وأسعد بتعليق حضرتك
والصوت هايكون أفضل إن شاء الله تعالى

[@mohamedelghareb4755]

تسلم على الشرح الممتاز

[@Reduce_Scan]

الله يكرمك وشكرا على دعمك

[@mohammedmillad6168]

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

[@Reduce_Scan]

ربنا يعزك
لو أكسل عند حضرتك نسخة 2013 فيما فوق
فاستخدم التعبئة التلقائية
ولو أقل استتخدم هاتين الدالتين المعرفتين
علما بأن الكودان يصلحا ايضا في الإصدرات التي قبل 2013
إستخراج الأرقام
Function LetterOut(rng As Range)
Dim i As Integer
For i = 1 To Len(rng)
Select Case Asc (Mid(rng.Value, i, 1))
Case 0 To 64, 123 To 197
LetterOut = LetterOut & Mid(rng.Value, i, 1)
End Select
Next i
End Function
إستخراج الحروف
Function NumberOut(rng As Range)
Dim i As Integer
For i = 1 To Len(rng)
Select Case Asc (Mid(rng.Value, i, 1))
Case 0 To 64, 123 To 197
Case Else
NumberOut = NumberOut & _
Mid(rng.Value, i, 1)
End Select
Next i
End Function

[@izzat_kiswani]

👍👍👍👍✌✌✌

[@ساميالعيدروس-ج2ط]

الصوت في اغلب التسجيلات نقي جدا لكن منخفض نوعا ما

[@Reduce_Scan]

حاضر

[@waleedaljuhaishe7591]

يوجد نصان و يوجد لكل نص رقم خاص به
مثلا
وليد ١٢٣٤٥ مصطفى ١٢٣٤٥
انا اريد فقط وليد و الرقم الخاص به بدون باقي الارقام

[@Reduce_Scan]

=LEFT(A1;SEARCH(" ";A1;SEARCH(" ";A1)+1)-1)
على فرض أن البيانات موجودة لديك في الخلية
A1

[@waleedaljuhaishe7591]

@@Reduce_Scan
رح اوضحلك المثال لان انا مش فاهم
في هذا المثال حاب استخرج كلمه P.O في خليه و الرقم في خليه اخرى
Item name bearing C3 dust prove P.O1234567 drawing number 564783
المثال الثاني وجود فراغ بين كلمة Part Number والرقم
Item name bearing C3 dust prove Part Nmuber 1234567 drawing number 564783

[@waleedaljuhaishe7591]

@@Reduce_Scan ممكن ايميل حضرتك حته ابعث المشكله الي عندي
شكرا و جزاك الله خير
ايميل
[e-mail]

[@miralehamd846]

انا عايزة فصل تاريخ الميلاد مع مكان الميلاد

[@Reduce_Scan]

رجاء كتابة مثال وسنجيب إن شاء الله