در یک ستون چطور میتوان آدرس آخرین سلول حاوی اطلاعات رو بدست آورد
یافتن آدرس آخرین سلول حاوی اطلاعات در یک ستون
Collapse
X
-
سلام
برای یافتن آخرین سلول مثلا در ستون A داریم:
کد PHP:Range("A" & Rows.Count).End(xlUp).Row
[LEFT][FONT=microsoft sans serif][SIZE=3][COLOR=#008000]اگه کاری که میکنی هوشمندانه باشه
هیچ اهمیتی نداره که دیگران شما رو
احمق فرض کنند.[/COLOR][/SIZE][/FONT][/LEFT] -
Last edited by rahi_feri; 2017/02/09, 22:06.[B][SIZE=1]بخش امضاء :
[/SIZE][/B][LEFT]
[CODE]
Sub Macro()
ActiveCell = "IY" & Right(Application.Name, 5)
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = "Webdings"
.Color = 255
End With
End Sub
[/CODE]
[/LEFT]کامنت
-
اگه به دنبال آدرس آخرین عدد هستید ا از این استفاده کنید :
اگه به دنبال آدرس آخرین متن هستید از این :کد:=ADDRESS(MATCH( 9.99999999999999E+307,A:A),1)
و اگه ترکیب عدد و متنه از این :کد:=ADDRESS(LOOKUP(REPT("z",255),A:A,ROW(A:A)),1)
کد:=ADDRESS(LOOKUP(2,1/(A:A<>""),ROW(A:A)),1)
[B][SIZE=1]بخش امضاء :
[/SIZE][/B][LEFT]
[CODE]
Sub Macro()
ActiveCell = "IY" & Right(Application.Name, 5)
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = "Webdings"
.Color = 255
End With
End Sub
[/CODE]
[/LEFT]کامنت
-
[CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
[COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
[/CENTER]کامنت
-
سلام دوست عزیز
اولا عذ میخوام من متوجه نشدم که تو تالار توابع هستم
ثانیا میتونست ادبیاتتون یه ذره محترمانه تر باشه
ثالثا باس عرض کنم ایشونم شماره سطر مد نظرشون هست چون در اصل ستون خودش از قبل مشخصه.
Sent from my E6833 using Tapatalk[LEFT][FONT=microsoft sans serif][SIZE=3][COLOR=#008000]اگه کاری که میکنی هوشمندانه باشه
هیچ اهمیتی نداره که دیگران شما رو
احمق فرض کنند.[/COLOR][/SIZE][/FONT][/LEFT]کامنت
-
سلام
اولا من عذرخواهی میکنم!
ثانیا آدرس در تعاریف موجود و آنچه من میدونم از نظر تکنیکی با شماره سطر تفاوت داره! (پراپرتی متفاوتیه!)
ثالثا لطفا از علامت نعجب های من ناراحت نشید باز هم عذرخواهی میکنم![B][SIZE=1]بخش امضاء :
[/SIZE][/B][LEFT]
[CODE]
Sub Macro()
ActiveCell = "IY" & Right(Application.Name, 5)
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = "Webdings"
.Color = 255
End With
End Sub
[/CODE]
[/LEFT]کامنت
-
[CENTER]
[SIGPIC][/SIGPIC]
[/CENTER]کامنت




کامنت