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

اما در این مطلب می خواهم روش پیشرفته تری را برای شما بیان کنم

درادامه مطلب همراه من باشید .

تصویر زیر را در نظر بگیرید .


حذف یک عبارت دراکسل


دراین تصویر به ابتدای تمامی اسامی با استفاده از دکمه "افزودن پیشوند " کلمه "جناب " را اضافه کرده ایم حال میخواهیم بنا بر هردلیلی این کلمه را از ابتدای تمامی اسامی برداریم برای این کار از دکمه حذف عبارت موجود در تصویر استفاده می کنیم اما به چه صورت :

- از سربرگ Developer  و از داشبورد Controls  و از طریق زیر مجموعه Insert یک Command Button از نوع Active X را به محیط اکسل اضافه نمایید .

حذف یک عبارت دراکسل


- با کلیک راست بر روی دکمه مذکور گزینه Propertiesرا انتخاب و تنظیمات مربوطه را مطابق تصویر زیرانجام دهید .
   
حذف عبارت در اکسل



- بعداز انجام این تنظیمات با استفاده از کلیدهای ALT+F11  وارد محیط برنامه نویسی شده از سربرگ Insert  گزینه Moduleرا انتخاب نمایید .


حذف عبارت

- کدهای زیر را کپی نموده و وارد ماژول خود نمایید .

Sub RemoveAllButLastWord()

Dim Rng As Range
Dim WorkRng As Range
Dim xChar As String
Dim xValue As Variant
On Error Resume Next
Dim xTitleId As String
xTitleId = "softpluse"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("محدوده مد نظر را تعیین کنید", xTitleId, WorkRng.Address, Type:=8)
xChar = Application.InputBox("عبارت مورد نظر برای حذف کاراکترهای قبل از آن راوارد نمایید", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    xValue = Rng.Value
    Rng.Value = VBA.Right(xValue, VBA.Len(xValue) - VBA.InStrRev(xValue, xChar))
Next
End Sub

- حال به محیط اکسل برگشته و کنترل نمایید که دکمه Designe Mode در سربرگ Developer روشن باشد .

حذف عبارت

- حال بر روی دکمه مورد نظر دابل کلیک نموده و در  رویداد مربوط به کلیک آن عبارت زیر را درج کنید .

RemoveAllButLastWord

حال دکمه Designe Mode را خاموش کنید و برروی دکمه خود کلیک نمایید  تا پنجره زیر برای شما نمایش داده شود


حذف مقادیر

این پنجره از شما یک محدوده میخواهد که دراین مثال محدوده مورد نظر ما سلولهای A1 :A6 است که می توانیم آنها را انتخاب کنیم تا به باکس مربوطه  منتقل شوند.

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

حذف عبارت

در انتها و با تایید این پنجره کلمه "جناب " از اول تمامی سلول ها حذف می شود .



خواندن این مطالب را هم از دست ندهید :


 


طبقه بندی: آموزش EXCEL،
برچسب ها:حذف عبارت در اکسل، ماژول، اکسل 2016، پیشونددراکسل، حذف مقادیر مورد نظر،
تاریخ : شنبه 26 اسفند 1396 | 06:16 ق.ظ | نویسنده : امید شهری | نظرات()
.: Weblog Themes By Bia2skin :.