قلم-الاكسل(عبدالعزيز)
-
Posts
269 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه قلم-الاكسل(عبدالعزيز)
-
-
الكود يعمل بشكل جيد معي
جرب الملف المرفق لربما حدث خطأ أثناء النسخ واللصق
مشكور عزيزي والله تعبتك معاي
باركك الله في علمك وعملك ونفعك بك وحفظك من كل شر
قمت بتغيير واجهة الاكسل من الانجليزية للعربية
ولكن دون جدوى
لما فتحته وكتبت كلمات اخرى نفس المشكلة النتيجة صفر
لا عليك سيدي
المشكلة ربما من جهازي وليست في الدالة او الملف المرفق
-
1
-
-
شكرا لك المهندس ابو البراء
قمت بنسخ ولصق الكود
لم يكتب في النتيجة
value
ما سبق
لكن كل ما اكتبه تظهر النتيجة صفر
-
هذه صورتين توضح الاكواد
وتوضح نتيجة الكتابة
1
2
-
أخي الكريم
قم بالدخول على محرر الأكواد وانظر للحروف العربية وأجبني هل تظهر بشكل سليم أم لا؟
يمكنك تغيير إعدادات اللغة من خلال لوحة التحكم Control Panel ثم الإعدادات الإقليمية Regional & Language وادخل على آخر تبويب Administrative واختر اللغة العربية
الجهاز هيطلب منك ريستارت اعمل إعادة تشغيل وجرب الملف مرة أخرى
تقبل تحياتي
نعم استاذي المهندي
الحروف العربية تظهر في محرر الاكواد بشكل سليم
بالنسبة لتغيير الاعدادات من لوحة التحكم
انا عندي نسخة ويندوز الانجليزية لا تتغير الاعدادات الاقليمية
مثل واجهة النظام وغيره
اما الاوفيس والنظام كله يعمل بشكل طبيعي مع البرامج العربية وملفات الاوفيس
واستطيع تغيير القلم بكل يسر وسهولة لتحرير ما اردته بالعربي او الانكليزي
شكرا لك استاذي ابو البراء
-
ألا يوجد جواب حول هذه المشكلة في الاكسل
ارجو المساعدة ولكم خالص الدعوات بتحقيق كل الامنيات
-
أشكرك جميع المبدعين وعمالقة الاكسل
رئيس جمهورية المبدعين : ياسر ابو البراء
نائب رئيس الجمهورية :محمد المحمد
رئيس وزراء جمهورية المبدعين:سليم حاصبيا
ورئيس برلمان جمهورية المبدعين :محمد الخازمي
ونائب رئيس مجلس البرلمان:عبدالعزيز البسكري
وعضو مجلس وزراء الجمهورية:اسامة البراوي
خالص شكري وتقديري وامتناني لكم
دعواتي الخالصة والصادقة بالبركة في عمركم وعملكم وحفظكم الله من كل سوء
-
الأخ الكريم غرب الإكسيل (متخليك شرق عشان تكون معانا)
جرب الدالة المعرفة التالية علها تفي بالغرض
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
وإليك الملف المرفق
انك مبدع عزيزي المهندس
فعلا انا احب الغروب
ولست من عشاق الشروق أضحك الله سنك يا مهندس الابداعبالنسبة للمرفق
لما اضع الكلمات تظهر النتيجة
value#!
علما ان الاكسل 2013 عندي ونظام التشغيل باللغة الانجليزية لكن بشكل طبيعي اكتب باللغة العربية
فما الحل رئيس جمهورية المبدعين
المهندس ياسر
المهندس الدكتور ابو البراء فعلا ما اريده انت جاوبت عليه فوق المتوقع
لكن المشكلة تظهر عندي
value
علما ان الاكسل 2013 بالانكليزي
ونظام التشغيل بالانكليزي لكن لدي برامج بالاكسل بالعربي وتشتغل بشكل طبيعي الا هذا لا ادري
لماذا
عموما اريد منك ان تتفضل بجنابك الكريم على الاجابة مشكورا
وهذا طلبا من تلميذك وليس امرا
-
هذا مثال للعملية
المطلوبة
http://arabsh.com/files/0b374d4e64f0/n2-xlsx.html
بالنسبة لملف الأخ الفاضل محمد الحازمي
لم تنجح حتى ان الدالة التي في الملف قديمة ولا توجد في اكسل 2013
لكن ليست هي المطلوبة وقد ارفقت لكم ملف لمعرفة المطلوب بالتحديد
شكرا لكم مقدما على ما تقدمونه
-
1
-
طريقة برمجة الحروف مع اﻷرقام في اﻹكسيل
في منتدى الاكسيل Excel
قام بنشر
المهندس ابو البراء اكتشفت الخطأ
لكن لا اعرف ما هو تصحيحه
يعني لما اكتب مثلا
بسم الله الرحمن الرحيم
يحسب الفراغات بين الكلمات
حيث كتب في النتيجة 3
ولما اكتب كلمة واحدة لا يعطيني شيء
وكذلك لما كتبت كلمتين حسب الفراغ فقط واعطاني نتيحة 1 حيث ان الفراغ بين الكلمتين واحدhttp://dc20.arabsh.com/uploads/image/2015/10/02/0c3e424e66fa07.jpg
اي انه لا يحسب الحروف كما أنا أريده وكما برمجته سيادتك
فما هو الحل لهذه المشكلة
نسخة الاوفيس لدي 2013 الانجليزية
ليست لدي مشاكل بنسخة الاوفيس اطلاقا