با سلام و درود، در این مطلب آموزشی قصد دارم به روش حذف کردن حروف الفبا از سلول های اکسل بپردازم.
اول از همه، چی شد که به این نیازمندی رسیدم؟
خب بنا بر نیاز شرکتی که در حال حاضر در آن مشغول هستم، قرار شد با فایلی با فرمت اکسل کار کنم که در آن بارکد بخوانم و مقدار بارکد را با فیلد دیگری مقایسه کنم (برای این موارد نیز آموزش خواهم نوشت)، حالا چی شد که نیاز به حذف حروف الفبا از یک ستون یا چند سلول از مایکروسافت اکسل رو نیاز داشتم؟
قضیه از این قرار بود که بارکدهایی که خوانده می شدند، دارای دو حرف الفبا در آخرشان بودند، و از طرفی سلولی که قرار بود بارکد خوانده شده را با آن مقایسه کنم، فقط اعداد رو داشت و دو حرف آخر را نداشت!
راه حل برای حذف حروف الفبا در مایکروسافت اکسل
خب برای حل این مشکل یه 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 نشوته شده است.
Leave a Reply