نطاق الخلايا يحتوي علي كلمة معينة

[Akram Galal]

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

اذا كان لدينا مثلا الخلايا (S9:S25) وتحتوي هذا الخلايا علي كلمة  Ali

اريد معرفة اذا كان هذا النطاق يحتوي علي كلمة Ali

عن طريق المعادلات بمعني ( اذا كانت الكلمة موجودة في النطاق يكتب "موجود" واذا لم تكن موجودة يكتب "غير موجود")

وعن طريق الأكواد VBA

جزاكم الله خيرا

[بن علية حاجي]

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

* حل بالمعادلات: إذا فرضنا أن الخلية C1 تحوي كلمة ALI التي تبحث عنها... المعادلة تكون على الشكل التالي:

=IF(COUNTIF($S$9:$S$25;"*"&$C$1&"*");"موجود";"غير موجود")

* الحل نفسه بـ VBA :

Sub Test()
  If Application.CountIf(Range("S9:S25"), "*" & [C1].Value & "*") <> 0 Then
     MsgBox "موجود"
  Else
     MsgBox "غير موجود"
  End If
End Sub

في انتظار حلول أخرى...

[محمد هشام.]

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

تفضل اخي

بالنسبة لطلبك اعتقد ان جواب استادنا الكبير بن علية حاجي  يوفي بالغرض لاكن لاثراء الموضوع وتعميم الفائدة للجميع 

بالمعادلات يمكنك  بهده الطريقة

=SI(ESTNA(EQUIV("ALI";$S$9:$S$25;0));"غير موجود";"موجود")
او

=SI(ESTNA(RECHERCHEV("ALI";$S$9:$S$25;1;FAUX));"غير موجود";"موجود")
او

=SI(ESTNA(EQUIV(A9;$S$9:$S$25;0));"غير موجود";"موجود")

ملاحظة: المعادلات تمت كتابتها على اوفيس فرنسي .كما سبق الدكر اتجنب اعادة صيغتها تفاديا للاخطاء .يمكنك تحميل الملف من المرفقات سيتم ترجمتها تلقائيا على جهازك

اما بالنسبة للاكواد هناك عدة طرق منها

لنفترض انك ترغب ظهور النتيجة في الخلية ("A5")

Sub test1()
Dim code As String
Dim Trouve As Range
 With Sheets("Sheet1")
    Set Trouve = .Range("S:S").Find(what:="ALI", LookIn:=xlValues, lookat:=xlWhole)
     If Trouve Is Nothing Then
        Range("A5") = " غير موجود"
     Else
        Range("A5") = "موجود"
     End If
 End With
End Sub

وبهده الطريقة ادا كانت لك رغبة بالبحث بقيمة خلية معينة ولنفترض انها  M4

Sub test2()
Dim code As String
Dim Trouve As Range
 With Sheets("Sheet1")

  ' تحديد العمود ورقم الخلية         
    Set Trouve = .Range("S:S").Find(what:=Range("M4"), LookIn:=xlValues, lookat:=xlWhole)
     If Trouve Is Nothing Then

'M6 ظهور التنيجة في الخلية 
        Range("M6") = " غير موجود"
     Else
'في حالة عدم العثور على القيمة 
        Range("M6") = "موجود"
     End If
'''''''''''''''''''''''''''''''''''''''''''
Sub test4()
 Dim MH As Range
 Set MH = Range("S9:S25").Find(What:=Range("M4").Value, LookIn:=xlValues, LookAt:=xlWhole)
 If Not MH Is Nothing Then
  Range("M6").Value = "موجود"
 Else
 Range("M6").Value = " غير موجود"
 
 MsgBox " غير موجود"
 End If
End Sub


 End With
End Sub

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

Sub test3()
Dim X As Variant
Dim Rng As Range
'تحديد  نطاق القيم المبحوث عنها 
' مثال من الصف 9 الى 13
For i = 9 To 13
'تحديد رقم العمود
X = Cells(i, 11)
'تحديد نطاق القيم المبحوث عنها
With Sheets("sheet1").Range("S9:S25")
Set Rng = .Find(what:=X, After:=.Cells(.Cells.Count), _
LookIn:=xlValues, lookat:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

If Not Rng Is Nothing Then
'في حالة العثور على القيمة 
Cells(i, 10).Value = "موجود"
Else
'في حالة عدم العثور على القيمة
Cells(i, 10).Value = "غير موجود"
End If
End With
Next i
End Sub

قد تم اضافة الاكواد والمعادلات للملف المرفق

بالتوفيق...........

 

التحقق من وجود قيمة معينة.xlsm

تم تعديل نوفمبر 19, 2022 بواسطه Mohamed Hicham

[بن علية حاجي]

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

تنويه: المعادلة التي وضعتها بالأعلى (في ردي السابق) تبحث عن الكلمة حتى وإن كانت داخل نص طويل...

بالتوفيق..

[Akram Galal]

الأستاذ/ بن علية حاجي

والأستاذ/ Mohamed Hicham

جزاكم الله خيراً

أحسنتم