بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع ومدونة عالم الاوفيس
واليوم مع كود مهم جدا جدا
كثير منا من يعمل مع مجموعة كبيرة جدا من البيانات والجداول المختلفة مما يصعب عملية البحث عن كلمة معينة داخل هذة البيانات الكبيرة الموجودة عندنا فى ورقة العمل
لذلك قررنا ان يكون هناك كود اكسل 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
كود سهل وبسيط وينجز عمل كبير جدا فى ثوانى معدودة كل هذا واكثر تجدونة فى ملف العمل المرفق
شكرا أخي عماد
ردحذفالملف لا يريد يتحمل معي
كذلك جزاك الله خير تخلينا نصلي على النبي بس في ملاحظة ممكن تعدل الخطأ في كتابة العبارة مع شكري
الصحيح( اللهم صلِّ) وليس (صلي) والثانية ( عليه) وليس(علية)
مع تحياتي