اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

مثال :

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

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

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

 

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

مثال :

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

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

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

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

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information