مساعدة في تكوين مفردة

[أبوبلقيس]

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

أخي المحترم

لدي هاته القيمة على سبيل المثال  مررتها الى خلية الايكسل

203199227209

و هي معبرة عن اسم : ثامر

 

أعرف أنه في الايكسل يمكنني تحويل هاته القيمة الى حروف

باستعمال

الدالة CHAR  حيث سأحصل

على الحرف ث بالدالة

=CHAR(203)

و بتغير القيمة 199 نحصل على   ا

القيمة 227  الحرف م

القيمة 209  الحرف  ر

 

ما أبحث عنه  معادلة  تجميع الحروف ككلمة واحدة  ثامر  لأن الدالة تتعامل ب3 أرقام فقط

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

 

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

 

[شوقي ربيع]

السلام عليكم

صممت لك هته المعادلة ستفي بالغرض ان شاء الله

Function Rabie(Tst As String) As String
Dim bLen As Byte: bLen = Len(Tst)
Dim sName As String
Dim i As Long: For i = 1 To bLen Step 3
               sName = sName & Chr(Mid(Tst, i, 3))
               Next
Rabie = sName
End Function

chaouki.rar

[أبوبلقيس]

بارك الله فيك   أخي ربيع  شكرا جزيلا

 

أخي  ما أرسلته  هو المطلوب و يفي بغرض  تحويل الأرقام الى مفردة مجمعة

 

لكن  سيصعب عني تمرير  المعادلة  الى المحرر  بل يمكنني تمريرها لشريط المعادلات

 

بمعنى  نفس الكود المرسل  هل يمكن الحصول عليه على شكل معادلة  لأمررها مباشرة لشريط الصيغ

 

 

و في كل الاحوال  بارك الله فيك    شكرا جزيلا    احترامي

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

[شوقي ربيع]

 

chaouki.rar

[أبوبلقيس]

أخي  ربيع  أحرجتني بحسن تعاملك و اهتمامك  المتوقعين 

 

أخي ربيع  حتى  لا أتعبك كثيرا معي  سأشرح لك الأمر

 

للتضح الصورة أكثر 

 

أنا بصدد تمرير قيم و معادلات للايكسل و هو مغلق باستغلال مقاربة automation

 

وذلك باستغلال أحد الاضافات luacom

بمعنى من الاوتوبلاي أستدعي أي قيمة أو أكتبها

أو أقوم بتمرير معادلة

 

أنظر أخي لهذه الجزئية في الاكواد التي أستعملها  في لغة lua

    wSheet.Cells(25,5).Formula = "=SUM(E5:E24)"

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

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

أو باستعمال  وحدات معينة أو أو تأشير  على  اختيار

 

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

تقوم بالمطلوب  دون أجراءات تتطلب تفعيل وحدات الماكرو  أو ما شابه

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

معادلة يتم  تمريرها لتقوم بالمطلوب

 

أخي  بارك الله فيك و شكرا جزيلا

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

و إن تعذر ذلك   فلك مني كل التقدير و الاحترام

شكرا

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

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

جرب المعادلة بهذا الشكل ..

إذا كان عدد الأرقام ثابت ..

=CHAR((MID(A1,1,3)))&CHAR((MID(A1,4,3)))&CHAR((MID(A1,7,3)))&CHAR((MID(A1,10,3)))

[محمد الريفى]

السلام عليكم

بعد اذن استاذى الحبيب شوقى ربيع

واثراء للموضوع هذا حل اخر بالمعادلات

12.rar

[أبوبلقيس]

أخي خليل  بارك الله فيك  نعم أريد معادلة مباشرة

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

بإعتبار أن كل ثلاث أرقام ستمثل  حرفا معينا  قلت ذلك قلت ربما

يستغل للوصول الى حل يتعامل مع أي مفردة مهما كان طولها

 

يارك الله فيكما  و جزاكما كل خير

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

[أبوبلقيس]

المحترم 

محمد الريفى

 

بارك الله فيك  الصورة بدأت تتضح  شكرا  لاحظ أخي

أنه تم استغلال خلايا لتقسيم القيمة  ثم استنباط  المفردة

تلك الخلايا الوسيطة   هل يمكن تفاديها لا نها ستشكل عائقا

فتخيل لأمرر  بيانات كثيرة  كم يلزمني من خلايا لأصل لنتائج

 

بارك الله فيك   شكرا

[محمد الريفى]

اخى الكريم

جرب هذا الملف

 

 

12.rar

[أبوبلقيس]

أخي  

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

بارك الله فيك  سلمت أناملك

 

شكرا أخي ربيع  شكرا أخي ياسر

 

لكم كل التقدير 

 

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

و باستغلال عناصر البرنامج 

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

 

شكرا أحبابي

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

[أبوبلقيس]

السلام عليكم

 

 

 

اذ أمكنك أخي مساعدتي  في هذا الكود

=IFERROR(CHAR(MID(203199227209;LEN(203199227209)-LEN(203199227209)+1;3));"")

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

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

هل يوجد عندي خلل في التطبيق

بارك الله فيكم

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

[محمد الريفى]

اخى الكريم

انت لم تكمل المعادله

واليك المعادله مره اخرى بشكل مختصر

تقبل تحياتى

=IFERROR(CHAR(MID($C2;1;3));"")&
IFERROR(CHAR(MID($C2;4;3));"")&
IFERROR(CHAR(MID($C2;7;3));"")&
IFERROR(CHAR(MID($C2;10;3));"")&
IFERROR(CHAR(MID($C2;13;3));"")&
IFERROR(CHAR(MID($C2;16;3));"")&
IFERROR(CHAR(MID($C2;19;3));"")&
IFERROR(CHAR(MID($C2;23;3));"")

[أبوبلقيس]

بارك الله فيك  أخي محمد

 

عذرا على التأخر في الرد

 

بارك الله فيكم جميعا   شكرا