اريد كود استخراج العدد من النص

[sag]

السلام عليكم

شكرا على هذا المنتدى الرائع المفيد

ولدي سوال

اريد كود استخراج العدد من نص

وكود استخراج النص من العدد

والاهم الاول

اريد كود مباشر الافضل اذا كان ممكن دون برمجة الا اذا كان مافي الا كذا

شاكر لكم

تم تعديل سبتمبر 14, 2012 بواسطه sag

[الشهابي]

الأخ العزيز / Sag

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

http://www.officena.net/ib/index.php?showtopic=34337

http://www.officena.net/ib/index.php?showtopic=38977

http://www.officena.net/ib/index.php?showtopic=39547

[جمال عبد السميع]

أتمني أخي أن يكون المطلوب

حذف النصوص من الأعداد.rar

[جمال عبد السميع]

وممكن كده أخي العزيز يخرج النص من الرقم

حذف الأعداد من النص 2.rar

[عبدالله المجرب]

السلام عليكم

لزيادة الفائدة

هاتان دالتان معرفتان لاستخراج الارقام والنص

Function MyNo(cl As Range)

For I = 1 To Len(cl)

If IsNumeric(Mid(cl, I, 1)) Then MyNo = MyNo & Mid(cl, I, 1)

Next

End Function

Function MyTxt(cl As Range)

For I = 1 To Len(cl)

If Not IsNumeric(Mid(cl, I, 1)) Then MyTxt = MyTxt & Mid(cl, I, 1)

Next

End Function

[الشهابي]

الأستاذ / mahmoud-lee

معادلة رائعة ومتقنة بارك الله فيك وزادك من علمه

أخي العزيز لاحظت مدى اتقانك ومعرفتك بمعادلات الصفيف

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

لأنني أجهل هذه الأمور تماما فجزاكم الله خير

[جمال عبد السميع]

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

ولكن لايعني هذا أنها مستحيلة وعلي شخصية مثلكم ولكن يجب الأستفاضة في شرحها لتؤتي بثمارها المرجوة

أولا- الصفيف (array )هو مجموعة من العناصر التي تتعامل معها بشكل جماعي أو إفرادي ، وفي الأكسيل يمكن أن يكون الصفيف وحيد البعد أو ثنائي الأبعاد

ولابد أن تتطابق هذه الأبعاد مع الصفوف والأعمدة.

فعلي سبيل المثال يمكن تخزين الصفيف وحيد البعد في نطاق يتكون من صف واحد ويسمي في هذه الحالة ( بالصفيف الأفقي ) أو عمود واحد ( صفيف شاقولي )

ويمكن تخزين صفيف ثنائي الأبعاد في نطاق مستطيل من الخلايا.

ولابد أخي العزيز من توضيح أن الأكسيل لايدعم الصفيف ثلاثي الأبعاد لرغم أن(vba ) تدعمة

مثال بسيط علي فائدة وجمال معادلات الصفيف وحيدة الخلية لوفرضنا أن العمود © يحوي قيما وكذلك العمود (b) وأن هذه البيانات تبدأ من (c2) ونرد ضرب هذه القيم في بعضها ثم جمعها

طبعا لو أستخدمنا الطريقة العادية سنقوم بضرب كل رقم فيما يقابلة ثم نقوم بجع الناتج أما لو أستخدمنا معادلة الصفيف

ستكون المعادلة أبسط وأسهل فتكون كالتالي:{=SUM(B2:B7*C2:C7)}

طبعا يمكن إستخدام sumproduct لأنه لايخفي علي حضرتك أنها المعادلة الوحيدة التي تتعامل مع ال ( array ) بمهارة عالية

طبعا هذا شئ يسير وأنا تحت أمرك في أي شئ تريدة

ملحوظة :

أخي وصديقي ( الشهابي ) لاأخفي علي حضرتك مقدار أعجابي وتقديري بأعمالك ومدي ذكائك وعبقريتك في تطويع المعادلة لما تريد فإلي الأمام دائما إنشاء الله وربنا يوفقك دائما

[الشهابي]

أخي العزيز / محمد

جزاك الله خير على هذا الشرح

نورت لنا الطريق الله ينور طريقك

على الرغم من أنني لم استوعب الدرس بشكل جيد

ولكن إن شاء الله على يديكم سوف نفهم ونتعلم

وعلى فكرة ما نقوم به ليس فيه ذكاء وعبقرية كما أشرت

فقط عدة محاولات أقوم بها حتى أصل إلى الحل إن استطعت

العقرية واضحة في أعمالكم أخي العزيز

أعمال كبيرة وأخلاق عالية

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

والعفو

[جمال عبد السميع]

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