كيفية استبدال الأحرف الملونة بالأحرف العادية في Excel؟

استبدال الأحرف الملونة بالأحرف العادية باستخدام VBA

استبدال الأحرف الملونة بالأحرف العادية باستخدام Kutools لـ Excel

بالنسبة للمستخدمين الذين يتمتعون بخبرة في Microsoft Excel، يعد استخدام ماكرو VBA طريقة سهلة للتعامل مع هذا العمل المعقد.

1. اضغط مع الاستمرار على مفتاحي Alt + F11 في Excel، وسيفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الماكرو التالي في نافذة الوحدة.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. ثم انتقل إلى خلية فارغة والصق الصيغة في الخلية: =CheckStringCHAR(InString)، على سبيل المثال =CheckStringCHAR("ù")، أو =CheckStringCHAR(A2).

ملاحظات:
(1) قد لا يتعرف Microsoft Visual Basic الخاص بك على الأحرف الملونة تمامًا إذا لم يكن يدعم Unicode. على سبيل المثال، عندما تقوم بلصق "š" في Visual Basic، قد تحصل على "?". إذا كان الأمر كذلك، فإن هذا الماكرو غير متاح.
(2) لا يستبدل الأحرف الملونة مباشرة في السلاسل النصية للخلية المحددة.

يتطلب استخدام ماكرو VBA الكثير من المهارات والمعرفة. وستساعدك الطريقة التالية على العمل بسهولة وببضع نقرات فقط. أداة استبدال الأحرف الملونة في Kutools لـ Excel تجعل من الممكن لك استبدال جميع أنواع الأحرف الملونة بالأحرف العادية بسهولة دفعة واحدة.

1. حدد النطاق الذي ستستبدل فيه جميع الأحرف الملونة.

2. انقر Kutools > نص > استبدال الأحرف الملونة...، انظر لقطة الشاشة:

3. في استبدال الأحرف الملونة مربع الحوار، انقر فوق الزر تحديد الكل لتحديد جميع قواعد الاستبدال، وانقر فوق زر موافق لاستبدال جميع الأحرف الملونة. انظر لقطة الشاشة:

ملاحظات:
(1) إذا لم تكن هناك بعض الأحرف الملونة المحددة التي تريدها، يمكنك النقر فوق الزر إضافة قاعدة لإضافة قواعدك الخاصة إلى مربع القائمة في مربع الحوار استبدال الأحرف الملونة أعلاه.
(2) يمكنك تخصيص قواعد استبدال جديدة في مربع الحوار استبدال الأحرف الملونة.

الآن سيتم تحويل جميع الأحرف الملونة في السلاسل النصية للنطاق المحدد إلى أحرف عادية على الفور. انظر لقطة الشاشة:

ميزة استبدال الأحرف الملونة في Kutools لـ Excel يمكنها بسهولة استبدال جميع أنواع الأحرف الملونة بالأحرف العادية في جميع الجداول. جربها مجانًا!