تعيين آخرين ستون و آخرين سطر اطلاعات در يك sheet

**khakzad** · 2015/09/02, 09:53

سلام
این فرمول ارایه اس رو وارد کنید:

کد:

=address(max(if(a1:d18<>"",row(a1:d18),"")),max(if(a1:d18<>"",column(a1:d18),"")))

محدوده از a1

18 در نظر گرفته شده. می تونید جایگرین کنید
سوالی بود در خدمتم

**ali.alavi** · 2015/09/02, 10:48

جناب خاکزاد با تشکر . تابع خوبی نوشتید اما یک مشکل وجود داره :
ما در این تابع ، خودمون یک محدوده رو برای اعمال تابع در نظر گرفتیم ؛ در حالی که اگه قرار باشه این تابع در یک ماکرو قرار بگیره نمیشه پیش بینی کرد که آیا این محدوده جوابگوی اطلاعات مندرج در sheet های مختلف هست یانه...
از طرف دیگه اگه بخوایم به جهت اطمینان از فراگیر بودن محدوده تابع ، دامنه اون رو بیش از حد گسترش بدیم رم سیستم بیخودی اشغال میشه . مثلاً ممکنه ما در یک sheet تعداد 5000 سطر داشته باشیم اما تابع رو بر روی 500,000 تنظیم کنیم تا مطمئن باشیم که دربرگیرنده همه اطلاعات ما خواهد بود! خوب اینجوری سرعتمون افت می کنه

**Alireza** · 2015/09/02, 10:58

نوشته اصلی توسط ali.alavi

جناب خاکزاد با تشکر . تابع خوبی نوشتید اما یک مشکل وجود داره :
ما در این تابع ، خودمون یک محدوده رو برای اعمال تابع در نظر گرفتیم ؛ در حالی که اگه قرار باشه این تابع در یک ماکرو قرار بگیره نمیشه پیش بینی کرد که آیا این محدوده جوابگوی اطلاعات مندرج در sheet های مختلف هست یانه...
از طرف دیگه اگه بخوایم به جهت اطمینان از فراگیر بودن محدوده تابع ، دامنه اون رو بیش از حد گسترش بدیم رم سیستم بیخودی اشغال میشه . مثلاً ممکنه ما در یک sheet تعداد 5000 سطر داشته باشیم اما تابع رو بر روی 500,000 تنظیم کنیم تا مطمئن باشیم که دربرگیرنده همه اطلاعات ما خواهد بود! خوب اینجوری سرعتمون افت می کنه

سلام دوست عزیز مبحث ماکرو با توابع جدا هستند و اگر نیاز به کد نویسی باشه در حلقه For each به راحتی قابل بررسی است .

**ali.alavi** · 2015/09/02, 12:36

با تشکر

**generalsamad** · 2015/09/02, 22:09

با سلام
از این function نیز میتونید استفاده کنید

کد PHP:


Function Last(choice As Long, rng As Range)
    Dim lrw As Long
    Dim lcol As Long

    Select Case choice

    Case 1:
        On Error Resume Next
        Last = rng.Find(What:="*", _
                        After:=rng.Cells(1), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).Row
        On Error GoTo 0

    Case 2:
        On Error Resume Next
        Last = rng.Find(What:="*", _
                        After:=rng.Cells(1), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByColumns, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).Column
        On Error GoTo 0

    Case 3:
        On Error Resume Next
        lrw = rng.Find(What:="*", _
                       After:=rng.Cells(1), _
                       Lookat:=xlPart, _
                       LookIn:=xlFormulas, _
                       SearchOrder:=xlByRows, _
                       SearchDirection:=xlPrevious, _
                       MatchCase:=False).Row
        On Error GoTo 0

        On Error Resume Next
        lcol = rng.Find(What:="*", _
                        After:=rng.Cells(1), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByColumns, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).Column
        On Error GoTo 0

        On Error Resume Next
        Last = rng.Parent.Cells(lrw, lcol).Address(False, False)
        If Err.Number > 0 Then
            Last = rng.Cells(1).Address(False, False)
            Err.Clear
        End If
        On Error GoTo 0

    End Select
End Function

این تابع دو پارامتر داره
پارامتر اول:عدد1 شماره آخرین سطر رو بر میگردونه -عدد2 شماره آخرین ستون رو بر میگردونه-عدد3 آدرس آخرین سلول رو بر میگردونه
پارامتر دوم: محدوده مورد نظر رو وارد میکنیم

1-برای شماره آخرین سطر

کد PHP: