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
ورود به سایت