بازگردانی آدرس ردیف فعال در اکسل

[fmns59319]

سلام
من می خوام یک تابع داشته باشم که هر وقت آدرس ردیف فعال شیت تغییر کرد بعد از زدن یک دکمه button بتونم اون رو در یک سلول دیگه نشون بدم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mch2v]

سلام
یک CommandButton ایجاد کنید و این کد رو داخلش بنویسید

Private Sub CommandButton1_Click()

Range("a1") = ActiveCell.Row

End Sub 

[iranweld]

با سلام

با کد زیر نیاز به button نیز نمی باشد.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("a1") = ActiveCell.Address
Range("a2") = ActiveCell.Column
Range("a3") = ActiveCell.Row


End Sub