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

ورود به سایت