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

[محمد حسن المحمد]

السلام عليكم إخوتي خبراء إكسيل الكرام:

طرح علي اﻷخ westexcel سؤالا ظنا منه أنني مهندس في مجال البرمجة وبما أنه في مجال بحركم الواسع الذي تخوضون غماره فإنني أحيل سؤاله عليكم رغبة بمساعدته. فالدال على الخير كفاعله 

أقدم لكم السؤال الذي طرحه..ولكنني أطلب منه فضلا لا أمرا تعريب اسمه الكريم ...ومتابعة هذا الموضوع ليقوم بإدراج الملف والبيانات التي تساعدكم ﻹيصاله إلى شط اﻷمان في هذه المسألة...وكلي رجاء أن تقدموا ما تستطيعوه ...تقبلوا تحياتي العطرة..

ما هي طريقة برمجة الحروف مع الآرقام

يعني

                               ا ب  ت  ث ج ح خ   د ذ   ر ز س ش ص ض ط ظ ع غ ف ق ك ل م ن هـ و ي

28 27 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 1110 9 8 7 6 5 4 3 2 1

يعني كل حرف يقابله رقم حسب الترتيب

 من أ -ي

28-1

وعندما اكتب عبارة في خانة الكتابة

تظهر لي نتيجة الحروف يعني مثلا

كتبت " الصحة"

تظهر النتيجة بعد الجمع

26+5+14+23+1

= 69

يعني انا الذي اريده تظهر لي النتيجة مباشرة 69

[عبد العزيز البسكري]

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

بارك الله فيك أستاذنا القدير محمد حسن المحمد .. جزاك الله خيرًا و زادها بميزان حسناتك ..  " الدّال على الخير كفاعله "

                                              خالص احتراماتي

[محمد الورفلي1]

السلام عليكم

استاذ محمد

سؤال  جميل ..... وموضوع يستحق المتابعة لنتعلم كيف الطريق ....... اساهم معك  ببكود ....

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

 الجمع في خلية.rar

الجمع في خلية.rar

تم تعديل أكتوبر 1, 2015 بواسطه محمد الخازمي

[محمد حسن المحمد]

السلام عليكم أخي العزيز محمد الخازمي

جزاكم الله خيرا على سرعة الاستجابة..وكما ترى من خلال كتابتي متابعتي عبر جهاز الهاتف..مما يحرمني من متابعتكم الصحيحة..والحثيثة ..أرجو أن تكون إجابة شافية..كما أشكر أخي الحبيب عبد العزيز الذي أرى لهفته لكلمة الحق والدين...ما دام هنالك أخوتي أمثالكم فنحن بخير والحمد لله....تقبلوا تحياتي.

[محمد الورفلي1]

استاذ محمد

كما ذكرت لك في المشاركة السابقة كود  بطريقة مختلفة ارجوا ان تستفيد منها  وتكون بداية الخيط

[محمد حسن المحمد]

السلام عليكم أخي westexcel...

هل تابعت إجابات الأخ الكريم محمد الخازمي ...

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

تقبل تحياتي

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

هذا مثال للعملية 

المطلوبة 

 http://arabsh.com/files/0b374d4e64f0/n2-xlsx.html

بالنسبة لملف الأخ الفاضل محمد الحازمي

لم تنجح حتى ان الدالة التي في الملف قديمة ولا توجد في اكسل 2013 

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

شكرا لكم مقدما على ما تقدمونه 

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

الأخ الكريم غرب الإكسيل (متخليك شرق عشان تكون معانا)

جرب الدالة المعرفة التالية علها تفي بالغرض

