قبل از توضیح جدا کردن عدد از متن در اکسل بگم که میدونم میشه این کار رو تا حد زیادی با ابزار Flash Fill و یا Text To Column تا حد زیادی انجام داد ، که البته کاملا تو دوره مقدماتی کامل اکسل توضح دادم. اما این روش و تابعی که معرفی می کنم مزایا و موارد استفاده خودش رو داره .
فهرست محتوا
ویدیو آموزشی جدا کردن عدد از حروف
در ویدیو آموزشی جدا کردن عدد از متن در اکسل که ابتدای مطلب آموزش رایگان قرار داده شده به طور کامل توضیح داده شده است که چگونه از کدهای نوشته شده بهره ببیرد ، بازهم اگر مشکلی در استفاده داشتید در قسمت نظرات عنوان نمائید.
تابع مورد نیاز و روش استفاده
فرض میکنیم که فایلی داریم که ستونی از داده هادر آن وارد شده که ترکیبی از عدد و متن می باشد ، مانند تصویر زیر و میخواهیم در دو ستون اعداد را جدا گانه و حروف را هم در ستون دیگری داشته باشیم.
- با زدن کلیدهای Alt + F11 وارد قسمت کدنویسی شوید.
- کدهایی که در ادامه نوشته شده را کپی کنید .
- در فضای خالی ماژولها مانند ویدیو کلیک راست کرده و کدها را وارد نمائید.
- فایل را ذخیره کنید ، فایل باید ماکرو اینیبل ذخیره شود . پس روی No کلیک کرده و با پسوند xlsm ذخیره کنید.
- تابع SplitText به توابع شما اضافه شده که مانند ادامه از آن استفاده می کنید.
Public Function SplitText(ByVal x As String, LeaveNums As Boolean) As Variant
x = Replace(x, ChrW(1776), 0)
x = Replace(x, ChrW(1777), 1)
x = Replace(x, ChrW(1778), 2)
x = Replace(x, ChrW(1779), 3)
x = Replace(x, ChrW(1780), 4)
x = Replace(x, ChrW(1781), 5)
x = Replace(x, ChrW(1782), 6)
x = Replace(x, ChrW(1783), 7)
x = Replace(x, ChrW(1784), 8)
x = Replace(x, ChrW(1785), 9)
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
SplitText = Val(z)
Else
SplitText = Trim(z)
End If
End Functionفرض اینکه مقدار در A1 وارد شده باشد ، تابع زیر فقط اعداد را نمایش می دهد.
=SplitText(A1,TRUE)
فرض اینکه مقدار در A1 وارد شده باشد ، تابع زیر فقط اعداد را نمایش می دهد.
=SplitText(A1,FALSE)
مزیت جدا کردن عدد از متن در اکسل نسبت به توابع مشابه
توابع قبلی که خود ما هم در فایل مغایرت گیری اکسل از آن بهره بردیم برای اعدادی که فارسی وارد شده بودند کارایی نداشت و این فایلها معمولا نتیجه خروجی نرم افزارهای حسابداری و یا کپی و پیست کردن از اینترنت است مانند تصویر زیر.
