تفکیک عدد از حروف در اکسل (VBA)

امتیاز 3.67 ( 6 رای )

تفکیک عدد از حروف در اکسل (VBA)

تفکیک عدد از حروف در اکسل (VBA)

در این پست آموزشی قصد داریم پیرامون نحوه و چگونگی تفکیک عدد از حروف در اکسل، اطلاعات مفیدی را خدمت شما عزیزان ارائه نماییم. قبل از هرچیزی باید بدانید که این عمل توسط ترکیب توابع LEFT , RIGHT , MID , FIND و یا استفاده از  ابزارهای کاربردی اکسل امثال Flash Fill ، Text To Columns نیز امکان پذیر است ولی روش ساده تر قطعا استفاده از کدها و توابع آماده ماکرونویسی است.

با استفاده از تابع زیر شما قادر به تفکیک عدد از متن و حروف در اکسل خواهید بود:

Function excellearn(rng As String)

    For i = 1 To Len(rng)

        If IsNumeric(Mid(rng, i, 1)) Then

            excellearn = excellearn & Mid(rng, i, 1)

        End If

     Next i

End Function

توضیحات تابع فوق:

تابع excellearn یک مقداری را تحت عنوان rng از کاربرد دریافت میکند. سپس با استفاده از حلقه For از اولین کارکتر تا آخرین کارکتر مقدار محتوای ورودی را بررسی میکند. در صورت وجود عدد (isnumeric) در هریک از کارکترهای محتوای وارد شده، تابع excellearn آن را ذخیره و در پایان کار حلقه، به عنوان خروجی تابع excellearn بر میگرداند.

نحوه استفاده از تابع تفکیک عدد از حروف در اکسل (VBA)

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

نحوه استفاده از تابع تفکیک عدد از حروف در اکسل (VBA)

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

نحوه استفاده از تابع تفکیک عدد از حروف در اکسل (VBA)

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

نحوه استفاده از تابع تفکیک عدد از حروف در اکسل (VBA)

در ادامه مثالی از نحوه استفاده و کاربرد تابع تفکیک عدد از حروف در اکسل (VBA) آماده نمودیم.

به محدوده داده های زیر دقت کنید:

نحوه استفاده از تابع تفکیک عدد از حروف در اکسل (VBA)

برای استخراج اعداد از محتوای متنی تنها کافی است تابع excellearn را همانند تصویر زیر نوشته:

تفکیک عدد از متن در وی بی ای اکسل

و سپس به سایر سلول های محدوده تعمیم دهیم:

نحوه استفاده از تابع تفکیک عدد از حروف در اکسل (VBA)

همانطور که در تصویر فوق مشاهده میکنید، اعداد براحتی از محتوای متنی توسط تابع excellearn تفکیک شدند.

در پایان امیدواریم این پست آموزشی مورد رضایت و استفاده شما عزیزان و سروران گرامی قرار گیرد. در صورت وجود هرگونه انتقاد و پیشنهاد می توانید آن را در قسمت نظرات سایت برای ما ارسال نمایید. موفق و پیروز باشین.

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

منبع آموزشی: سایت اکسل لرن

مطالعه بیشتر