تحويل نص الى رقم

[سيف النصر]

الإخوة الأفاضل

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

برجاء المساعدة في إيجاد طريقة لتحويل نص الى رقم ( بناء على تعريف مسبق للرقم المقابل لكل حرف ) والأمر بصورة معكوسة ( عند كتابة الرقم يتم التحويل الى الحرف المقابل ) .

مثال :

أ = 12 , ت = 14 , ح = 17 , ف = 31

فإذا تم كتابة كلمة " تفاح " يكون الرقم في الخلية المقابلة " 14311217 " .

وإذا تم كتابة كلمة " أتحف " يكون الرقم في الخلية المقابلة " 12141731 " .

 

مرفق ملف لإيضاح أكثر بالأمثلة والملاحظات على كل مثال .

مع العلم أنني بحثت كثيراُ فلم أجد شئ .

فلم أجد أحد بعد الله ألجأ إليه بطلب المساعدة سوى حضراتكم .

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

تحويل النص الى رقم.xlsx

[ابراهيم الحداد]

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

استخدم الكود الآتى

Sub RepTxt_Num()
Dim C As Range, i As Long, x As String, Z As String
For Each C In Range("AI5:AI" & Range("AI" & Rows.Count).End(xlUp).Row)
For i = 1 To Len(C)
x = Mid(C, i, 1)
y = Application.HLookup(x, Range("A1:AF2"), 2, 0)
Z = Z & y
C.Offset(0, 1) = Z
Next
Z = ""
Next
End Sub

 

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

بعد اذن اخي زيزو

هذا الملف

 

salim_formula.xls

[سيف النصر]

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

جزاك الله خيراً أستاذي زيزو العجوز 

جزاك الله خيراً أخي سليم حاصبيا 

الأكواد تعمل بشكل منضبط تماما ً والأكثر سهولة بالنسبة لمبتدئ مثلي هو عمل الأخ سليم حاصبيا من حيث مرونه تنفيذ الكود وكأنه دالة وفي حالة فراغ الخلية من أي نص يكون الناتج n/a

أساتذتي الأفاضل زادكم الله من العلم ونفع بكم .

أستائذن أخي في الله الأستاذ سليم بشرح الكود لتعم الفائدة لي ولكل من يبحث عن شئ مماثل .

كما أستأذن أستاذي زيزو العجوز بشرح الكود أيضاً للإستزادة من العلم .

دمتم في رعاية الله .

[سيف النصر]

بقى شئ واحد إن أمكن ذلك ولا أريد أن أطيل عليكم .

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

مثال :

أ = 12 , ت = 14 , ح = 17 , ف = 31

فإذا تم كتابة الرقم " 14311217 " يكون النص في الخلية المقابلة " تفاح " .

وإذا تم كتابة الرقم " 12141731 " يكون النص في الخلية المقابلة " أتحف " .

ولكم جزيل الشكر على كرمكم وسعة صدوركم ،،،

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

لك ما تريد

 

 

salim_formula1.xls

[سيف النصر]

مهما قلت من شكر فلن أوفيك حقك 

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