تابعی برای یافتن آخرین مقدار یک محدود – Visual Basic Function fo

تابعی برای یافتن آخرین مقدار یک محدود – Visual Basic Function for find last Value in a range

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

اگر برایتان مقدور است

اردشیر

با سلام خدمت دوست عزیز

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

کار با این توابع را با ذکر مثالی نشان داده ام.

فرمول خانه D1 و D2 در شکل نشان داده شده است ،

	A	B	C	D	E	F
1	Day	Num		Mon	< - - - -	=INDEX(A:B,COUNTA(A:A),1)
2	Sun	2		14	< - - - -	=INDEX(A:B,COUNTA(B:B),2)
3	Mon	4
4	Tue	6
5	Wed	8
6	Thu	10
7	Fri	12
8	Sat	14
9	Sun
10	Mon

اما اگر ! محدوه شما غیر پیوسته باشد حالت خاصی پیش می‌آید و فرمول نویسی آن با مراجع دورانی به سختی میسر است و می‌دانیم که مراجع دورانی حداکثر Iterations = 32767 خواهد بود و این درحالی است که شما 32536  خانه در اکسل دارید، پس اینهم نا کارآمد است. (البته اینکار انجام شدنی است).

اما راه حل اصولی اینگونه موارد نوشتن یک تابع ساده است و من این تابع را برای شما می‌نویسم ، برای استفاده از این تابع مراحل زیر را برای ایجاد آن طی کنید .

• کلید Alt+F11 را با هم بزنید تا به محیط ویژوال بیسک بروید.
• از منوی Insert   گزینه Module را انتخاب کنید.
• کدهای زیر را در آنجا Paste  کنید.
• از ویژال بیسیک با زدن گزینه Close خارج شوید.

Function FINDLASTVALUE(CellRange As Range)

' THIS FUNCTION FIND FINAL VALUE IN A SPECIFIC RANGE

For Each C In CellRange

    If C.Value <> "" Then

        FINDLASTVALUE = C.Value

    End If

Next C

End Function

حال در اکسل تابعی به نام FINDLASTVALUE دارید که توسط آن می‌توانید مقدار آخرین خانه هر محدوده را پیدا کنید .

بعنوان مثال در اکسل می‌نویسیم :

=FINDLASTVALUE(A:A)

که آخرین مقدار را در محدوده ستون A برای ما پیدا می‌کند