مراجعه به آخرین خانه از سطر یا ستون اکسل

مراجعه به آخرین خانه از سطر یا ستون اکسل   در ماکرو های اکسل مراجعه به آخرین خانه در یک سطر یا ستون به روشهای مختلفی امکانپذیر است. یکی از این روشها استفاده از متد End از شیئ Range می باشد. مثال های زیر را ملاحظه فرمایید :     مثال 1 : ماکروی زیر آخرین خانه غیرخالی در ستون A (از خانه A1 به پایین قبل از اولین خانه خالی) را انتخاب می کند :
Sub LastCellBeforeBlankInColumn()
               
               Range("A1").End(xldown).Select
               
               End Sub
    مثال 2 : ماکروی زیر آخرین خانه غیرخالی در ستون A را انتخاب می کند :
Sub LastCellInColumn()
               
               Range("A1048576").End(xlup).Select
               
               End Sub
      مثال 3 : ماکروی زیر آخرین خانه غیرخالی در سطر 1 (از خانه A1 به جلوقبل از اولین خانه خالی) را انتخاب می کند :
Sub LastCellBeforeBlankInRow()
               
               Range("A1").End(xlToRight).Select
               
               End Sub
    مثال 4 : ماکروی زیر آخرین خانه غیرخالی در سطر 1 را انتخاب می کند :
Sub LastCellInRow()
               
               Range("XFD1").End(xlToLeft).Select
               
               End Sub
    یک نکته : همانطور که می دانید ابزار GoTo Special یک گزینه برای مراجعه به آخرین خانه دارد : مراجعه به آخرین خانه از سطر یا ستون اکسل   همین کار را می توان با استفاده از ماکرو و با دستور زیر انجام داد :
Range("A1").SpecialCells(xlCellTypeLastCell).Select
     
نویسنده : وحید فرزام
تاریخ انتشار : 1394-07-22 03:30:00
5568

0 نظر

user


تازه ترین ها