معادلة لفصل الارقام عن الحروف فى الاكسيل

[walid_ha]

السلام عليكم

هل توجد معادلة لفصل الارقام عن الحروف فى الاكسيل؟؟؟

بمعنى اذا كان لدينا خلية تحتوى على ارقام وحروف فى نفس الوقت - فهل يوجد معادلة لفصل الارقام عن الحروف ووضعها فى خلية اخرى ؟؟

[طارق محمود]

السلام عليكم

حسب ماأعلم لايوجد دالة ولكن ممكن عمل مثل هذه الدالة بالأكواد

مثلا

Function horoof(a As String, b As Boolean) As String

	z = ""

	y = ""

	For i = 1 To Len(a)

 	x = Mid(a, i, 1)

 	If IsNumeric(x) = False Then z = z & x: GoTo 10

 	y = y & x

10	Next i

If b = False Then horoof = y Else horoof = z

End Function

أو أنظر المرفق صعب التحميل صيغة الدالة للحصول علي الحروف

horoof(X,1)

للحصول علي الأرقام

horoof(X,0)

المرفق علي الرابط التالي

http://www.4shared.c...GAa/horoof.html

تم تعديل أكتوبر 28, 2010 بواسطه TareQ M

[walid_ha]

اشكرك بشدة اخى العزيز على اهتمامك وسرعة اجابتك

[عبد الفتاح كيرة]

هذا ملف لأخينا خبور

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

دالة استخراج النص او الارقام.zip

[عصام محمود]

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

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

دالة استخراج النص او الارقام(1).zip

[وليد فتحي]

تابع هذا الموضوع اخي الفاضل

http://www.officena.net/ib/index.php?showtopic=48547#entry293861

الرد بالمشاركة رقم 4 للاستاذ الفاضل طارق محمود

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

أخى العزيز ( عصام )

أنا شايف الدوال المعرفة للأساتذة ( عبد الله بقشير ) والأستاذ ( طارق محمود مؤدية الغرض )

أم تريده بالدوال العادية إذا أردتها كذلك أنا تحت أمر حضرتك

 

أليك أخى دالة فصل الرقم عن النص ولنفرض وضعها فى العمود ( D3 ) وسحبها إلى أسفل

=SUMPRODUCT(MID(0&A3;LARGE(INDEX(ISNUMBER(--MID(A3;ROW($1:$25);1))*
ROW($1:$25);0);ROW($1:$25))+1;1)*10^ROW($1:$25)/10)

ثم وضع هذه المعادلة فى العمود ( E3 ) لفصل النص عن الرقم وسحبها لأسفل أيضا

=TRIM(SUBSTITUTE(A3;D3;""))

تقبل تحياتى

تم تعديل أكتوبر 30, 2013 بواسطه جمال عبد السميع

[رشراش علي]

رائع ان يكون رجال ينفقون من علمهم فلا يكلون ولا يملون، واني اقول اللهم زدهم علما ووفقهم الى ما تحب وترضى حتى الجنة من ابوابها الواسعة يدخلون، آمين    

[خجول الكون]

شكرا لكم

[عبد الفتاح كيرة]

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

[محمد عبده صلاح]

بارك الله  في جهودكم  جميعا