دالة ازالة ارقام او حروف

[ahmedhafez]

السلام عليكم

هل توجد دالة تقوم بازالة الارقام او الحروف معينة فى الكسيل على سبيل المثال مرفق شيت واريد ازالة من كل الاعمدة 000::

الموجودة امام كل البيانات هل هذا ممكن

test.rar

[أيسم إبراهيم]

السلام عليكم

الأخ الكريم

العملية مش محتاجة دالة ولا حاجة خالص

كل مافي الموضوع إن انت وضعت data validation في كل هذه الخلايا ومرجع هذه الفاليداشين موضوع على مدي من الأسماء( Enum ) قمت انت بحذفه

والحل؟؟؟؟؟؟؟؟؟؟؟

أن تقوم بحذف validation

data==>vaidation==>list== clear all

دمت بخير

أيسم إبراهيم

[هشام شلبى]

السلام عليكم

اخى ايسم عرفتك من توقيعك فى اخر الرد

ايه الى حصل للمنتدى لا ارى حتى اسامى القائمين على الردود ولا حتى ارى المرفقات اطلاقا

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

[حسين بلال]

Function AlphaNum1(txt As String, Optional numOnly As Boolean = True) As String

     'same result as AlphaNum2

    With CreateObject("VBScript.RegExp")

        .Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?")

        .Global = True

        AlphaNum1 = .Replace(txt, "")

    End With

End Function

تم تعديل يوليو 29, 2009 بواسطه hbsqn

[ahmedhafez]

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

[ahmedhafez]

اخى hbsqn هل لوتكرمت ما هو المفروض عملة بالكود اضافتة فى موديول وعمل زرار لكى يعكل الكود اما ماذا يجب عملة

[ahmedhafez]

اخى hbsqn هل لوتكرمت ما هو المفروض عملة بالكود اضافتة فى موديول وعمل زرار لكى يعكل الكود اما ماذا يجب عملة

[حسين بلال]

السلام عليكم

كل المطلوب منك هو اضافة موديول لصفحة personal عندك ( لتقدر تستخدم الكود في كل مكان من خلال برنامج اكسل عندك )

وبالتالي لما بيصير بدك تستخدم الكود

وأخيراً صفحة اكسل فيها الكود مضاف للتشغيل والتجربة مباشرة

http://www.4shared.com/file/112252747/48cd0536/delete_letters_from_cell.html

بالتوفيق والرضى من الله

[ahmedhafez]

السلام عليكم

جزاك الله كل خير اخى الكريم hbsqn على الشرح والدالة الاكثر من ممتازة ولى رجاء هو ارسال الايميل الخاص بك ان امكن بعداذن المشرفين

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

هل يوجد لديك فامكسن للتحويل من تكست الى نمبر والعكس ايضا فى انتظار ردك ان شاء الله

[حسين بلال]

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

أخي العزيز, حياك الله وبارك فيك. الدالة بحثت عنها في موقع اجنبي واستخدمها حين اللزوم في العمل. بخصوص طلبك الأول فاسمي هو نفسه في ياهو, طلبك الثاني, لم أفهم ما أردت, هل قصدك كود بيكول الأرقام لكتابة؟؟ إذا نعم, فجوابي كمان نعم بس الكود للغة الإنكليزية

حياك الله مجدداًُ

[ahmedhafez]

شكرا لك اخى الكريم وكنت قد ارسلت لك على الايميل رسالة ارجو ان تكون وصلت

[حسين بلال]

السلام عليكم

طيب أخي, للتحويل من رقم بتنسيق نص إلى رقم بتنسيق رقم استخدم الدالة التالية

=value(text)

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

=text(value,0.00)

وفقنا الله وإياك لما يحبه ويرضاه

[ahmedhafez]

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

[حسين بلال]

السلام عليكم

أخي الكريم, اعتذر عن تأخري بالرد, بس أمس كان خميس ونهار شغل طويل وشاق, الحمد لله على كل حال.

إليك هذا الكود اللي بيحول من فورمات نص إلى فورمات نص

Sub TxtFormatToNumbers()

Selection.Value = Selection.Value

End Sub

اما الكود الي بيقوم بعملية عكسية لسا مالقيتلك اياه, بحاول فيه بإذن الله

بالتوفيق والرضا

[ثائرالعراقي]

شكرا على هذا الموضوع الرائع والاجابة علية ان شاء الله المزيد من التقدم والعطاء

تم تعديل مارس 20, 2013 بواسطه ثائرالعراقي