مساعدة في استخراج قيمة من خلية تحوي نص باستخدام IF

[obad65]

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

آمل من الأخوة مساعدتي حسب الشرح بالمرفق أريد استخراج قيمة من خلية بدون الحروف المكتوبة بشرط كما هو موضح في المرفق 

مع خالص شكري للجميع

A.xlsx

[Ali Mohamed Ali]

وعليكم السلام تم تنفيذ طلبك بمعادلة IF مع دالة معرفة  LETTEROUT

Function LETTEROUT(RNG As Range)
Dim I As Integer
For I = 1 To Len(RNG)
Select Case Asc(Mid(RNG.Value, I, 1))
Case 0 To 64, 123 To 197
LETTEROUT = LETTEROUT & Mid(RNG.Value, I, 1)
End Select
Next I
End Function

وهذه هي المعادلة المطلوبة

=IF(RIGHT(B2,2)="AM",LETTEROUT(B2),IF(RIGHT(B2,2)="PM",LETTEROUT(B2)+12,""))

 

A.xlsm

[سليم حاصبيا]

جرب هذا الملف 

بعد اذن اخي علي طبعاً

Time_AM_PM.xlsm

[obad65]

جزاكم الله ألف خير أساتذي الأفاضل علي وسليم 

كلا الدالتين تعمل بشكل سليم وتعطي النتيجة المطلوبة

أسأل الله ان يكتب لكم الأجر والمثوبة  ويرزقكم من فضله