اظهار آخر رقم معين يبدأ بـ *1 أو *2 في العمود

[الجزيرة]

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

 

كل عام وأنتم بخير

 

تم شرح المطلوب بالملف المرفق 

حسابات.rar

[الـعيدروس]

السلام عليكم

استخدم المعادلة المركبة التاليه

=Ls_Nm("1*")
==============
=Ls_Nm("2*")

الكود

Function Ls_Nm(Sb$) As String
 For Each R In [C4:C30]
   If R.Text Like Sb Then V = CStr(R)
 Next
 Ls_Nm = V
End Function

[ابو اياد ( الاسيوطى )]

رائع جدا اخى العيدروس

 

كنت ابحث عن معنى هذا الاسم فوجدت الاتى

 

 

• سيد أبو بكر العيدروس

• الأمام أبو بكر العدني بن عبد الله العيدروس عالم ديني صوفي حضرمي عربي وشاعر عامي. أمضى أبو بكر معظم حياته في عدن حيث كان يحظى باحترام كبير بسبب إسهاماته المجتمعية لرفاه سكان المدينة

 

[الجزيرة]

رائع أخي العيدروس

 

ولكن هل يمكن جعلها تعطي الناتج بمجرد ادخال الرقم

 

وايضاً هي تظهر أي رقم يبدأ بـ 1 أو 2  والمطلوب أن تظهر الرقم الذي يبدأ بـ *1  أو *2 فقط

 

ولك الشكر

[عبدالله باقشير]

رائع أخي العيدروس

 

ولكن هل يمكن جعلها تعطي الناتج بمجرد ادخال الرقم

 

وايضاً هي تظهر أي رقم يبدأ بـ 1 أو 2  والمطلوب أن تظهر الرقم الذي يبدأ بـ *1  أو *2 فقط

 

ولك الشكر

 

غير شرط الدالة

If R.Text Like Sb Then V = CStr(R)

بهذا السطر

If InStr(R.Text, Sb) Then v = CStr(R)

تحياتي

[الجزيرة]

أحسنت أخي الحبيب عبد الله 

 

ولكن بقي :

 

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

 

جرب على الملف المرفق لو تكرمت

 

حسابات.rar

[عبدالله باقشير]

أحسنت أخي الحبيب عبد الله 

 

ولكن بقي :

 

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

 

جرب على الملف المرفق لو تكرمت

 

 

غي الدالة بهذه

Function Ls_Nm(rng As Range, Sb As String) As String
 For Each R In rng
 If InStr(R.Text, Sb) Then v = CStr(R)
 Next
 Ls_Nm = v
End Function

بحيث تضع النطاق في الدالة

=Ls_Nm($C$4:$C$27;"1*")

[عبدالله باقشير]

او غير الدالة بهذه

Function Ls_Nm(rng As Range, Sb As String) As String
Dim r As Long
Dim v As String
With rng
    For r = .Rows.Count To 1 Step -1
        If InStr(CStr(.Item(r)), Sb) Then
            v = CStr(.Item(r))
            Exit For
        End If
    Next
End With
Ls_Nm = v
End Function

تحياتي

[الجزيرة]

بارك الله فيك يا أخي الحبيب عبد الله

 

جربت الطريقة الأولى ونجحت 

 

الله يرزقك ما تتمنى فأنت خير معين بعد الله

 

والشكر موصول لأخي العيدروس 

 

لمشاركته القيمة

[الجزيرة]

او غير الدالة بهذه

Function Ls_Nm(rng As Range, Sb As String) As String
Dim r As Long
Dim v As String
With rng
    For r = .Rows.Count To 1 Step -1
        If InStr(CStr(.Item(r)), Sb) Then
            v = CStr(.Item(r))
            Exit For
        End If
    Next
End With
Ls_Nm = v
End Function

تحياتي

استخدمت هذا الكود لأن الأول بطئ نوعاً ما  :)

[عبدالله باقشير]

هذا ما قصدته من تغيير الدالة

[جمال عبد السميع]

بعد إذن أساتذتى وعمالقة هذا الصرح

الحل بالمعادلة أسهل

 

حسابات2.rar

[الجزيرة]

أحسنت أخي جمال

 

معادلة رائعة ، ياليت تتكرم وتشرح المعادلة للفائدة العامه