ActiveCell ، همانطور که از نام وجود دارد ، به وضوح نشان می دهد که سلول که در حال حاضر در کاربرگ شما فعال است ، به عبارت دیگر می توانید اگر شروع به تایپ کردن مقدار وارد شده کنید ، به سلول فعال بروید.
Function FnActiveCell()
         Dim mainWorkBook As Workbook
         Set mainWorkBook = ActiveWorkbook   
         mainWorkBook.Sheets("Sheet1").Activate
         ActiveCell.Value = 5
End Function
می توانید یک سلول خاص را در کاربرگ انتخاب کنید که می خواهید فعال باشد. از روش Range در امتداد روش Activate استفاده کنید
Function FnActiveCell()
        Dim mainWorkBook As Workbook
        Set mainWorkBook = ActiveWorkbook
        mainWorkBook.Sheets("Sheet1").Range("A2").Activate
        ActiveCell.Value = 53
End Function
همچنین می توانید ActiveCell را با استفاده از ویژگی Offset تغییر دهید.
Function FnActiveCell()
        Dim mainWorkBook As Workbook
        Set mainWorkBook = ActiveWorkbook   
        mainWorkBook.Sheets("Sheet1").Range("A2").Activate
        ActiveCell.Offset(1, 0).Activate
          ActiveCell.Value = "New Cell"
 End Function
            
ورود به سایت