جدا کردن عدد از متن در اکسل با یک کلیک
- آخرین بروزرسانی: 28 خرداد 1402
جدا کردن عدد از متن در اکسل با یک کلیک روی این آموزش رایگان اکسل برای شما دوستان عزیز یک روش فوق العاده عالی برای جداسازی متن از عدد در اکسل به صورت کامل آموزش میدیم
ما توی این آموزش رایگان اکسل برای شما با استفاده از کد نویسی BVA نحوه جداسازی اعداد از متن در اکسل آموزش می دهیم که میتونیم به راحتی فقط با یک کلیک متن های خود را از اعداد جدا کنید
خوب برای این منظور در ادامه همین مطلب براتون یک چند خط کد vba قرار دادم که میتونید اونا به صورت کامل کپی کنید و وارد فایل اکسل کنید
جدا کردن عدد از متن در اکسل
نکات حرفهای برای جدا کردن عدد از متن در اکسل
بعد از اینکه وارد فایل اکسل شدید الان با کلیدهای میانبر Alt + F11
وارد محیط کد نویسی vba اکسل شوید
یک ماکرو ایجاد کنید بعد از اینکه ماکرو ایجاد شد کد هایی که کپی کردید از داخل سایت را به صورت کامل وارد وارد ماکرو کنید
الان هیچ کاری دیگه نیاز نیست انجام بدهید فقط شما نیاز هست داخل کد ها که نوشته شد را مشاهده کنید که کدام قسمت تغییر کند برای جداسازی
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
Sub SeparateNames() 'https://academyruhollah.com/ '============= آکادمي روح الله مرجع بانک کد BVA اکسل ======= Dim rng As Range Dim cell As Range Dim text As String Dim parts() As String Dim name As String Dim family As String Dim mobile As String ' تعيين محدوده ستون متن Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) For Each cell In rng text = cell.Value parts = Split(text, " - ") ' استفاده از نويزلاتور "-" ' جداسازي بخشهاي متن و قرار دادن در ستونهاي جداگانه If UBound(parts) >= 1 Then name = Trim(parts(0)) ' تراکم اضافي را برداشت کنيد family = Trim(parts(1)) ' تراکم اضافي را برداشت کنيد ' اگر تعداد بيشتري بخش وجود دارد، آنها را به ستون موبايل اضافه کنيد If UBound(parts) >= 2 Then mobile = Trim(parts(2)) ' تراکم اضافي را برداشت کنيد cell.Offset(0, 3).Value = mobile ' شماره موبايل در ستون D End If cell.Offset(, 1).Value = name ' نام در ستون B cell.Offset(0, 2).Value = family ' نام خانوادگي در ستون C End If Next cell End Sub |
بهترین روشها برای جدا کردن اعداد از متن در اکسل
راههای ساده برای استخراج عدد از متن در اکسل
به طور مثال داخل این کد ما داخل ستون A نام نام خانوادگی شماره همراه را داریم
الان میخواهیم نام نام خانوادگی در ستون B قرار بگیرد و شماره موبایل در ستون C
اگر اطلاعاتی که شما داخل فایل اکسل دارید مشابه همین فایل هست میتونید ماکرو را اجرا کنید در غیر این صورت آدرس ستون ها را داخل کد نویسی که توزیع دادیم را به صورت کامل تغییر بدهید و ماکرو را اجرا کنید
بعد از اجرا کردن ماکرو همانطور که مشاهده می کنید جداسازی متن و عدد در اکسل به صورت کامل عالی انجام شد
بهترین روشها برای جدا کردن اعداد از متن در اکسل
دوستان گرامی این هم بود از این آموزش رایگان اکسل از دسته بندی بانک کد اکسل در سایت آکادمی روح الله
امیدوارم که برای تو مورد استفاده قرار گرفته باشد هر گونه نظر یا پیشنهادی بود در قسمت نظرات همین صفحه برام بنویسید موفق و پیروز باشید
با سلام و خسته نباشید
آیا بوسیله کدنویسی در اکسل امکان ثبت اعداد منفی متغیر با فرمت نامبر در سلولها وجود دارد؟
سلام ارادت خدمت شما دوست عزیز
بله، در اکسل میتوان با استفاده از کدنویسی VBA و تنظیم فرمت سلولها، امکان ثبت اعداد منفی متغیر با فرمت “Number” را فراهم کرد. شما میتوانید برای این منظور یک ماکرو تعریف کنید که اعداد واردشده در سلولها را بررسی کرده و در صورت منفی بودن، فرمت مناسبی برای آنها اعمال کند.
مراحل
1. تنظیم فرمت سلولها:با استفاده از ویژگی
NumberFormat
میتوان فرمت دلخواه را برای سلولها تعریف کرد.2. رویداد تغییر سلولها: برای اطمینان از اینکه هر عدد منفی واردشده بلافاصله فرمت صحیحی دریافت کند، از رویداد
Worksheet_Change
استفاده کنید.نمونه کد VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
' بررسی اینکه تغییر فقط در یک سلول باشد
On Error GoTo ExitSub
Application.EnableEvents = False
For Each cell In Target
If IsNumeric(cell.Value) Then
' اعمال فرمت برای اعداد
cell.NumberFormat = "#,##0.00" ' فرمت اعداد با دو رقم اعشار
If cell.Value < 0 Then cell.Font.Color = RGB(255, 0, 0) ' رنگ قرمز برای اعداد منفی Else cell.Font.Color = RGB(0, 0, 0) ' رنگ مشکی برای اعداد مثبت End If End If Next cell ExitSub: Application.EnableEvents = True End Sub
توضیحات کد:
-
IsNumeric(cell.Value)
:بررسی میکند که مقدار واردشده عدد باشد.-
cell.NumberFormat
:فرمت عدد را تنظیم میکند (در اینجا دو رقم اعشار با جداکننده هزارگان تعریف شده است).-
cell.Font.Color
:** رنگ فونت را بر اساس مثبت یا منفی بودن عدد تغییر میدهد.- رویداد
Application.EnableEvents
: برای جلوگیری از حلقههای بیپایان در هنگام تغییرات، رویدادها موقتاً غیرفعال میشوند.نحوه استفاده:
1. کد بالا را در ماژول مربوط به شیت وارد کنید.
2. فایل خود را بهصورت ماکرو فعال ذخیره کنید (با پسوند
.xlsm
).3. حالا میتوانید مقادیر عددی (مثبت و منفی) را در سلولها وارد کنید و تغییرات خودکار را مشاهده کنید.
اگر نیاز به تنظیمات خاصی دارید یا سوالی پیش آمد، خوشحال میشوم کمک کنم!