كود لحذف التشكيل من النصوص

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

الأخوة الأفاضل

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

[Ali Mohamed Ali]

تفضل اخى الكريم هناك دالة معرفة تسمى CLEANup

واليك الملف وبه كود الدالة المعرفة

 

دالة معرفة لحذف التشكيل من النص.xlsm

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

شاكر جدا لحضرتك أستاذ علي محمد علي علي كرم أستجابتك وسرعة تجاوبك

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

توزيع بيانات عمود علي عمودين1.xlsx

تم تعديل سبتمبر 18, 2018 بواسطه وائل أبو عبد الرحمن

[Ali Mohamed Ali]

بعد وضع هذا الكود فى موديول

Option Explicit

Function cleanup(s As String)
    Dim i           As Long
    Dim c, t          As String

    For i = 1 To Len(s)
        c = Mid(s, i, 1)
        Select Case Asc(c)
            Case 1 To 239
            t = t & c
        End Select
    Next i

    cleanup = t
End Function

عليك بكتابة هذه المعادلة فى الخلية المراد حذف التشكيل منها

فعلى سبيل المثال ,اذا كان النص المراد حذف التشكيل منه موجود فى الخلية A2 فعليك كتابة المعادلة مثلا فى الخلية B2

وهى

=CLEANup(A2)

بارك الله فيك

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

وفيكم بارك الله أستاذي الفاضل

تم التطبيق والنتيجة ممتازه وبذلك نكون بفضل الله قد أنتهينا من الخطوة الثانية 

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