Note: The other languages of the website are Google-translated. Back to English

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

هل تلقيت بعض التقارير بأحرف معلمة في Microsoft Excel؟ يبدو من الممل مراجعة المصنف بأكمله واستبدال الأحرف المحركة بالأحرف العادية يدويًا ، مثل "û"إلى". وستقدم هذه المقالة بعض الأشياء الصعبة لاستبدال الأحرف المعلمة بسرعة بأحرف عادية في Excel.


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

بالنسبة للمستخدمين الذين لديهم خبرة في استخدام 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) لا تحل محل الأحرف المعلمة في سلاسل الخلية المحددة مباشرة.


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

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

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن

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

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

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

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

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

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


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (12)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في الجزء "استبدال الأحرف المحركة بالأحرف العادية بـ VBA" ، الخطوة 3 ، يجب استبدال CheckStringCHAR لـ STRIPACCENT ، وهو اسم الوظيفة في الكود المقدم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، ماكرو ممتاز. شكرا لنشر هذه. لكني أتساءل ما إذا كنت أرغب في استبدال جميع الأحرف الموجودة في ملف Excel ، كيف يمكنني القيام بذلك مرة واحدة؟ شكرا فيفيك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كنت تبحث عن استبدال حرف تمييز معين (مثل é) ، فيمكنك إجراء بحث واستبدال الكل (ابحث عن "é" واستبداله بـ "e"). هذا حل مشكلتي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا تافه شرلوك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن استبدال شخصيات متعددة بحرف آخر؟ لا توجد طريقة للقول أنني أريد استبدال Ã © بـ é

كيف يمكنني إجراء بدائل جماعية مثل هذا في كوتولس ل إكسيل؟ تعجبني وظيفة المواقع المتعددة ولكن سيكون من المفيد جدًا أن يكون استبدال الكلمات بأكملها ممكنًا. Anyboy أي فكرة كيف يمكنني القيام بذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عند إزالة الحرف الخاص فإنه يتم أيضًا إزالة المسافة بين النص ؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عملت وظيفة VBA StripAccent () مثل السحر ، شكرًا جزيلاً لك على ذلك. لكني أود أن أسأل ما الذي يفعله هذا بالضبط "* 1" في نهاية سلسلة التهيئة "Dim A As String * 1" ، لم أر ذلك من قبل ولم أتمكن من العثور على إجابة لذلك بنفسي إلى هذا الحد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد أضفت الكود وهو يعمل بشكل مثالي ولكني بحاجة إلى إضافة المزيد من اللهجة إلى الكود لأنني أفتقد لهجات بولندية. كيف يمكنني تعديل الكود وإضافة تلك العلامات؟ أحاول القيام بذلك في مفكرة ثم ألصق الرمز مرة أخرى ولكنه يغير الحرف مرة أخرى إلى الأحرف العادية. أنا لست خبيرا لذلك أنا حقا بحاجة لمساعدتكم من فضلك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Const AccChars = "ŠŽšžYAÁÂAÄAÇEÉEËIÍÎI؟ NOóÔOÖUÚUÜÝaLânaçeéeëiíi؟ noóôoöuúuüýyĄĘĆŁŃóŚŻŹąęćłńó"
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyyAECLNOSZZaeclnoszz"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد جربت برنامج VBA النصي في ورقة العمل الخاصة بي والتي تحتوي على عدة أسماء بأحرف مميزة. هذا قام بعمل جيد في تنظيفهم. شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Dobrý deň، starší súbor xlsm mi vo win11 debuguje na tom، že nevie nájsť meno hárka "Prehľad"، má problém s diakritikou.
Nie je problém zmeniť pomenovanie hárka na nové bez diakritiky resp. vyhľadať objekt inak، oveľa väčší problém je však zároveň ten،
že z tohto súboru v exceli pomocou VBA odosielam emaily ak chcem pomocou VBA napísať telo emailu، tak sa mi v outlooku
menia písmená s diakritikou (č، ď، ť ...) na rôzne zástupné znaky. إرسال بريد إلكتروني إلى vyzerá nedôstojne a nechcem ho písať ani bez diakritiky ،
pretože sme predsa na Slovensku a komunikujeme ešte v materinskej reči ...
Môete mi prosím napísať، i sa tento problém dá odstrániť konkrétnym nastavením windows alebo officu؟
V predošlom počítači إلى fungovalo bez problémov.
Ďakujem pekne.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني استبدال عدة أحرف بحرف واحد؟ علي سبيل المثال Ã © دوامة e?
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL