آموزش جدا کردن متن از عدد در اکسل

16 دیدگاه
  • آموزش جدا سازی متن از عدد در اکسل همراه کد VBA در اکسل 2019
    اگر ستونی در اکسل دارید که از متن و عدد تشکیل شده است.
    کنون می خواهید متن و شماره ها را از یک سلول به دو سلول مختلف جدا کنید

    هر کدام به یک سلول به صورت خودکار تقسیم بشه آموزش جدا کردن متن از عدد در اکسل مراحل زیر را با دقت دنبال کنید.

    همان طور که در تصویر زیر هم مشاهده می کنید

    جدا کردن متن از عدد در اکسل

    جدا کردن متن از عدد در اکسل

    1- فایل مورد نظر خود را باز کنید که دارای اطلاعات است

    و بعد کد زیر را به صورت کامل کپی کنید

    کد های پایین را یکی از کاربران سایت سون ریپلای ویرایش کد می توانید از این کد ها در صورت نیاز استفاده نمایید کد اول

    دوست عزیز پیشنهاد میشه این مطلب را هم ببینید
    آموزش نصب و فعال سازی دائمی اکسل 2019 در گوشی موبایل

    کد دوم

    دوست عزیز پیشنهاد میشه این مطلب را هم ببینید
    نحوه حذف سلول های خالی در اکسل همراه با فیلم آموزشی

     

    بعد از کپی کردن کد باله وارد فایل اکسل خود شوید که می خواهید جدا سازی متن از عدد در اکسل انجام بدهید بعد از وارد شدن به فایل اکسل.
    با زدن کلید های Alt+F11 وارد محیط کد نویسی اکسل شوید الان باید یک فایل ماکرو ایجاد کنید  در سمت چپ قسمت سفید رنگ راست کلیک کنید
    از گزینه Insert  در لیست باز شد روی Module کلیک کنید مثل تصویر زیر

     

    جدا کردن اعداد داخل یک متن در اکسل

    بعد از باز شدن ماکرو کد های که از سایت
    کپی کرد بودین را با کلیک های Ctrl+V وارد ماکرو کنید مثل تصویر زیر

     

    برای جدا کردن اعداد داخل یک متن در اکسل

    الان دیگه محیط کد نویسی vba اکسل را ببندید کار تمام شد
    برای جدا کردن شماره تلفن فقط کافی است که فرمول زیر را در سلول شماره تلفن وارد کنید مثل تصویر زیر

    دوست عزیز پیشنهاد میشه این مطلب را هم ببینید
    نحوه چاپ صفحه اکسل همراه با تصویر پس زمینه

     

    جدا کردن شماره از متن در اکسل

    شما با این کار جدا سازی شماره تلفن را از متن انجام دادین
    همان طور که در تصویر زیر هم مشاهده می کن شماره تلفن جدا شد

     

    جدا کردن متن از عدد در اکسل 2019

    جدا کردن عدد از متن در اکسل + ماکرو

    خوب الان نوبت جدا کردن متن از عدد است برای این کار هم یک فرمول بسیار ساده است فرمول زیر را کپی کنید مثل تصویر زیر عمل کنید

     

    آموزش رایگان اکسل

    خوب دوستان عزیز همان طور که در تصویر زیر هم مشاهده می کنید متن هم از عدد جدا شد

    جدا کردن متن از عدد در اکسل

    این هم از آموزش جدا سازی متن از عدد در اکسل 2019 هم متن جدا شد و هم شماره تلفن

     

    آموزش جدا کردن متن از عدد در اکسل همراه با کد vba

    خوب دوست و  همراهان سایت سون ریپلای آموزش جدا سازی متن از عدد در اکسل به پایان رسید
    در نظر داشته باشید که باید این فایل را با فرمت xlsm ذخیره کنید اگر هم آشنایی با فرمت ها اکسل ندارید پیشنهاد می کنم آموزش زیر را مشاهده کنید

    آموزش نمایش پسوند فایل ها در ویندوز ۱۰، ۸،۷ همراه با فیلم آموزش رایگان

    تا یک آموزش رایگان اکسل در پناه حق باشید

    میانگین امتیازات ۵ از ۵
    از مجموع ۴ رای
    اشتراک گذاری:

    مطالب مرتبط برای شما

    نظر یا سوال شما در این مورد چیست؟

      محسن آل آقا

      سلام من برای جدا سازی متن فارسی و سایر حروف (یعنی همه چیز بجز عدد) تابع را کمی تغییر دادم
      ضمن اینکه در پایان همین تابع وقتی عدد از متن جدا شود باز هم عدد را بصورت متن میشناسد(text) که اون را هم در پایان تابع اصلاح کردم و اکسل اعداد استخراج شده را بصورت عدد خواهد شناخت

      اگر دوست داشتید درسایتتون منتشر کنید تا بقه هم استفاده کنند

      ‘———————————
      ‘تهیه شده در ( http://WWW.7REPLY.COM )
      ‘———————————
      Public Function Strip(ByVal x As String, LeaveNums As Boolean) As Variant

      Dim y As String, z As String, n As Long
      For n = 1 To Len(x)
      y = Mid(x, n, 1)
      If LeaveNums = False Then
      If y Like “[0-9. ]” Then
      z = z
      Else
      z = z & y
      End If
      Else

      If y Like “[0-9. ]” Then z = z & y
      End If
      Next n
      If LeaveNums = True Then
      Strip = Val(z)
      Else
      Strip = Trim(z)
      End If

      End Function

      محسن آل آقا

      سلام
      من یک تغییر کوچک و ساده در متن این تابع دادم و برای استخراج کارکتر ها (فارسی و غیر فارسی) نتیجه گرفتم
      ‘—————-
      Dim y As String, z As String, n As Long ‘( http://WWW.7REPLY.COM )
      For n = 1 To Len(x)
      y = Mid(x, n, 1)
      If LeaveNums = False Then
      If y Like “[0-9. ]” Then
      z = z
      Else
      z = z & y
      End If
      Else
      If y Like “[0-9. ]” Then z = z & y ‘( http://WWW.7REPLY.COM )
      End If
      Next n
      Strip = Trim(z)
      ‘—————————–

      محسني

      سلام
      من طبق آموزش حضرتعالي عمل كردم ولي ماژول مورد نظر به اكسل اضافه نشد

      نیما

      سلام خسته نباشید.
      اولا ممنونم بابت این راهنمایی.
      دوما سوالی داشتم.
      چرا روی فارسی امتحان کردم انجام نشد؟حروف فارسی منظورمه.
      ممنون میشم جواب بدید

        سلام خدمت شما دوست گرامی
        بله حق باشما است این آموزش فقط برای حروف انگلیسی است توی آموزش های بعد این مورد را هم یک آموزش روی سایت قرار میدهم که بتوانید حروف فارسی را هم جدا کنید
        ممنون بابت پیشنهاد تون موفق باشید

      کریمی

      با سپاس از اموزش خوبتون.برای متن فارسی جواب نمیده

      بهرامی

      سلام.اگر متن فارسی باشه کاربرد نداره؟

      پگاه

      سلام
      ممنون از سايت خوبتون، اما متاسفانه من نتونستم از اين روش استفاده كنم
      پيغام خطا زير رو داد
      compile error
      ambiguous name detected:strip

        سلام و ارادت خدمت شما دوست گرامی به احتمال زیاد فرمولها را به درستی وارد نکردید برای همین ارور داده لطفاً با دقت بیشتر بررسی فرمایید مشکلی پیش نمیاد براتون اجرا میشه موفق و پیروز باشید

      مستانه امیری

      من هر کاری که تو ویدیو میگین انجام میدم اما اوکی نیست