تبلیغات
آموزش نرم افزار های تخصصی - یافتن اولین سلول خالی در یک ستون داده ها در اکسل
یک ستون از داده ها ،  بعنوان مثال 500 ردیف از اطلاعات مختلف  را در اکسل در نظر بگیرید اگر بخواهیم اطلاعاتی را وارد این ردیف از سلول ها کنیم و برای ممانعت از افزایش بی دلیل ردیفها این اطلاعات را درون سلول های خالی درج کنیم می توانیم کار یافتن اولین سلول خالی در یک ستون  را با استفاده از کدهای VBA  آسان کنیم .

برای آشنایی با نحوه انجام این کار به ادامه مطلب بروید

1. اطلاعات خود را در ون سلول های ستون A  وارد نمایید محدودیتی از نظر تعداد این اطلاعات ندارید .

2. با کمک گرفتن از تصویر زیر و از طریق سربرگ Developer  یک دکمه را به محیط کار خود اضافه نمایید .
یافتن سلول خالی در اکسل

3. می توانید با کلیک راست بر روی دکمه مورد نظر و انتخاب گزینه Property  تنظیمات زیر را بر روی دکمه خود اعمال نمایید .
یافتن سلول خالی


4. حال با گرفتن کلیدهای ALT+F11  وارد محیط کد نویسی شده از منوی Insert گزینه module  را انتخاب و کدهای زیر را درون آن کپی نموده و از این محیط خارج شوید .
Option Explicit

Sub Find_First_Empty_Row()

Dim x As Range

For Each x In Range("A:A")

If x.Value = "" Then

x.Select

Exit For

End If

Next x

End Sub
5. کنترل نمایید که گزینه Designe mode  در سربرگ Developer  فعال باشد .

سلول خالی


6 حال بر روی دکمه مورد نظر دابل کلیک نموده و در روال مربوطه کدهای زیر را بنویسید .

Private Sub CommandButton2_Click()
Find_First_Empty_Row
End Sub
7 . حال گزینه Designe mode  را خاموش نموده و بر روی دکمه خود کلیک نمایید . برای امتحان می توانید یک یا چند سلول را در ستون A  خالی نموده و با کلیک بر روی دکمه نتیجه را مشاهده نمایید .

خواندن این مطالب را هم از دست ندهید .
- هایلایت کردن نمودارای فعال
- یافتن اعداد جا مانده از یک سری
 


طبقه بندی: آموزش EXCEL،
برچسب ها:کدهای vba، Developer،
تاریخ : یکشنبه 6 اسفند 1396 | 12:22 ب.ظ | نویسنده : امید شهری | نظرات()
.: Weblog Themes By Bia2skin :.