نحوه تبدیل متن به عدد با Excel VBA (3 مثال با ماکرو)

Hugh West

16-10-2023 ماکروها & Excel VBA
  • این را به اشتراک بگذارید
Hugh West

در مایکروسافت اکسل، کار با اعداد رایج ترین است. گاهی اوقات، ما باید یک مجموعه داده را با مقادیر زیادی از اعداد پردازش کنیم. اما، ممکن است در موقعیتی قرار بگیرید که اعداد شما شبیه متن باشند. به همین دلیل نمی توان هیچ گونه عملیاتی را جمع، تفریق، تقسیم، ضرب یا انجام داد. هنگامی که شما سعی می کنید این کار را انجام دهید همیشه یک خطا نشان می دهد. در این آموزش نحوه تبدیل متن به عدد در اکسل را با استفاده از کدهای VBA با مثال های مناسب و تصاویر مناسب به شما آموزش می دهیم.

دانلود کتاب تمرین تمرین

این تمرین را دانلود کنید کتاب کار

تبدیل متن به اعداد با استفاده از VBA.xlsm

نحوه شناسایی اعداد فرمت شده به صورت متن

Microsoft Excel هوشمند است برای درک تفاوت بین Text و Number کافی است. به طور خودکار آنها را به فرمت های مربوطه تبدیل می کند. اما، گاهی اوقات به دلیل استفاده نادرست و تفسیرهای نادرست از مجموعه داده نمی تواند این کار را انجام دهد. به همین دلیل، آن اعداد را به عنوان متن در کتاب کار شما نگه می دارد.

به این مجموعه داده نگاهی بیندازید. در اینجا، تعدادی اعداد در یک ستون داریم.

اگرچه اعدادی در ستون داریم، اما همه آنها مانند متن تراز چپ هستند. اکنون، روی هر سلولی کلیک کنید. شما این کادر را در کنار سلول خواهید یافت.

اکنون، نشانگر ماوس را روی جعبه قرار دهید. پس از آن، این پیام را خواهید دید.

این نشان می دهد که سلول به صورت متن فرمت شده است. به این ترتیب می توانید مطمئن باشیدآیا سلول ها به صورت متن فرمت می شوند یا نه.

3 کد VBA برای تبدیل متن به عدد در اکسل

اگرچه می توانید به راحتی متن را به صورت دستی به اعداد تبدیل کنید، این آموزش در مورد تبدیل متن به اعداد است. شماره با استفاده از کدهای VBA توصیه می کنیم همه این روش ها را در مجموعه داده خود یاد بگیرید و اعمال کنید. مطمئناً در بسیاری از موقعیت‌ها مفید خواهد بود.

1. کد VBA با روش Range.NumberFormat برای تبدیل متن به عدد در اکسل

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

📌 Steps

1. ابتدا ALT+F11 را روی صفحه کلید خود فشار دهید تا ویرایشگر VBA باز شود.

2. روی Insert > ماژول .

3. سپس کد زیر را تایپ کنید:

1700

4. فایل را ذخیره کنید.

5. سپس، ALT+F8 را فشار دهید. کادر گفتگوی Macro را باز می کند.

6. ConvertTextToNumber را انتخاب کنید و روی Run کلیک کنید.

در پایان، این کد متن ما را به عدد تبدیل می کند.

بیشتر بخوانید: نحوه تبدیل رشته به عدد در اکسل VBA

2. کد VBA با حلقه و CSng برای تبدیل متن به عدد

در این روش از توابع Loop و CSng استفاده می کنیم. تابع CSng اساساً هر متنی را به عنوان آرگومان می گیرد و آن را به یک عدد تبدیل می کند. حلقه ما از هر سلول عبور خواهد کردستون انتخاب شده پس از آن، مقدار هر سلول را به تابع CSng می‌دهیم تا آن را از متن به عدد تبدیل کنیم.

📌 Steps

1. ابتدا ALT+F11 را روی صفحه کلید خود فشار دهید تا ویرایشگر VBA باز شود.

2. روی Insert > ماژول .

3. سپس کد زیر را تایپ کنید:

8120

4. فایل را ذخیره کنید.

5. سپس، ALT+F8 را فشار دهید. کادر گفتگوی Macro را باز می کند.

6. ConvertUsingLoop را انتخاب کنید و روی Run کلیک کنید.

همانطور که می بینید، ما متن خود را با استفاده از این کد VBA به اعداد تبدیل کرده ایم. .

خواندنی مشابه

  • تبدیل انبوه متن به عدد در اکسل (6 روش)
  • نحوه تبدیل رشته به طولانی با استفاده از VBA در اکسل (3 روش)
  • تبدیل رشته به دوبل در Excel VBA (5 روش)
  • چگونه برای رفع خطای تبدیل به عدد در اکسل (6 روش)

3. تبدیل متن به اعداد برای محدوده های پویا در اکسل

اکنون، روش های قبلی برای محدوده های انتخاب شده بود. . این بدان معنی است که شما باید به صورت دستی محدوده سلول های خود را در کد وارد کنید. اما گاهی اوقات ممکن است مجموعه داده شما بزرگ باشد. در این موارد، شما باید محدوده سلول ها را به خاطر بسپارید. این روش بر آن مشکل غلبه خواهد کرد. ما می دانیم که مجموعه داده ما از Cell B5 شروع می شود. اما ما نمی دانیم که ممکن است کجا تمام شود.

بنابراین ما به صورت پویا آخرین ردیف اکسل استفاده شده را که دارای داده در آن است با استفاده از Cells(Rows.Count, "B").End(xlUp).Row شناسایی می کنیم. آی تیآخرین شماره ردیف غیر خالی را که با " B5:B " الحاق می کنیم، برمی گرداند.

📌 Steps

1. ابتدا ALT+F11 را روی صفحه کلید خود فشار دهید تا ویرایشگر VBA باز شود.

2. روی Insert > Module کلیک کنید.

3. سپس کد زیر را تایپ کنید:

6684

4. فایل را ذخیره کنید.

5. سپس، ALT+F8 را فشار دهید. کادر گفتگوی Macro را باز می کند.

6. سپس ConvertDynamicRanges را انتخاب کنید و روی Run کلیک کنید.

همانطور که می بینید، ما در تبدیل متن به اعداد با استفاده از کدهای VBA.

💬 چیزهایی که باید به خاطر بسپارید

✎ در اینجا، ما از ستون B برای مجموعه داده خود استفاده می کنیم. اگر داده‌های شما در ستون دیگری قرار دارند، محدوده سلول‌های کدهای VBA را متناسب با آن تغییر دهید.

✎ کدهای VBA فقط در برگه فعال کار می‌کنند.

نتیجه‌گیری

برای جمع بندی، امیدوارم این آموزش اطلاعات مفیدی در مورد تبدیل متن به عدد در اکسل با استفاده از کدهای VBA در اختیار شما قرار داده باشد. توصیه می کنیم همه این دستورالعمل ها را در مجموعه داده خود یاد بگیرید و اعمال کنید. کتاب تمرین را دانلود کنید و خودتان آن ها را امتحان کنید. همچنین در قسمت نظرات نظرات خود را اعلام کنید. بازخورد ارزشمند شما ما را برای ایجاد آموزش هایی مانند این انگیزه نگه می دارد. فراموش نکنید که وب سایت ما Exceldemy.com را برای مشکلات و راه حل های مختلف مرتبط با اکسل بررسی کنید.

پست قبلی نحوه حذف موارد تکراری و حفظ اولین مقدار در اکسل (5 روش)
پست بعدی نحوه شمارش کلمات خاص در یک ستون در اکسل (2 روش)

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