حذف حروف الفبا در سلول های اکسل

حذف حروف در اکسل
حذف حروف در اکسل

با سلام و درود، در این مطلب آموزشی قصد دارم به روش حذف کردن حروف الفبا از سلول های اکسل بپردازم.

اول از همه، چی شد که به این نیازمندی رسیدم؟

خب بنا بر نیاز شرکتی که در حال حاضر در آن مشغول هستم، قرار شد با فایلی با فرمت اکسل کار کنم که در آن بارکد بخوانم و مقدار بارکد را با فیلد دیگری مقایسه کنم (برای این موارد نیز آموزش خواهم نوشت)، حالا چی شد که نیاز به حذف حروف الفبا از یک ستون یا چند سلول از مایکروسافت اکسل رو نیاز داشتم؟

قضیه از این قرار بود که بارکدهایی که خوانده می شدند، دارای دو حرف الفبا در آخرشان بودند، و از طرفی سلولی که قرار بود بارکد خوانده شده را با آن مقایسه کنم، فقط اعداد رو داشت و دو حرف آخر را نداشت!

حذف حروف در مایکروسافت اکسل
حذف حروف در مایکروسافت اکسل

راه حل برای حذف حروف الفبا در مایکروسافت اکسل

خب برای حل این مشکل یه Function نوشتم که لطف می کرد و عمل حذف حروف الفبا رو برای من انجام می داد، البته ناگفته نماند که از فرمول نویسی ام میشه استفاده کرد. اما برای نوشتن فانکشن کافیست مراحل زیر را طی کنید:

۱- کلیدهای Alt + F11 را با یکدیگر فشار دهید تا Microsoft Visual Basic باز بشه.

اجرای ویژوال بیسیک برای مایکروسافت اکسل
اجرای ویژوال بیسیک برای مایکروسافت اکسل

۲- Module را از قسمت Insert  کلیک کنید (Insert > Module).

ساخت ماژول جدید در ویژوال بیسیک برای مایکروسافت اکسل
ساخت ماژول جدید در ویژوال بیسیک برای مایکروسافت اکسل

۳- تکه کد زیر را در صفحه باز شده کپی کنید:

Function StripChar(Txt As String) As String
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "\D"
StripChar = .Replace(Txt, "")
End With
End Function

۴- حال فایل نوشته شده را ذخیره کنید، امکان دارد که به شما بگوید باید فرمت ذخیره فایل اکسل رو تغییر دهید (به راهنمای خودش عمل کنید و فرمت را با فرمت مناسب تغییر دهید، با تغییر فرمت به xlsm مشکل حل می شود)

۵- حال نوبت به استفاده از فانکشن ایجاد شده توسط شما رسیده است، فانکشنی با نام StripChar() ساخته شده که کافی است از آن استفاده کنید:

فرمول نوشته شده =StripChar([@Scanned]) برای D3 نشوته شده است.