معالجة كود لا ينفذ لفصل المتن عن الرقم

[محمد لؤي]

السلام عليكم

ممكن معالجة  كود لا ينفذ لفصل المتن عن الرقم

أو استبدال الكود بـ معادلة

اعزكم الباري 

جزيتم خيرا

 

 

فصل المتن عن الرقم.rar

[ياسر خليل أبو البراء]

وعليكم السلام أخي محمد
من أين حصلت على تلك البيانات بهذا الشكل؟

الأرقام ليست بأرقام في الواقع .. لذا سيكون من الصعب التعامل قليلاً مع المشكلة

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

إن شاء الله سأصل لحل لها

 

[محمد لؤي]

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

مرحبا استاذ

جائتني عن طريق الفايبر كرسالة

[مختار حسين محمود]

بعد اذن أستاذى ياسر

تفضل أستاذ محمد الكود :

Option Explicit
Sub GetNumber()
' Author  : Mokhtar
' Release :  8 - 10 - 2016
' split and convert numbers stored as text numbers
'--------------------------------------------------
Dim C     As Range
Dim Rng   As Range
Dim I     As Long
Dim N     As Long
Dim S     As String
Dim Arr   As Variant
Application.ScreenUpdating = False
Range("C2").Resize(4).ClearContents
For I = 2 To 5
     S = Range("B" & I)
     Arr = Split(S, " ")
     Cells(I, 4).Resize(1, UBound(Arr) + 1) = Arr
Next I
Set Rng = Cells(2, 4).CurrentRegion
For Each C In Rng.Cells
    C.Value = WorksheetFunction.Text(C, 0)
    If IsNumeric(C.Value) = True Then
         If C.Value > 0 Then
                N = N + 1
                ReDim Preserve Arr(1 To N)
             Arr(N) = CDbl(C.Value)
         End If
     End If
Next C
Rng.ClearContents
Range("C2").Resize(UBound(Arr, 1), 1) = Application.Transpose(Arr)
Erase Arr
Set C = Nothing
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub

تحياتى

تم تعديل أكتوبر 8, 2016 بواسطه مختار حسين محمود

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب مختار

كود جميل وقد تم استخراج الأرقام بشكل ممتاز

أكمل جميلك وأضف على نفس المشاركة استخراج النصوص في الخلية المجاورة لتكتمل الأسطورة

 

سؤال للأخ محمد لؤي ..بالنسبة للأرقام كما أخبرتك ليست أرقام في الواقع ، وقد قام أخونا مختار بتحويلها لأرقام قابلة للتعامل معها حسابياً (على سبيل المثال يمكنك جمعها بعد عملية الاستخراج)

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

 

[مختار حسين محمود]

أشكرك أستاذى الغالى ياسر

أعتقد أن الاخ محمد يريد فصل الأرقام فقط  من النص  ولا أنا فاهم غلط

[ياسر خليل أبو البراء]

الان, مختار حسين محمود said:

أشكرك أستاذى الغالى ياسر

أعتقد أن الاخ محمد يريد فصل الأرقام فقط  من النص  ولا أنا فاهم غلط

اعتبر دا طلب مني .. اثراءً للموضوع أخي الغالي مختار

[مختار حسين محمود]

يا سلام   من غير ما تقول أخى و أستاذى

Option Explicit

Sub GetText()
' Author  : Mokhtar
' Release :  8 - 10 - 2016
' split Text from  numbers stored as text numbers
'--------------------------------------------------
Dim C     As Range
Dim FC    As Range
Dim Rng      As Range
Dim SRng     As Range
Dim I        As Long
Dim N        As Long
Dim S        As String
Dim Arr      As Variant
Dim StrStart As String

Application.ScreenUpdating = False
Range("D2").Resize(4).ClearContents
For I = 2 To 5
     S = Range("B" & I)
     Arr = Split(S, " ")
     Cells(I, 6).Resize(1, UBound(Arr) + 1) = Arr
Next I
Set SRng = Cells(2, 6).CurrentRegion
For Each C In SRng.Cells
        C.Value = WorksheetFunction.Text(C, 0)
        If IsNumeric(C.Value) = True Then C.ClearContents
Next C
For N = 2 To 5
     Set Rng = Range("F" & N, "Z" & N)
     Set FC = Range("D" & N)
     For Each C In Rng
        StrStart = C
        C.ClearContents
        FC = Trim(Replace(FC, FC, "") & " " & FC & " " & StrStart)
     Next C
Next N
Application.ScreenUpdating = True
End Sub

 

 

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

split string from number stored as text Mokhtar.rar

تم تعديل أكتوبر 8, 2016 بواسطه مختار حسين محمود

[ياسر خليل أبو البراء]

بسم الله ما شاء الله ..إبداع أخي الغالي مختار

والله لقد حرمنا منك طويلاً

 

إثراءً للموضوع إليكم الملف التالي فيه دالتين معرفتين تقومان بالغرض

رابط الملف من هنا

[مختار حسين محمود]

أشكرك أخى و أستاذى الغالى

جارى التحميل  ولا شك فى النتيجة قبل التجربة 

المرفق تعديل للمرفق السابق  تم اضافة تنسيقات و  بعض التعليقات على الكود  تحياتى

split string from number stored as text Mokhtar 2.rar

split string from number stored as text Mokhtar 2.rar

[محمد لؤي]

السلام عليكم

حياكم الله - مشكورين - جزيتم خيرا

نعم كان المطلوب فصل الرقم عن الاسم كنت محتاج الرقم - ولكن استفاد من الاسم

حاولت ان اجعل المدى من 5 الى C:C5    الى C100

ولكن ينفذ الى خمس اسماء فقط

 

[ياسر خليل أبو البراء]

وعليكم السلام

قم بسحب المعادلة في الملف الذي أرفقته إلى آخر المدى المطلوب .....

[محمد لؤي]

السلام عليكم 

الله يرضى عليك استاذ ياسر

جزيت خيرا 

[ياسر خليل أبو البراء]

وعليكم السلام أخي محمد

الحمد لله أن تم المطلوب على خير .. والشكر موصول لصاحب الهمة العالية والنشاط المتقد أخونا مختار بارك الله فيك وجزاه الله خير الجزاء

[محمد لؤي]

الله يرضى عليكم جميعا وعلى هذا المنتدى الرائع