تحديد الخلية التى تحتوى على نصوص حتى 255 حرف ونقلها لخلية فارغة

[ًعبد من عباد الله]

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

لدى سؤال وطلب 

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

وأما الطلب أود من خلال الملف المرفق كمثال أن يتم فصل النصوص التى تبلغ كحد أقصى 255 حرف في خلية مستقلة عن عمود النصوص الرئيسى وشكرا الله لكم مساعدتكم لنا بما وهبكم الله من علم

تجميع.rar

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

وعليكم السلام أخي الكريم وائل

جرب الكود التالي .. وحاول أن تضع شكل المخرجات إذا لم يؤدي الكود الغرض

Sub Test()
    Dim Cel As Range
    
    For Each Cel In Range("A1:A29")
        If Len(Cel) >= 255 Then
            Cel.Offset(, 1).Value = Cel.Value
            Cel.ClearContents
        End If
    Next Cel
End Sub

 

 

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

جزاك الله خيرا أستاذى الفاضل

الدالة LEN تحسب أيضا المسافات بين النصوص

وأعتقد حسب فهمى لطلب الأخ وائل أنه يريد فصل النصوص التى تبلغ كحد أقصى 255  بدون مسافات  تحياتى

 

[ًعبد من عباد الله]

كل الشكر للاخ الحبيب المحترم الاستاذ ياسر خليل " أبو البراء "

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

بقى الإجابة على السؤال لأن إجابته ستولد طلب أخر أخير وشكر للجميع

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

وسبب الاستفسار أنى لدى جمل كثيرة أريد أن أحذف أو اضيف منها أو اليها رمز أو مسافة أو رقم حسب حالة كل جملة فإذا لم يستطيع الاكسيل التميز بينهم فسوف أضطر لعمل ذلك يدويا وهذا سيكون مرهقا للغاية

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

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

بالتأكيد يفرق الإكسيل بين كل ما ذكرت ..فقط اطرح موضوع جديد بطلبك موضحاً التفاصيل مع ملف مرفق مع شكل النتائج المتوقعة كما تعودت وإن شاء الله تفائل خيراً

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

بقالى نصف ساعة على الصفحة عشان اعمل مشاركة النت سلحفاة

اضافة الى كلام  أستاذى الفاضل

جرب الكود التالى على ملفك  الكود يؤكد أن المسافة الفارغة لها قيمة عند اكسل

Sub Test2()
    Dim Cel As Range
    For Each Cel In Range("A2:A29")
    Cel.Offset(, 3).Value = Len(Cel) & " " & " حرف بالمسافات"
    Cel.Offset(, 4).Value = Len(Replace(Cel, " ", "")) & " " & "حرف بدون المسافات"
    Next Cel
    Cells.ShrinkToFit = True
End Sub