طريقة جديدة للبحث عن البيانات وتلوين نتائج البحث | عماد غازى

[عماد محمد غازى محمد رحمة]

بسم الله الرحمن الرحيم 

السلام عليكم ورحمة الله وبركاتة 

اهلا بكم اعضاء المنتدى الكرام 

اعتذر جدا للغياب الطويل عن المنتدى ولكن اشتقت اليكم فقولت ارجع بكود ممكن يفيد البعض فى عملة

يعتبر البحث عن البيانات من الامور التى يبحث عنها كل مستخدمى الاكسل حيث انها تسهل عليهم اعمالهم وتحليل البيانات لديهم 

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

ومن هنا قررنا انشاء كود بحث من خلال اليوزرفورم يقوم بالبحث عن البيانات وتلوين واظهار نتائج البحث 

يتم وضع الكود فى حدث التكست بوكس

Dim Itemsaerch As String
Dim rng As Range
Dim cell As Range
Dim lr As Long
Sheet1.Cells.Interior.Pattern = xlNone
Itemsaerch = Me.TextBox1.Value
lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Sheet1.Range("a2:a" & lr)

   For Each cell In rng
    If InStr(1, cell.Value, Itemsaerch) > 0 Then
     cell.Interior.Color = vbGreen
     
     End If
      Next cell
      
If Me.TextBox1.Value = "" Then Sheet1.Cells.Interior.Pattern = xlNone

ملف العمل

 

فورم بحث جديد وتلوين نتائج البحث.xlsm

[حسونة حسين]

وعليكم السلام ورحمة الله وبركاته 

بارك الله فيك أخي عماد وجعله الله في ميزان حسناتك يوم القيامه

[كمال على طارق]

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

[مهند 2002]

وعليكم السلام  .. 

عمل جميل   استاذ عماد  شكرا 

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

جزاكم الله خيراً وجعله بميزان حسناتكم آمين

ملف رائع بارك الله بجهودكم أخي الكريم عماد غازي

 

[أبو الخضر البعيثي]

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

خالص تحياتي لكم جميعا

[علي بطيخ سالم]

جزاكم الله خيراً استاذ عماد وبارك الله لك