تبلیغات
آموزش نرم افزار های تخصصی - حذف اطلاعات یک سطر بر اساس مقادیر تعیین شده در اکسل

حذف مقادیر

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

 برای دسترسی به کانال تلگرام اینـــــجــــــا کلیک نمایید .

اما در این پست به ارائه راه حل دوم می پردازم .


در ادامه مطلب همراه من باشید .
1. در گام نخست می خواهیم یک Command Button  را به محیط اکسل اضافه کنیم . برای این کار از سربرگ Developer  و از داشبورد Control گزینه Insert و آیکون مربوط به Command Button  را از زیر مجموعه Active X control   انتخاب و  به محیط اکسل خود اضافه نمایید .

فیلتر در اکسل


2. بر روی دکمه مربوطه کلیک راست نموده و گزینه Properties  را انتخاب نمایید .

حذف مقادیر از اکسل


3 . در این پنجره تنظیمات را مطابق تصویر زیر انجام دید (البته انجام این تنظیمات اختیاری است و می توانید از آنها صرفنظر نمایید )

حذف مقادیر در اکسل

4. حال همزمان کلیدهای ترکیبی ALT+F11  را از روی صفحه کلید خود فشار داده تا وارد محیط کدنویسی شوید . در این محیط از منوی Insert  گزینه Madule  را انتخاب نموده و کدهای زیر  را درون ماژول خود منتقل نموده و با ذخیره آن از ماژول خود خارج شوید .

Sub DeleteRows()

Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim softpluse As String
xTitleId = "softpluse"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", softpluse, InputRng.Address, Type:=8)
DeleteStr = Application.InputBox("حذف اطلاعات", softpluse, Type:=2)
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
        End If
    End If
Next
DeleteRng.EntireRow.Delete
End Sub
حال باید این کدها را در رویداد کلیک  دکمه خود فراخوانی کنید برای این منظور مراحل زیر را دنبال کنید:
 در پنجره project explore  بر روی شیت کاری که اطلاعات شما در آن قرار دارند دابل کلیک نمایید (اطلاعات من در شیت 2 با عنوان حذف سطر قرار دارد )

فیلتردر اکسل

حال کافی است شی Command button 1  را  از کشوی مربوط به اسامی اشیا و رویداد کلیک را از کشوی مربوط به رویدادها انتخاب و قطعه کد (Delete Rows)  زیر را  همانند تصویر در این رویه درج نمایید .

حذف اطلاعات در اکسل

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

 فایل نمونه در کانال تلگرام قرار داده شده است

 


طبقه بندی: آموزش EXCEL،
برچسب ها:حذف مقادیر در اکسل، ماژول در اکسل، command button،
تاریخ : دوشنبه 30 بهمن 1396 | 10:05 ب.ظ | نویسنده : امید شهری | نظرات()
.: Weblog Themes By Bia2skin :.