محمد حسن المحمد قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 السلام عليكم إخوتي خبراء إكسيل الكرام: طرح علي اﻷخ 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 2
عبد العزيز البسكري قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير محمد حسن المحمد .. جزاك الله خيرًا و زادها بميزان حسناتك .. " الدّال على الخير كفاعله " خالص احتراماتي 1
محمد الورفلي1 قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 (معدل) السلام عليكم استاذ محمد سؤال جميل ..... وموضوع يستحق المتابعة لنتعلم كيف الطريق ....... اساهم معك ببكود .... الاستاذ هشام شلبي ..... عثرت عليها سابقاً هو مختلفة لكن ممكن تستعين به و يساعدك بفكرة ما الجمع في خلية.rar الجمع في خلية.rar تم تعديل أكتوبر 1, 2015 بواسطه محمد الخازمي 2
محمد حسن المحمد قام بنشر أكتوبر 1, 2015 الكاتب قام بنشر أكتوبر 1, 2015 السلام عليكم أخي العزيز محمد الخازمي جزاكم الله خيرا على سرعة الاستجابة..وكما ترى من خلال كتابتي متابعتي عبر جهاز الهاتف..مما يحرمني من متابعتكم الصحيحة..والحثيثة ..أرجو أن تكون إجابة شافية..كما أشكر أخي الحبيب عبد العزيز الذي أرى لهفته لكلمة الحق والدين...ما دام هنالك أخوتي أمثالكم فنحن بخير والحمد لله....تقبلوا تحياتي. 1
محمد الورفلي1 قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 استاذ محمد كما ذكرت لك في المشاركة السابقة كود بطريقة مختلفة ارجوا ان تستفيد منها وتكون بداية الخيط 2
محمد حسن المحمد قام بنشر أكتوبر 1, 2015 الكاتب قام بنشر أكتوبر 1, 2015 السلام عليكم أخي westexcel... هل تابعت إجابات الأخ الكريم محمد الخازمي ... أرجو الرد لمعرفة النتيجة..هل تم المطلوب ؟. كونه من الضروري حسب توجيهات المنتدى الكريم متابعة بحثك. . تقبل تحياتي
قلم-الاكسل(عبدالعزيز) قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 هذا مثال للعملية المطلوبة http://arabsh.com/files/0b374d4e64f0/n2-xlsx.html بالنسبة لملف الأخ الفاضل محمد الحازمي لم تنجح حتى ان الدالة التي في الملف قديمة ولا توجد في اكسل 2013 لكن ليست هي المطلوبة وقد ارفقت لكم ملف لمعرفة المطلوب بالتحديد شكرا لكم مقدما على ما تقدمونه 1
ياسر خليل أبو البراء قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 الأخ الكريم غرب الإكسيل (متخليك شرق عشان تكون معانا) جرب الدالة المعرفة التالية علها تفي بالغرض 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 8
عبد العزيز البسكري قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 السّلام عليكم و رحمة الله و بركاته لم أفهم الموضوع من أساسه .. فقط تهيّأ لي أنّه عبارة عن " باركود " .. لم أجرّب الكود و بدون أن أستعمله .. أقول لك أستاذنا الغالي و القدير ياسر خليل أبو البراء .. ما أروعك و ما أروع أكوادك .. قمّة في الدقّة و الكفاءة و الأناقة أكرّر مرة أخري أنّه في نهاية المطاف لا يمكننا إلا نرفع القبعة لك .. بارك الله فيك و جزاك الله خيرًا و زادك من علمه و فضله فائق احتراماتي 1
ياسر خليل أبو البراء قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 وعليكم السلام أخي الغالي عبد العزيز البسكري مشكور على كلماتك الرقيقة في حقي .. بارك الله فيك وجزيت خيراً على مجهودك ونشاطك الملحوظ بالمنتدى أما بالنسبة لموضوع القبعة فلو رفعت القبعة سأضطر أن أرفع أنا أيضاً قبعتي رداً على التحية وهناااااااااااااااا ستحل الكارثة المؤكدة لأنه بمجرد رفع قبعتي ستظهر الفضيحة ويحدث أنعكاس للضوء في عيون كل الناظرين نظراً للصلعة الموجودة في مقدمة الرأس .. تقبل وافر تقديري واحترامي 4
عبد العزيز البسكري قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 إذن تفضّل أستاذي القدير ياسر خليل أبو البراء : تحية خاصة.rar 2
محمد حسن المحمد قام بنشر أكتوبر 2, 2015 الكاتب قام بنشر أكتوبر 2, 2015 السلام عليكم إخوتي الكرام... أبليتم بلاء حسناً...جزاكم الله خيراً عليه....أستاذي وحبيبي في الله أبو البراء...كود رائع يستحق الشكر والثناء...دون رفع قبعات لأنني مثلك فيما ذكرت وأظنني وجدته يعمل بشكل رائع عند كتابة مجموعة أحرف (حوالي 10 أحرف) والأروع من ذلك أنك طرحت الفراغات من عدد الأحرف التي سيحسب مجموعها. فهل وجد الأخ West Excel ضالته أم أنه يستزيد.. أما عن أخي وحبيبي في الله عبد العزيز فهديتك الخاصة رائعة للأستاذ أبو البراء...اللهم زد وبارك...مرورك عطر وورودك زينت بها مشاركاتك الطيبة ...أخي الحبيب محمد الخازمي المبادر لعمل الخير...جزاك الله خيراً..ووفقك إلى مرضاته وطاعته أنت وكل من يقرأ مشاركتي هذه.. وأقول لكم ما قاله الشعراء للأساتذة الكرام المتواضعين لشرف العلم - ما ذكرني بهذا رفع القبعة - إخوتي الكرام: ملأى السنابل تنحني بتواضع والفارغات رؤوسهن شوامخ وهذا بيت آخر يقول فيه: تواضع تكن كالنجم لاح لناظر على صفحات الماء وهو رفيعُ فما أحسن ذلك التواضع الذي تتحلون به....تقبلوا تحياتي العطرة والسلام عليكم ورحمة الله وبركاته. 3
محمد حسن المحمد قام بنشر أكتوبر 2, 2015 الكاتب قام بنشر أكتوبر 2, 2015 السلام عليكم إخي الكريم West Excel... إن كنت قد وصلت إلى ما تريد ،فإنني أقترح عليك وضع مشاركة لأفضل إجابة / إجابات .. لكي نعتبره مجاباً عليه ....نشكرهم من خلال ذلك على حسن استجابتهم وردهم الطيب....وننطلق إلى غيره بعون الله وبمشاركة أساتذتي الكرام... تقبل تحياتي العطرة. 1
عبد العزيز البسكري قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير محمّد حسن المحمّد على المتابعة الجيّدة و المستمرّة لشتّى المواضيع ..جزاك الله خيرًا و زادها بميزان حسناتك فائق احتراماتي 1
سليم حاصبيا قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 (معدل) بعد اذن اخي ياسر A لو كانت الكلمات في العامود اكتب هذه المعادلة واسحب نزولا ( معادلة صفيف) =IF(A1<>"",SUM(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),{"ا";"ب";"ت";"ث";"ج";"ح";"ح";"د";"ذ";"ر";"ز";"س";"ش";"ص";"ض";"ط";"ظ";"ع";"غ";"ف";"ق";"ك";"ل";"م";"ن";"ه";"و";"ي"},0)),"") تم تعديل أكتوبر 2, 2015 بواسطه سليم حاصبيا 5
محمد حسن المحمد قام بنشر أكتوبر 2, 2015 الكاتب قام بنشر أكتوبر 2, 2015 بعد اذن اخي ياسر A لو كانت الكلمات في العامود اكتب هذه المعادلة واسحب نزولا ( معادلة صفيف) =IF(A1<>"",SUM(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),{"ا";"ب";"ت";"ث";"ج";"ح";"خ";"د";"ذ";"ر";"ز";"س";"ش";"ص";"ض";"ط";"ظ";"ع";"غ";"ف";"ق";"ك";"ل";"م";"ن";"ه";"و";"ي"},0)),"") أشكر الأستاذ المحترم سليم حاصبيا على مشاركته المثمرة ...راجياً أن ينتفع بها مع صديقاتها أكواد الأستاذ المحترم أبو البراء... جاري تجربة معادلة صفيف.... أستاذي الكريم سليم حاصبيا بعد التجربة لهذه المعادلة أرغب من حضرتكم طرح الفراغات من بين الكلمات ليتم الحساب بشكل دقيق فهل يمكن تعديلها ..لأن المعادلة هنا تفترض أن الكلمة وحدها أو أن يتم لصق حروف الكلمات دون فراغات ... تنويه:أستاذنا سليم لاحظ حرف الحاء مكرر...دون وجود لحرف الخاء...اقتضى التنويه لمن سيقوم باستعمال المعادلة لا حقاً ...صححته بمشاركتي هذه. تقبل تحياتي..
أسامة البراوى قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 (معدل) ماشاء الله حلول وافكار جميلة من الاستاذ والاخ العزيز ياسر خليل أبو البراء وكذلك والاستاذ القدير سليم حاصبيا وبمناسبة حل الاستاذ سليم اتمنى لو يشرحلنا الية عمل المعادلة (الصفيف) اللى عملها و ياريت لو هو او احد اخواننا الاساتذة الاجلاء فى المنتدى شرحلنا تطبيقات متعددة على معدلات الصفيف لاهميتها او يدلنا على شرح مسبق موسع لهذا النوع من المعادلات وتقبلوا تحياتى تم تعديل أكتوبر 2, 2015 بواسطه أسامة البراوى 1
سليم حاصبيا قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 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 1
محمد حسن المحمد قام بنشر أكتوبر 2, 2015 الكاتب قام بنشر أكتوبر 2, 2015 تعديل على المعادلة كي تتجاهل الفراغات =IF(A1<>"",SUM(MATCH(MID(SUBSTITUTE(A1," ",""),ROW(INDIRECT("1:"&LEN(SUBSTITUTE(A1," ","")))),1),{"ا";"ب";"ت";"ث";"ج";"ح";"خ";"د";"ذ";"ر";"ز";"س";"ش";"ص";"ض";"ط";"ظ";"ع";"غ";"ف";"ق";"ك";"ل";"م";"ن";"ه";"و";"ي"},0)),"") السلام عليكم أستاذنا المحترم سليم ...معادلة ناجحة وممتازة...جزاكم الله خيراً.. تنويه: على من يريد استخدام الدالة استخدام الفاصلة المنقوطة حسب إعدادات الجهاز لديه ...لتعمل بنجاح... نشكرك أستاذنا الكريم ...ونودّ أن يقوم أحد الأساتذة الأجلاء بالاستجابة لمطلب الأستاذ أسامة البراوي ...لتعم الفائدة...فمن حقنا على منتدانا أن نتعلم من أساتذته الكرام وهم لا يقصرون... والسلام عليكم. 1
قلم-الاكسل(عبدالعزيز) قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 الأخ الكريم غرب الإكسيل (متخليك شرق عشان تكون معانا) جرب الدالة المعرفة التالية علها تفي بالغرض 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 بالانكليزي ونظام التشغيل بالانكليزي لكن لدي برامج بالاكسل بالعربي وتشتغل بشكل طبيعي الا هذا لا ادري لماذا عموما اريد منك ان تتفضل بجنابك الكريم على الاجابة مشكورا وهذا طلبا من تلميذك وليس امرا
قلم-الاكسل(عبدالعزيز) قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 أشكرك جميع المبدعين وعمالقة الاكسل رئيس جمهورية المبدعين : ياسر ابو البراء نائب رئيس الجمهورية :محمد المحمد رئيس وزراء جمهورية المبدعين:سليم حاصبيا ورئيس برلمان جمهورية المبدعين :محمد الخازمي ونائب رئيس مجلس البرلمان:عبدالعزيز البسكري وعضو مجلس وزراء الجمهورية:اسامة البراوي خالص شكري وتقديري وامتناني لكم دعواتي الخالصة والصادقة بالبركة في عمركم وعملكم وحفظكم الله من كل سوء
ياسر خليل أبو البراء قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 أخي الكريم قم بالدخول على محرر الأكواد وانظر للحروف العربية وأجبني هل تظهر بشكل سليم أم لا؟ يمكنك تغيير إعدادات اللغة من خلال لوحة التحكم Control Panel ثم الإعدادات الإقليمية Regional & Language وادخل على آخر تبويب Administrative واختر اللغة العربية الجهاز هيطلب منك ريستارت اعمل إعادة تشغيل وجرب الملف مرة أخرى تقبل تحياتي
قلم-الاكسل(عبدالعزيز) قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 أخي الكريم قم بالدخول على محرر الأكواد وانظر للحروف العربية وأجبني هل تظهر بشكل سليم أم لا؟ يمكنك تغيير إعدادات اللغة من خلال لوحة التحكم Control Panel ثم الإعدادات الإقليمية Regional & Language وادخل على آخر تبويب Administrative واختر اللغة العربية الجهاز هيطلب منك ريستارت اعمل إعادة تشغيل وجرب الملف مرة أخرى تقبل تحياتي نعم استاذي المهندي الحروف العربية تظهر في محرر الاكواد بشكل سليم بالنسبة لتغيير الاعدادات من لوحة التحكم انا عندي نسخة ويندوز الانجليزية لا تتغير الاعدادات الاقليمية مثل واجهة النظام وغيره اما الاوفيس والنظام كله يعمل بشكل طبيعي مع البرامج العربية وملفات الاوفيس واستطيع تغيير القلم بكل يسر وسهولة لتحرير ما اردته بالعربي او الانكليزي شكرا لك استاذي ابو البراء
ياسر خليل أبو البراء قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 هل جربت أن تدخل على التبويب Administrative ثم تقوم بالضغط على Change System Locale ثم تختار اللغة العربية لأي دولة وتعمل ريستارت ..؟؟ لن تخسر شيئاً بالتجربة
قلم-الاكسل(عبدالعزيز) قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 هذه صورتين توضح الاكواد وتوضح نتيجة الكتابة 1 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.