كريم الاميني

عضو مشارك
التسجيل
15/1/17
المشاركات
43
الإعجابات
2
#1
السادة الخبراء الاستاذ سعد الدين المحترم
ان امكن دالة تحويل الارقام الى حروف ابجد هوز حطي كلمن ....الخ..في الاكسل اكون لكم من الشاكرين

 

Mahmoud Nabil

Mahmoud Nabil

عضو ذهبي
التسجيل
20/1/17
المشاركات
791
الإعجابات
160
الجنس
Male
#2
لا اعلم الكثير في برنامج الأكسل :confused:
لاكن انتظر رد الأخوة محترفي المنتدي .
 

كريم الاميني

عضو مشارك
التسجيل
15/1/17
المشاركات
43
الإعجابات
2
#3

waleed68

عضو مشارك
التسجيل
6/6/08
المشاركات
78
الإعجابات
11
#4
موجودة على اليوتيوب اعمل بحث
 

كريم الاميني

عضو مشارك
التسجيل
15/1/17
المشاركات
43
الإعجابات
2
#5

ahmesam

عضو مميز
التسجيل
26/7/08
المشاركات
224
الإعجابات
36
#6
استعلم عن "دالة التفقيط" وستجد ماتريدة
 

كريم الاميني

عضو مشارك
التسجيل
15/1/17
المشاركات
43
الإعجابات
2
#7

بديع أمين

عضو جديد
التسجيل
3/5/17
المشاركات
1
الإعجابات
0
الإقامة
السعودية
الجنس
Male
#8
ما قصدك بالتحويل إلى أبجد هوز ؟؟؟
أتقصد أن تحول مثلاً 325 إلى ثلاثمائة وخمس وعشرين ؟؟
أم تحولها إلى ش ك ه ؟؟؟؟
 

كريم الاميني

عضو مشارك
التسجيل
15/1/17
المشاركات
43
الإعجابات
2
#9
ما قصدك بالتحويل إلى أبجد هوز ؟؟؟
أتقصد أن تحول مثلاً 325 إلى ثلاثمائة وخمس وعشرين ؟؟
أم تحولها إلى ش ك ه ؟؟؟؟
نعم استاذ اقصد على سبيل المثال (234يقابله شكر) هذا مثال للتفريب فقط
 

كريم الاميني

عضو مشارك
التسجيل
15/1/17
المشاركات
43
الإعجابات
2
#10
ما قصدك بالتحويل إلى أبجد هوز ؟؟؟
أتقصد أن تحول مثلاً 325 إلى ثلاثمائة وخمس وعشرين ؟؟
أم تحولها إلى ش ك ه ؟؟؟؟
نعم استاذ اقصد على سبيل المثال (294يقابله شكر وليس شكر = 294) هذا مثال للتفريب فقط
 

كريم الاميني

عضو مشارك
التسجيل
15/1/17
المشاركات
43
الإعجابات
2
#11
هذه الداله هي لتحويل الحرف الى رقم مثلا اذا كتبنا بط سوف يتحول الى رقم 11
Function CalString(sInp As String) As Long
Static bInit As Boolean
Dim asMap() As String
Dim asLtr() As String
Dim I As Long
Static aiVal(0 To 255) As Long

If Not bInit Then
asMap = Split("1 1 1 1 1 1 2 3 4 5 6 7 8 9 10 20 30 40 50 60 70 80 90 100 200 300 400 500 600 700 800 900 1000")
asLtr = Split("ء أ إ آ ا ئ ب ج د ه و ز ح ط ي ك ل م ن س ع ف ص ق ر ش ت ـة ث خ ذ ض ظ غ")
For I = 0 To UBound(asMap)
aiVal(Asc(asLtr(I))) = asMap(I)
Next I
bInit = True
End If

For I = 1 To Len(sInp)
CalString = CalString + aiVal(Asc(Mid(sInp, I, 1)))
Next I
End Function

المطلوب عكس هذه الداله اي تحويل الرقم 11 الى بط
 

كامل عباس

عضو جديد
التسجيل
7/6/16
المشاركات
6
الإعجابات
1
#12


أنا فهمت أنك تريد التحويل من أرقام حسابية
إلى أحرف باللغة العربية
وإن كنت أصبت فإن أفضل حل لهذه المشكلة أن تقوم بكتابة
مصفوفة
للأحرف في شيت مستقل وبالمعادلة اف نحول الرقم إلى حروف عربية
 

أعلى