طلب

[Mbks]

السلام عليكم 

ارجو المساعدة في الآتي 

طلب كيفية تغير حرف الى رقم من اختيارك ...

متلا عندما اكتب حرف A يتم تحويلها الى رقم 1

عندما اكتب حرف B يتم تحويلها الى رقم 2

عندما اكتب حرف D يتم تحويلها الى رقم 4

عندما اكتب حرف AB يتم تحويلها الى رقم 12

عندما اكتب حرف DAB يتم تحويلها الى رقم 412

و شكراا .. 

 

تم تعديل سبتمبر 5, 2018 بواسطه Mbks

[Ali Mohamed Ali]

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

من فضلك ارفق ملف لما تريد ووضح ما تحتاجه بالتفصيل

وهل تريد فى نفس الخلية التى تكتب بها الحرف ام فى خلية اخرى ؟

 

[Ali Mohamed Ali]

تفضل اخى الكريم قمت بعمل ملف لك من طريقتين

الطريقة الأولى فى الصفحة الأولى __أما الطريقة الثانية ففى الورقة الثانية

اختر منهما ما تريده ويناسبك ,بارك الله فيك

 

تحديث محتوى قائمة منسدلة تلقائيا.xlsm

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

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

هذا الملف

الكود

Option Explicit

Function Replace_A_Z(st$) As String
 Dim k%: k = Len(st)
 Dim i%
 Dim New_str$
 For i = 1 To k
If Mid(st, i, 1) Like "[A-Z]" Then
  New_str = New_str & Asc(Mid(st, i, 1)) - 64
 End If
    Next
  Replace_A_Z = IIf(New_str = vbNullString, "N/A", New_str)
End Function

 

 

Letter_to Number.xlsm