آخرین کاربر

[hajihadi]

سلام

وقتی فایل اکسل را اجرا می کنم ابتدا یوزر فرم اجرا می شود که در برچسب آن user name کاربر رویت میشود

حال می خواهم که این user name در شیت 1 در سل a1 درج شود (با هر بار اجرا توسط کاربران این روند ادامه پیدا کند با در نظر گرفتن این موضوع که اگر سل a1 پر بود در سل a2 و اگر a2 پر بود در سل a3 و به همین ترتیب.......

هدفم از این کار این است که هر کاربر پس از ورود به برنامه متوجه شود که آخرین کاربر چه شخصی بوده است

از لطف دوستان متشکرم

[khakzad]

RE: آخرین کاربر

سلام
اینکار 2 روش داره
1 روش که خودم همیشه استفاده می کنم هیچوقت اشتباه نمیشه اینه که اول با فرمول count ستونa رو بگیرید بعد offset کنید به این شکل:
sub akharin()
dim d as string
d=worksheetfunction.counta(sheet1.range("a1:a100") )h
range("a1").offset(d+1,0)=textbox1
end sub
با فرض اینکه از a1 شروع شده باشه.با هر تغییری در محدوده شما باید این محدوده رو تغییر بدین[hr]
اون h اخر خط سوم رو نذاریدا
برای اینکه بهم نریزه اینجا گذاشتمش!

[hajihadi]

RE: آخرین کاربر

مرسی.[hr]
سلام
مرسی لطف کردید

یه سوال دیگه

می خواهم برچسبم در یوزر فرم آخرین مقدار ستون a را نشان دهد

و همینطور

در برچسب دیگرم یکی مانده به آخرین مقدار را نشان دهد

با تشکر

[khakzad]

RE: آخرین کاربر

خواهش می کنم
ببینید از همین offset به راحتی می تونید استفاده کنید.توی همون ماژول که نوشتید.برای اولین برچسب بزنید:
label1.value=range("a1").offset(d,0)i
که اخرین مقدار رو نشون میده
label2.value=range("a1").offset(d-1,0)i
توجه دارید که d تعداد سلول های پر بود از a1تا هرجاییی که شما تعییین کنید