استبدل الأحرف المحركة بأحرف عادية بـ VBA

استبدل الأحرف المحركة بأحرف عادية بـ Kutools for Excel

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

1. اضغط باستمرار قديم + F11 في Excel ، ويفتح ملف نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

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 for Excel إمكانية استبدال جميع أنواع الأحرف المحركة بأحرف عادية بسهولة مرة واحدة.

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

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

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

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

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

• استبدل الأحرف المعلّقة يمكن لميزة Kutools for Excel استبدال جميع أنواع الأحرف المحركة بسهولة بأحرف عادية في المصنف بأكمله. احصل على نسخة تجريبية مجانية!