صفحه 2 از 3 نخستنخست 123 آخرینآخرین
نمایش نتایج: از شماره 11 تا 20 , از مجموع 22

موضوع: شناسایی آخرین ردیف اطلاعات

  1. #11


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: شناسایی آ---ین ردیف اطلاعات

    با سلام خدمت دوستان
    در مورد شناسایی آخرین ردیف در اکسل کد زیر هم مناسب هست

    Sub FindLastCell()
    Dim lRow As Long, lCol As Integer, mrow As Long, mCol As Integer, i As Integer
    lCol = ActiveSheet.UsedRange.Columns.Count
    mrow = 0
    For i = 1 To lCol
    lRow = Range(Cells(Rows.Count, i), Cells(Rows.Count, i)).End(xlUp).Row

    If lRow > mrow Then
    mrow = lRow
    mCol = i
    Else
    End If
    Next i

    lastrow = mrow

    End Sub


  2.  

  3. #12


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام

    RE: شناسایی آخرین ردیف اطلاعات

    با سلام.
    حالا که دوستان روش های مختلفی رو گذاشتن،من هم یه روش از طریق رشته ها رو به اشتراک میگذارم.شاید یکم پیچیده بیاد اما هدفم ارائه یک روش دیگه هستش(البته یه ایراد هم داره).
    LastRow&Column


  4. #13


    آخرین بازدید
    2019/07/30
    تاریخ عضویت
    March 2012
    نوشته ها
    117
    امتیاز
    92
    سپاس
    11
    سپاس شده
    85 در 32 پست
    تعیین سطح نشده است

    RE: شناسایی آخرین ردیف اطلاعات

    سلام دو تا مطلب اینجا مطرح هست 1- پیدا کردن اخرین سطر 2- پیدا کردن اولین سطر خالی
    1- پیدا کردن اخرین سطر
    برای پیدا کردن اخرین سطر در یک ستون
    r1 = Cells(Rows.Count, "e").End(xlUp).Row
    این کد اخرین سطر را پیدا می کنه و اگر بین سطر ها چیزی خالی باشه کاری نداره
    2- پیدا کردن اولین سطر خالی در ستون e
    Range("e1").Select
    If IsEmpty(ActiveCell) = False Then
    ActiveCell.Offset(1, 0).Select

    End Ifاینجا میگیم اول بیا سلول e1 را انتخب کن اگر e1 که الن سلول اکتیو خالی نبود برو یک سطر پایین تربه این ترتیب اواین سطر خالی پیدا می شه اولی خیلی برای موارد مختلف کاربرد داره و مخصوصا مواقعی که میخواهیم یک محدوده پویا تعریف کنیم با انسفاده از nameنه با فرمول نویسی و استفاده از تابع افست صرفا با کد نویسی مثلا
    range("a1:e" & r1( یک محدو ده پویاست و اگر نامی برای ان انتخاب کنیم و اون نام را با vba تعریف کنیم در نمودار ها و لیست های پویا می تونیم ازش استفاده کنیم[hr]
    Sub TTT()
    Dim r1 As Integer, r2 As Integer
    r1 = Sheet1.Cells(Rows.Count, "e").End(xlUp).Row
    r2 = Sheet1.Cells(Rows.Count, "e").End(xlUp).Row
    Sheet1.Range("a" & r1 & ":e" & r1).Copy
    Sheet2.Range("a" & r2 & ":e" & r2).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    End Sub
    این کد جواب شماست این کد اخرین سطر در محدوده تعریف شده را پیدا می کنه و در شیت 2 در اخرین سطر شیت دو پیست می کنه

  5. سپاس ها (1)


  6. #14
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

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

    RE: شناسایی آخــرین ردیف اطلاعات

    با سلام
    این جواب برای مواقعی که ستون مشخصی مد نظر باشه جواب میده اما
    اگه ستون مشخص نباشه به عبارتی محدود ای از ستونها به عنوان متغییر معرفی شده باشه اونوقت چطور میشه به آخــرین رکورد رفت؟

  7. #15


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

    RE: شناسایی آخــرین ردیف اطلاعات

    نقل قول نوشته اصلی توسط barrai
    با سلام
    این جواب برای مواقعی که ستون مشخصی مد نظر باشه جواب میده اما
    اگه ستون مشخص نباشه به عبارتی محدود ای از ستونها به عنوان متغییر معرفی شده باشه اونوقت چطور میشه به آخــرین رکورد رفت؟
    اگه امكان داره فايل نمونه بذار تا معلوم بشه ميخواي چكار كني ؟

  8. #16


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: شناسایی آ---ین ردیف اطلاعات

    سلام
    همون روشی که من بالا گفتم دقیقا همین کارو میکنه دیگه منظور شما چیزی غیر از اینه؟

  9. #17
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

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

    RE: شناسایی آ---ین ردیف اطلاعات

    من یه فایل دارم که ازa1 تا z1 تو سر ستونها کد مشتریها قرار گرفته یعنی خونه اول هر ستون یه کد مشتری هست و زیر هر کد هم مبالغ واریزی هر مشتری ثبت شده یه فرم برامکه تو تکست باکس ۱ کد مشتری وتو تکست باکس ۲ مبلغ واریزی.
    چه کدی میتونم بنویسم که با زدن کد مشتری و مبلغ واریزی بیاد کد را پیدا کنه و مبلغ واریزی را تو آخرین خونه اون ستون بیاره
    ممنون

  10. #18


    آخرین بازدید
    2021/01/03
    تاریخ عضویت
    September 2012
    نوشته ها
    147
    امتیاز
    36
    سپاس
    73
    سپاس شده
    36 در 24 پست
    تعیین سطح نشده است

    سلام من می خوام آخرین سلول ستون a رو انتخاب کنم و در b1 کپی کنه ...میشه راهنمایی نمایید

  11. #19


    آخرین بازدید
    تاریخ عضویت
    June 2014
    محل سکونت
    خوزستان-بهبهان
    نوشته ها
    1,496
    امتیاز
    6803
    سپاس
    4,206
    سپاس شده
    3,844 در 1,281 پست
    تعیین سطح نشده است

    با سلام
    این فرمول رو در سلول b1 وارد کنید
    کد PHP:
    =lookup(2;1/(a:a<>"");a:a
    کد PHP:
    =lookup(2;1/(1-isblank(a:a));a:a



  12. سپاس ها (3)


  13. #20


    آخرین بازدید
    تاریخ عضویت
    June 2014
    محل سکونت
    خوزستان-بهبهان
    نوشته ها
    1,496
    امتیاز
    6803
    سپاس
    4,206
    سپاس شده
    3,844 در 1,281 پست
    تعیین سطح نشده است

    با سلام
    از این کد هم میتونید استفاده کنید
    این کد مقدار آخرین مقدار در ستون a رو در سلول B1 همان شیت قرار میده
    کد PHP:
    Private Sub CommandButton1_Click()
    Dim LastRow As Long
        With ActiveSheet
            LastRow 
    = .Cells(.Rows.Count"A").End(xlUp).Row
        End With
        Range
    ("b1") = Cells(LastRow1)
    End Sub 





صفحه 2 از 3 نخستنخست 123 آخرینآخرین

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

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

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

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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

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