Function CalcString(S As String)
    Dim ArrLetters, ArrValues, X() As Byte, SpaceCounter As Long
    Dim I As Long, Counter As Long, Pos&
    ArrLetters = Join(Array("أ", "ا", "إ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "ة", "و", "ي"))
    ArrValues = Array(1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 26, 27, 28)
    X = StrConv(S, vbFromUnicode)
    For I = 0 To UBound(X)
        Pos = InStr(ArrLetters, Chr(X(I)))
        If Pos > 0 Then Counter = Counter + ArrValues((Pos - 1) / 2)
    Next I
    SpaceCounter = SpaceCount(S)
    CalcString = Counter - SpaceCounter
End Function

Function SpaceCount(ByVal strLine As String) As String
    Dim Str As String
    Dim TempCount As Long
    Dim I As Long
    
    Str = Trim(strLine)
    TempCount = 0
    
    For I = 1 To Len(Str)
        If Mid(Str, I, 1) = " " Then
            TempCount = TempCount + 1
        Else
            If TempCount > 0 Then
                SpaceCount = SpaceCount & " " & TempCount
                TempCount = 0
            End If
        End If
    Next I
    
    SpaceCount = Mid(SpaceCount, 2)
End Function

وإليك الملف المرفق

Sum Letters.rar

[عبد العزيز البسكري]

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

لم أفهم الموضوع من أساسه .. فقط تهيّأ لي أنّه عبارة عن " باركود " ..

لم أجرّب الكود و بدون أن أستعمله .. أقول لك أستاذنا الغالي و القدير ياسر خليل أبو البراء .. ما أروعك و ما أروع أكوادك .. قمّة في الدقّة و الكفاءة و الأناقة

أكرّر مرة أخري أنّه في نهاية المطاف لا يمكننا إلا نرفع القبعة لك .. بارك الله فيك و جزاك الله خيرًا و زادك من علمه و فضله

                                                                                                   فائق احتراماتي

 

 

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

وعليكم السلام أخي الغالي عبد العزيز البسكري

مشكور على كلماتك الرقيقة في حقي .. بارك الله فيك وجزيت خيراً على مجهودك ونشاطك الملحوظ بالمنتدى

أما بالنسبة لموضوع القبعة فلو رفعت القبعة سأضطر أن أرفع أنا أيضاً قبعتي رداً على التحية وهناااااااااااااااا ستحل الكارثة المؤكدة

لأنه بمجرد رفع قبعتي ستظهر الفضيحة ويحدث أنعكاس للضوء في عيون كل الناظرين نظراً للصلعة الموجودة في مقدمة الرأس ..

تقبل وافر تقديري واحترامي

[عبد العزيز البسكري]

إذن تفضّل أستاذي القدير ياسر خليل أبو البراء :

 

 

تحية خاصة.rar

[محمد حسن المحمد]

السلام عليكم إخوتي الكرام...

أبليتم بلاء حسناً...جزاكم الله خيراً عليه....أستاذي وحبيبي في الله أبو البراء...كود رائع يستحق الشكر والثناء...دون رفع قبعات لأنني مثلك فيما ذكرت 

وأظنني وجدته يعمل بشكل رائع عند كتابة مجموعة أحرف (حوالي 10 أحرف) والأروع من ذلك أنك طرحت الفراغات من عدد الأحرف التي سيحسب مجموعها.

فهل وجد الأخ West Excel ضالته أم أنه يستزيد..

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

...أخي الحبيب محمد الخازمي المبادر لعمل الخير...جزاك الله خيراً..ووفقك إلى مرضاته وطاعته أنت وكل من يقرأ مشاركتي هذه..

وأقول لكم ما قاله الشعراء للأساتذة الكرام المتواضعين لشرف العلم - ما ذكرني بهذا رفع القبعة - إخوتي الكرام:

ملأى السنابل تنحني بتواضع        والفارغات رؤوسهن شوامخ

وهذا بيت آخر يقول فيه:

تواضع تكن كالنجم لاح لناظر        على صفحات الماء وهو رفيعُ

فما أحسن ذلك التواضع الذي تتحلون به....تقبلوا تحياتي العطرة

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

 

 

 

 

[محمد حسن المحمد]

السلام عليكم إخي الكريم West Excel...

إن كنت قد وصلت إلى ما تريد ،فإنني أقترح عليك وضع مشاركة لأفضل إجابة / إجابات ..

لكي نعتبره مجاباً عليه ....نشكرهم من خلال ذلك على حسن استجابتهم وردهم الطيب....وننطلق إلى غيره بعون الله وبمشاركة أساتذتي الكرام...

تقبل تحياتي العطرة.

[عبد العزيز البسكري]

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

بارك الله فيك أستاذنا القدير محمّد حسن المحمّد على المتابعة الجيّدة و المستمرّة لشتّى المواضيع ..جزاك الله خيرًا و زادها بميزان حسناتك

                                                                                                         فائق احتراماتي

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

بعد اذن اخي ياسر

    A   لو كانت الكلمات في العامود  

اكتب هذه المعادلة واسحب نزولا ( معادلة صفيف)

=IF(A1<>"",SUM(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),{"ا";"ب";"ت";"ث";"ج";"ح";"ح";"د";"ذ";"ر";"ز";"س";"ش";"ص";"ض";"ط";"ظ";"ع";"غ";"ف";"ق";"ك";"ل";"م";"ن";"ه";"و";"ي"},0)),"")

 

تم تعديل أكتوبر 2, 2015 بواسطه سليم حاصبيا

[محمد حسن المحمد]

بعد اذن اخي ياسر

    A   لو كانت الكلمات في العامود  

اكتب هذه المعادلة واسحب نزولا ( معادلة صفيف)

=IF(A1<>"",SUM(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),{"ا";"ب";"ت";"ث";"ج";"ح";"خ";"د";"ذ";"ر";"ز";"س";"ش";"ص";"ض";"ط";"ظ";"ع";"غ";"ف";"ق";"ك";"ل";"م";"ن";"ه";"و";"ي"},0)),"")

 

أشكر الأستاذ المحترم سليم حاصبيا على مشاركته المثمرة ...راجياً أن ينتفع بها مع صديقاتها أكواد الأستاذ المحترم أبو البراء...

جاري تجربة معادلة صفيف....

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

تنويه:أستاذنا سليم لاحظ حرف الحاء مكرر...دون وجود لحرف الخاء...اقتضى التنويه لمن سيقوم باستعمال المعادلة لا حقاً ...صححته بمشاركتي هذه.

تقبل تحياتي..

 

[أسامة البراوى]

ماشاء الله حلول وافكار جميلة من الاستاذ والاخ العزيز ياسر خليل أبو البراء وكذلك والاستاذ القدير سليم حاصبيا 

وبمناسبة حل الاستاذ سليم اتمنى لو يشرحلنا الية عمل المعادلة (الصفيف) اللى عملها و ياريت لو هو او احد اخواننا الاساتذة الاجلاء فى المنتدى  شرحلنا تطبيقات متعددة على معدلات الصفيف لاهميتها   او يدلنا على شرح مسبق موسع لهذا النوع من المعادلات 

 

وتقبلوا تحياتى

تم تعديل أكتوبر 2, 2015 بواسطه أسامة البراوى

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

تعديل على المعادلة كي تتجاهل الفراغات

=IF(A1<>"",SUM(MATCH(MID(SUBSTITUTE(A1," ",""),ROW(INDIRECT("1:"&LEN(SUBSTITUTE(A1," ","")))),1),{"ا";"ب";"ت";"ث";"ج";"ح";"خ";"د";"ذ";"ر";"ز";"س";"ش";"ص";"ض";"ط";"ظ";"ع";"غ";"ف";"ق";"ك";"ل";"م";"ن";"ه";"و";"ي"},0)),"")

 

استاذ اسامة

اذهب الى هذا العنوان لتجد ما يهمك امره عن معادلات لصفيف

https://support.office.com/ar-sa/article/إرشادات-وأمثلة-لصيغ-الصفائف-3be0c791-3f89-4644-a062-8e6e9ecee523

[محمد حسن المحمد]

تعديل على المعادلة كي تتجاهل الفراغات

=IF(A1<>"",SUM(MATCH(MID(SUBSTITUTE(A1," ",""),ROW(INDIRECT("1:"&LEN(SUBSTITUTE(A1," ","")))),1),{"ا";"ب";"ت";"ث";"ج";"ح";"خ";"د";"ذ";"ر";"ز";"س";"ش";"ص";"ض";"ط";"ظ";"ع";"غ";"ف";"ق";"ك";"ل";"م";"ن";"ه";"و";"ي"},0)),"")

 

السلام عليكم

أستاذنا المحترم سليم ...معادلة ناجحة وممتازة...جزاكم الله خيراً..

تنويه: على من يريد استخدام الدالة استخدام الفاصلة المنقوطة حسب إعدادات الجهاز لديه ...لتعمل بنجاح...

نشكرك أستاذنا الكريم ...ونودّ أن يقوم أحد الأساتذة الأجلاء بالاستجابة لمطلب الأستاذ أسامة البراوي ...لتعم الفائدة...فمن حقنا على منتدانا أن نتعلم من أساتذته الكرام وهم لا يقصرون...

والسلام عليكم.

 

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

الأخ الكريم غرب الإكسيل (متخليك شرق عشان تكون معانا)

جرب الدالة المعرفة التالية علها تفي بالغرض

Function CalcString(S As String)
    Dim ArrLetters, ArrValues, X() As Byte, SpaceCounter As Long
    Dim I As Long, Counter As Long, Pos&
    ArrLetters = Join(Array("أ", "ا", "إ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "ة", "و", "ي"))
    ArrValues = Array(1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 26, 27, 28)
    X = StrConv(S, vbFromUnicode)
    For I = 0 To UBound(X)
        Pos = InStr(ArrLetters, Chr(X(I)))
        If Pos > 0 Then Counter = Counter + ArrValues((Pos - 1) / 2)
    Next I
    SpaceCounter = SpaceCount(S)
    CalcString = Counter - SpaceCounter
End Function

Function SpaceCount(ByVal strLine As String) As String
    Dim Str As String
    Dim TempCount As Long
    Dim I As Long
    
    Str = Trim(strLine)
    TempCount = 0
    
    For I = 1 To Len(Str)
        If Mid(Str, I, 1) = " " Then
            TempCount = TempCount + 1
        Else
            If TempCount > 0 Then
                SpaceCount = SpaceCount & " " & TempCount
                TempCount = 0
            End If
        End If
    Next I
    
    SpaceCount = Mid(SpaceCount, 2)
End Function

وإليك الملف المرفق

Sum Letters.rar

انك مبدع عزيزي المهندس

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

بالنسبة للمرفق 

لما اضع الكلمات تظهر النتيجة

value#!

 علما ان الاكسل 2013 عندي ونظام التشغيل باللغة الانجليزية لكن بشكل طبيعي اكتب باللغة العربية 

فما الحل رئيس جمهورية المبدعين 

المهندس ياسر

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

لكن المشكلة تظهر عندي 

value

علما ان الاكسل 2013 بالانكليزي 

ونظام التشغيل بالانكليزي لكن لدي برامج بالاكسل بالعربي وتشتغل بشكل طبيعي الا هذا لا ادري

لماذا

عموما اريد منك ان تتفضل بجنابك الكريم على الاجابة مشكورا 

وهذا طلبا من تلميذك وليس امرا 

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

أشكرك جميع المبدعين وعمالقة الاكسل 

رئيس جمهورية المبدعين : ياسر ابو البراء

نائب رئيس الجمهورية :محمد المحمد

رئيس وزراء جمهورية المبدعين:سليم حاصبيا

ورئيس برلمان جمهورية المبدعين :محمد الخازمي

ونائب رئيس مجلس البرلمان:عبدالعزيز البسكري

وعضو مجلس وزراء الجمهورية:اسامة البراوي

خالص شكري وتقديري وامتناني لكم 

دعواتي الخالصة والصادقة بالبركة في عمركم وعملكم وحفظكم الله من كل سوء

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

أخي الكريم

قم بالدخول على محرر الأكواد وانظر للحروف العربية وأجبني هل تظهر بشكل سليم أم لا؟

يمكنك تغيير إعدادات اللغة من خلال لوحة التحكم Control Panel ثم الإعدادات الإقليمية Regional & Language وادخل على آخر تبويب Administrative واختر اللغة العربية

الجهاز هيطلب منك ريستارت اعمل إعادة تشغيل وجرب الملف مرة أخرى

تقبل تحياتي

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

أخي الكريم

قم بالدخول على محرر الأكواد وانظر للحروف العربية وأجبني هل تظهر بشكل سليم أم لا؟

يمكنك تغيير إعدادات اللغة من خلال لوحة التحكم Control Panel ثم الإعدادات الإقليمية Regional & Language وادخل على آخر تبويب Administrative واختر اللغة العربية

الجهاز هيطلب منك ريستارت اعمل إعادة تشغيل وجرب الملف مرة أخرى

تقبل تحياتي

نعم استاذي المهندي

الحروف العربية تظهر في محرر الاكواد بشكل سليم

بالنسبة لتغيير الاعدادات من لوحة التحكم 

انا عندي نسخة ويندوز الانجليزية لا تتغير الاعدادات الاقليمية 

مثل واجهة النظام وغيره

اما الاوفيس والنظام كله يعمل بشكل طبيعي مع البرامج العربية وملفات الاوفيس

واستطيع تغيير القلم بكل يسر وسهولة لتحرير ما اردته بالعربي او الانكليزي 

شكرا لك استاذي ابو البراء 

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

هل جربت أن تدخل على التبويب Administrative ثم تقوم بالضغط على Change System Locale ثم تختار اللغة العربية لأي دولة وتعمل ريستارت ..؟؟

لن تخسر شيئاً بالتجربة

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

هذه صورتين توضح الاكواد

وتوضح نتيجة الكتابة

1

2