پنجشنبه, 18 ژانویه 2018

پیدا کردن آخرین ردیف/ستون در اکسل

یکی از پرکاربردترین دستوراتی که کاربران اکسل با آن سرو کار دارند پیدا کردن آخرین ردیف/ستون در اکسل می باشد که شما عزیزان میتوانید با مطالعه این پست نحوه پیدا کردن آخرین ردیف/ستون را با استفاده از کدهای وی بی ای (vba) براحتی یاد و در انجام امورات خود به کار بگیرید .

دستور پیدا کردن آخرین ردیف و ستون در اکسل بصورت زیر است :

lastRow = Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
lastColumn= Cells(1, Sheet1.Columns.Count).End(xlToLeft).Column

1 2	lastRow = Cells(Sheet1.Rows.Count, 1).End(xlUp).Row lastColumn= Cells(1, Sheet1.Columns.Count).End(xlToLeft).Column

عمدتا بصورت زیر با از کدهای پیدا کردن آخرین ردیف / ستون در اکسل استفاده میکنند :

Sub GetRange()
' تعریف متغیرهای ردیف و ستون
Dim lastRow As Long, lastCol As Long
lastRow = Range("A" & Sheet1.Rows.Count).End(xlUp).Row
lastCol = Range("A" & Sheet1.Columns.Count).End(xlToLeft).Column

' استفاده از آن در محدوده ها
Dim rg As Range
With Sheet1
Set rg = .Range(.Cells(1, 1), .Cells(lastRow, lastCol))
End With

' استفاده از آن در حلقه ها
Dim i As Long
For i = 1 To rg.Rows.Count
' کدهای خودتان را جهت پردازش در این قسمت درج نمایید
Next i
End Sub

Sub GetRange()

' تعریف متغیرهای ردیف و ستون

Dim lastRow As Long, lastCol As Long

lastRow = Range("A" & Sheet1.Rows.Count).End(xlUp).Row

lastCol = Range("A" & Sheet1.Columns.Count).End(xlToLeft).Column

' استفاده از آن در محدوده ها

Dim rg As Range

With Sheet1

Set rg = .Range(.Cells(1, 1), .Cells(lastRow, lastCol))

End With

' استفاده از آن در حلقه ها

Dim i As Long

For i = 1 To rg.Rows.Count

' کدهای خودتان را جهت پردازش در این قسمت درج نمایید

Next i

End Sub

به مثال زیر دقت کنید‌:

من قصد دارم با استفاده از کدهای وی بی ای دستوراتی بنویسم که آخرین ردیف در ستون A را با استفاده از دستور Msgbox به من نمایش دهد . دستورات زیر را داخل یک ماژول مینویسم و نتیجه را بررسی میکنیم :

Sub excellearn()
Dim LastRow As Integer
LastRow = Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
MsgBox LastRow
End Sub

Sub excellearn()

Dim LastRow As Integer

LastRow = Cells(Sheet1.Rows.Count, 1).End(xlUp).Row

MsgBox LastRow

End Sub

خروجی دستورات فوق بصورت تصویر زیر است :

البته دستورات دیگری جهت پیدا کردن آخرین ردیف / ستون پر در اکسل وجود دارد که میتوانید از آنها نیز استفاده نمایید ، به عنوان مثال :

Sub excellearn()
Dim LastRow As Integer
LastRow = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
MsgBox LastRow
End Sub

Sub excellearn()

Dim LastRow As Integer

LastRow = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

MsgBox LastRow

End Sub

پس از اجرا نمودن دستورات فوق مشاهده میکنید که تفاوتی در خروجی دستورات مشاهده نمیشود.

پیشنهاد: جهت دسترسی به آموزش های بیشتر در زمینه ماژول نویسی در محیط اکسل میتوانید آرشیو برنامه نویسی در اکسل را دنبال نمایید و همچنین جهت شروع به یادگیری این زبان شیرین برنامه نویسی ، مجموعه رایگان ماکرونویسی در اکسل را به شما پیشنهاد میدهیم.