Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
سجلوا معنا  \/ 
x

or

كيفية تحويل HTML إلى نص في الخلايا في إكسيل؟

كما هو موضح أدناه ، إذا كانت أرقام علامات html موجودة في خلايا ورقة العمل الخاصة بك ، كيف يمكنك تحويلها إلى نص عادي في Excel؟ ستوضح لك هذه المقالة طريقتين لإزالة جميع علامات html من الخلايا في Excel.

تحويل html إلى نص في الخلايا المحددة باستخدام وظيفة البحث والاستبدال
تحويل html إلى نص في ورقة العمل بأكملها باستخدام VBA


تحويل html إلى نص في الخلايا باستخدام وظيفة البحث والاستبدال

يمكنك تحويل كل html إلى نصوص في الخلايا بامتداد بحث واستبدال تعمل في Excel. الرجاء القيام بما يلي.

1. حدد الخلايا التي ستقوم بتحويل كل html إلى نصوص ، واضغط على CTRL + F مفاتيح لفتح بحث واستبدال صندوق المحادثة.

2. في ال بحث واستبدال مربع الحوار ، انتقل إلى استبدل علامة التبويب ، أدخل <*> في تجد ما صندوق ، احتفظ ب استبدال مربع فارغ ، وانقر فوق استبدال الكل زر. انظر لقطة الشاشة:

3. ثم أ مايكروسوفت إكسل ينبثق مربع الحوار ليخبرك بعدد علامات html التي تم استبدالها ، انقر فوق OK زر وأغلق ملف بحث واستبدال صندوق المحادثة.

بعد ذلك ، يمكنك رؤية إزالة جميع علامات html من الخلايا المحددة كما هو موضح أدناه.


تحويل html إلى نص في ورقة العمل بأكملها باستخدام VBA

إلى جانب ذلك ، يمكنك تحويل كل html إلى نص في ورقة العمل بأكملها في نفس الوقت باستخدام كود VBA أدناه.

1. افتح ورقة العمل التي تحتوي على html الذي ستقوم بتحويله إلى نص ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.

كود فبا: تحويل html إلى نص في ورقة العمل بأكملها

Sub RemoveHTMLTags()
'Update by Extendoffice 20180703
    Dim xRg As Range
    Dim xCell As Range
    Dim xStr As String
    Dim xRegEx As RegExp
    Dim xMatch As Match
    Dim xMatches As MatchCollection
    Set xRegEx = New RegExp
    Application.EnableEvents = False
    Set xRg = Cells.SpecialCells(xlCellTypeConstants)
    With xRegEx
        .Global = True
        .Pattern = "<(""[^""]*""|'[^']*'|[^'"">])*>"
    End With
    For Each xCell In xRg
        xStr = xCell.Value
            Set xMatches = xRegEx.Execute(xCell.Text)
            For Each xMatch In xMatches
                xStr = Replace(xStr, xMatch.Value, "")
            Next
        xCell.Value = xStr
    Next
   Application.EnableEvents = True
End Sub

3. لا يزال في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط الأدوات > مراجع، افحص ال Microsoft VBScript Regular Expression 5.5 الخيار في المراجع- VBAProject مربع الحوار ، ثم انقر فوق OK .

4. اضغط على F5 مفتاح أو انقر فوق الزر "تشغيل" لتشغيل التعليمات البرمجية.

ثم تتم إزالة جميع علامات html من ورقة العمل بأكملها على الفور.


مقالات ذات صلة:


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ghyslain · 3 months ago
    compile error: User defined type not defined
  • To post as a guest, your comment is unpublished.
    Brian M · 2 years ago
    Thanks for that sub routine - just the job!