نمایش نتایج: از شماره 1 تا 4 , از مجموع 4

موضوع: آخرین کاربر

  1. #1


    آخرین بازدید
    2013/05/22
    تاریخ عضویت
    February 2013
    نوشته ها
    30
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    آخرین کاربر

    سلام

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

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

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

    از لطف دوستان متشکرم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,034
    امتیاز
    4508
    سپاس
    2,467
    سپاس شده
    4,096 در 1,241 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام

    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 اخر خط سوم رو نذاریدا
    برای اینکه بهم نریزه اینجا گذاشتمش!

  4. #3


    آخرین بازدید
    2013/05/22
    تاریخ عضویت
    February 2013
    نوشته ها
    30
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

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

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

    یه سوال دیگه

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

    و همینطور

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

    با تشکر

  5. #4


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,034
    امتیاز
    4508
    سپاس
    2,467
    سپاس شده
    4,096 در 1,241 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام

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

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


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

اگر سلول A1پر بود

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد