طريقة برمجة الحروف مع اﻷرقام في اﻹكسيل

[قلم-الاكسل(عبدالعزيز)]

شكرا لشيخنا العزيز المبدع الكبير ابو البراء

واشكر مهندس البرمجة الشيخ سليم حاصبيا 

واشكر طبيب الاكسل جعفر الطريبق 

واشكر شيخنا مبدع الاشراف محمد المحمد

وادعو الله لكم بالنجاح والعافية والبركة والصحة الخالدة 

لو تكرمت المهندس جعفر وسمح وقتك الثمين يا ليتك برمجتها على ملف مثل المهندس الكبير ابو البراء وكذلك المهندس العزيز سليم حاصبيا

وهو كتعليم ورؤية الاختلاف بين الدوال التي طرحها مختلف المهندسين

فجزى الله امام البرمجة ابو البراء ما قصر في الموضوع وفى وكفى فقط نريد الاختلاف بين الدوال 

وعسى في المستقبل نتعلم من الاختلاف طريقة التعديل على الدوال وتطويرها

لانني لما ادخل الاكواد لا يحدث عندي تغيير  

ربما لآنني مبتدىء او لأن جهازي به خلل

لانني جربت دوال المهندس ابو البراء فلم تنجح لكن لما يرسل ملف تنجح

[ياسر خليل أبو البراء]

أخي الحبيب جعفر

جربت دالتك وأعطت نتائج بالسالب وغير صحيحة ..

نرجو التصحيح للاستفادة منها إن شاء الله

Function AlphaSum(ByVal Word As String) As Long
    Dim i As Long
    Word = Replace(Word, " ", "")
    For i = 1 To Len(Word)
        AlphaSum = AlphaSum + Asc(Mid(Word, i, 1)) - IIf(Asc(Mid(Word, i, 1)) > &H63A, &H626, &H620)
    Next
End Function

 

[وائل احمد المصري]

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

الله ينور يا رجالة  

[توكل]

شكراً لجميع الإخوة الذين أثروا الموضوع بمداخلاتهم، وأضم صوتي لصوت الأخ أبي البراء بأن كود الأستاذ جعفر يعطي نتائج سالبة مع جزيل الشكر للجميع

[جعفر الطريبق]

أخي الحبيب جعفر

جربت دالتك وأعطت نتائج بالسالب وغير صحيحة ..

نرجو التصحيح للاستفادة منها إن شاء الله

Function AlphaSum(ByVal Word As String) As Long
    Dim i As Long
    Word = Replace(Word, " ", "")
    For i = 1 To Len(Word)
        AlphaSum = AlphaSum + Asc(Mid(Word, i, 1)) - IIf(Asc(Mid(Word, i, 1)) > &H63A, &H626, &H620)
    Next
End Function

 

الأساتدة الافاضل ياسر و توكل

كما سبق لي أن قلت لم أجرب الكود و اعتمدت فقط على ال  ASCII MAP للحروف العربية

لكي أجرب الكود يجب أن أغير السيتينس عبر  Control Panel-Regional Settings لكن الجهاز يطلب مني ادخال سيدي الويندوز XP  الدي ضاع مني

تم تعديل أكتوبر 5, 2015 بواسطه جعفر الطريبق

[قلم-الاكسل(عبدالعزيز)]

مشكورين الجميع على التواصل اللي حاصل

ابداع تميز انفراد تعاون محبة عطاء 

تم تعديل أكتوبر 5, 2015 بواسطه قلم-الاكسل