جایگزینی برای end(xldown)

[mahsa shayesteh]

سلام به دوستای گلم
تو ماکرو ها برای تشخیص آخرین سطر معمولا از end(xldown) استفاده میشه ولی ایراد این روش اینه که که فقط مقدار سل رو در نظر نمیگیره حتی اگه رنگ یا فرمت سل هم تغییر کنه به عنوان اخرین سل پرشده میشناسه ایا روشی هست که فقط سلی که توش مقدار باشه به عنوان آخرین سل پرشده بشناسه؟

[Javid Mokhtari]

RE: جایگزینی برای end(xldown)

سلام به دوستای گلم
تو ماکرو ها برای تشخیص آ---ین سطر معمولا از end(xldown) استفاده میشه ولی ایراد این روش اینه که که فقط مقدار سل رو در نظر نمیگیره حتی اگه رنگ یا فرمت سل هم تغییر کنه به عنوان ا---ین سل پرشده میشناسه ایا روشی هست که فقط سلی که توش مقدار باشه به عنوان آ---ین سل پرشده بشناسه؟

اما این عمل تو Used Range انجام میشه.یه بار دیگه امتحان کنید...
با شرط گذاری برای انتخاب هم میشه انجام داد.

[~M*E*H*D*I~]

RE: جایگزینی برای end(xldown)

سلام
همونطور که دوست عزیزم آقا جاوید فرمودن در used range استفاده میشه ولی اینکه حتی تغییر فرمت سل تو دستور تاثیر داره جواب مثبته این اتفاق میفته من خودم همیشه از یک تابع برای اینکار استفاده میکنم تو اخرین برنامه ای که خدمت شما ارائه شد اگه بخش ماکرو ها رو نگاه کنین من از تابع lastrow استفاده کردم

[mahsa shayesteh]

RE: جایگزینی برای end(xldown)

مرسی ، بله اونو متوجه شدم ولی خواستم ببینم راهی هست بدون ایجاد حلقه و کاهش سرعت برنامه اخرین ردیف رو شناسایی کرد؟

[khakzad]

RE: جایگزینی برای end(xldown)

سلام مهساجان
فکر کنم count سل هاي پر رو داشته باشي و بعد هر دفعه بجاي end(xldown) از offset اين تعداد استفاده کني جواب بگيري

[mahsa shayesteh]

RE: جایگزینی برای end(xldown)

سلام
مرسی حسنا جون
ولی برای اون count هم بلاخره باید بدونه تا کجارو باید بشمره یا منظورت اینه که من یه کانتر بذارم برای هر رکورد ثبت شده؟

[khakzad]

RE: جایگزینی برای end(xldown)

انجامش ندادذم.فقط به ذهنم رسيده که ميشه....
مثلا ما مي خوايم توي ستون a اخرين رديف پر رو پيدا کنيم.
اگه count(a:A) رو بريزيم توي متغير
بعد بجاي range(a1).end(xldpwn) مي زنيم range(a1).offset(.....)i
نميشه اينطوري؟؟

[~M*E*H*D*I~]

RE: جایگزینی برای end(xldown)

سلام
جالب بود فک کنم با application.worksheetsfunction.counta() استفاده کنید بهتره

[khakzad]

RE: جایگزینی برای end(xldown)

اره ديگه.مستقيم استفاده کنيم اين ميشه.اگر هم توي متغير بريزيم همون قبلي.که در واقع عين هم هستن[hr]
اره ديگه.مستقيم استفاده کنيم اين ميشه.اگر هم توي متغير بريزيم همون قبلي.که در واقع عين هم هستن

[mahsa shayesteh]

RE: جایگزینی برای end(xldown)

مرسی از دوستان منم معتقدم جواب میده خیلی جالب بود

[daghyad]

RE: جایگزینی برای end(xldown)

میشه با دستور (مثلا اخرین سطر حاوی داده در ستون a)

dim r as long
r=cells(rows.count,"a").end(xlup).row 

شماره اخرین سطر حاوی داده را پیدا کرد
و بعد یه دیتابیس set کرد و با for eachتوی این دیتا بیس پیمایش انجام داد

dim mydatabase as range
set mydatabase =sheet1.range("a1:g" & r) 

و بعد نوشت

for each c in mydatabase
if c....then 

برای پیدا کردن اخرین ستون حاوی داده توی سطر دوم می نویسیم:

Sub LastColumnWithData_xlToLeft()


Dim lastColumn As Integer


lastColumn = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column


MsgBox lastColumn

 

End Sub