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

قم بإزالة علامات html أو إزالتها من السلاسل النصية

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


قم بإزالة أو إزالة كل علامات html البسيطة بالصيغة

إذا كانت السلاسل النصية الخاصة بك محاطة ببعض علامات html البسيطة ، يمكن أن تساعدك وظيفة MID في Excel في حل هذه المهمة. الصيغة العامة هي:

=MID(string,text_start,LEN(string)-tag_len)
  • string: السلسلة النصية أو قيمة الخلية التي تريد إزالة علامات html منها.
  • text_start: رقم الموضع الذي حدده الحرف الأول الذي تريد استخدامه.
  • tag_len: طول علامات html داخل السلسلة النصية.

الرجاء نسخ أو إدخال الصيغة التالية في خلية فارغة:

=MID(A2,4,LEN(A2)-7)

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


شرح الصيغة:

LEN (A2) -7: تُستخدم وظيفة LEN هذه لحساب طول السلسلة النصية في الخلية A2 ، وتطرح 7 (عدد علامات html ، كل من علامات البداية والنهاية) تعني الحصول على عدد الأحرف التي تريد استخراجها والتي تستبعد علامة html. سيتم استخدام القيمة التي تم إرجاعها كوسيطة num_chars داخل دالة MID.

MID (A2,4،2، LEN (A7) -XNUMX): تُستخدم وظيفة MID هذه لاستخراج جميع الأحرف التي تبدأ من الحرف الرابع ، وطول السلسلة هو عدد الأحرف التي تُرجعها الدالة LEN.


قم بإزالة أو إزالة بعض علامات html المعقدة باستخدام كود VBA

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

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

2. انقر إدراج > وحدة، ولصق التعليمات البرمجية لـ VBA التالية في Module Window.

Sub RemoveTags()
'updateby Extendoffice 
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xRg.NumberFormat = "@"
    With CreateObject("vbscript.regexp")
        .Pattern = "\<.*?\>"
        .Global = True
        For Each xCell In xRg
            xCell.Value = .Replace(xCell.Value, "")
        Next
    End With
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وانبثق مربع موجه ، يرجى تحديد الخلايا التي تريد إزالة علامات html ، انظر لقطة الشاشة:

4. ثم انقر فوق OK ، وتم إزالة جميع علامات html من الخلايا المحددة ، انظر الصورة:


الدوال النسبية المستخدمة:

  • LEN:
  • ترجع الدالة LEN عدد الأحرف في سلسلة نصية.
  • MID:
  • تُستخدم وظيفة MID للبحث عن عدد محدد من الأحرف وإرجاعه من منتصف سلسلة نصية معينة.

المزيد من المقالات:


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

كوتولس ل إكسيل - يساعدك على التميز من بين الحشود

هل ترغب في إكمال عملك اليومي بسرعة وبشكل مثالي؟ يوفر Kutools for Excel 300 ميزة متقدمة قوية (الجمع بين المصنفات ، والجمع حسب اللون ، ومحتويات الخلية المنقسمة ، وتحويل التاريخ ، وما إلى ذلك ...) وتوفير 80 ٪ من الوقت لك

  • مصمم لسيناريوهات عمل 1500 ، يساعدك على حل 80٪ من مشاكل Excel.
  • قلل الآلاف من نقرات لوحة المفاتيح والماوس كل يوم ، وقم بإراحة عينيك ويديك المتعبة.
  • كن خبيرًا في برنامج Excel في 3 دقائق. لم تعد بحاجة إلى تذكر أي صيغ مؤلمة ورموز VBA.
  • نسخة تجريبية مجانية غير محدودة لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا. ترقية مجانية ودعم لمدة عامين.
شريط Excel (مع تثبيت Kutools for Excel)

علامة تبويب Office - تمكين القراءة والتحرير المبوب في Microsoft Office (بما في ذلك Excel)

  • ثانية واحدة للتبديل بين عشرات المستندات المفتوحة!
  • قلل مئات النقرات بالماوس كل يوم ، وداعًا ليد الماوس.
  • يزيد من إنتاجيتك بنسبة 50٪ عند عرض مستندات متعددة وتحريرها.
  • يجلب علامات التبويب الفعالة إلى Office (بما في ذلك Excel) ، تمامًا مثل Chrome و Firefox و Internet Explorer الجديد.
لقطة شاشة لبرنامج Excel (مع تثبيت Office Tab)
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة