فورم بحث واظهار النتائج

غير القيمة 0 في السطر التالي الموجود في التكست بوكس P36
If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then
إلى القيمة 1 كالتالي
If Application.WorksheetFunction.Search(M, Q, 1) = 1 Then
ولاحظ النتيجة



لتكملة الموضوع برجاء الضغط على الرابط التالى فورم بحث واظهار النتائج