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




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




می خواهیم صفرهای اول موجود در ستون مربوط به شماره پرسنلی این افراد را حذف نماییم .

برای این کار نیاز به ایجاد یک ماژول داریم با نگهداشتن کلیدهای ALT+F11  به محیط کدنویسی رفته از منوی insert گزینه  modul  را انتخاب و کدهای زیر را وارد نمایید .
Sub DeleteZero()

Dim Rng As Range
Dim WorkRng As Range
Dim softpluse As String

On Error Resume Next

Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("محدوده مورد نظر را انتخاب کنید ", "softpluse", WorkRng.Address, Type:=8)
WorkRng.NumberFormat = "General"
WorkRng.Value = WorkRng.Value
End Sub

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






طبقه بندی: آموزش EXCEL،
برچسب ها:ماکرو، حذف صفرها، اکسل،
تاریخ : شنبه 19 اسفند 1396 | 09:15 ب.ظ | نویسنده : امید شهری | نظرات()
.: Weblog Themes By Bia2skin :.