الجمعة، 23 أغسطس 2019

اكسل vba : البحث عن نص معين فى مكان فى ورقة العمل وتلوين النتائج اوتوماتيكيا

بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع ومدونة عالم الاوفيس



مازلنا نتواصل معكم فى شرح مكتبة اكواد اكسل vba 
واليوم مع كود مهم جدا جدا 

كثير منا من يعمل مع مجموعة كبيرة جدا من البيانات والجداول المختلفة مما يصعب عملية البحث عن كلمة معينة داخل هذة البيانات الكبيرة الموجودة عندنا فى ورقة العمل 

لذلك قررنا ان يكون هناك كود اكسل vba  يسهل لنا اعمالنا فى التعامل مع البيانات الكثيرة الموجودة  عندنا فى ورقة العمل 
سواء كانت فى جدول معين او فى اى مكان فى ورقة العمل 

نبدا الان فى كتابة الكود الخاص بنا 


Sub highlightSpecificValues()
Dim rng As Range
Dim i As Integer
Dim c As Variant
c = InputBox("Enter Value To Highlight")
For Each rng In ActiveSheet.UsedRange
If rng = c Then
rng.Interior.Color = vbRed
i = i + 1
End If
Next rng
MsgBox "There are total " & i & " " & c & " in this worksheet."
End Sub


كود سهل وبسيط وينجز عمل كبير جدا فى ثوانى معدودة كل هذا واكثر تجدونة فى ملف العمل المرفق



هناك تعليق واحد:

  1. شكرا أخي عماد
    الملف لا يريد يتحمل معي
    كذلك جزاك الله خير تخلينا نصلي على النبي بس في ملاحظة ممكن تعدل الخطأ في كتابة العبارة مع شكري
    الصحيح( اللهم صلِّ) وليس (صلي) والثانية ( عليه) وليس(علية)
    مع تحياتي

    ردحذف

من نحن

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

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة