كمك از دوستان جهت ايجاد يك ماكرو

[maziardm]

با سلام و روز خوش
دارم يك فايل اكسل رو با استفاده از ماكرو ها درست مي كنم. مي خوام گام به گام از شما كمك بگيرم. ممنون ميشم دوستان راهنمايي لازم رو داشته باشند.
براي گام اول فرض كنيد يك رديف داريم. مي خوام يك ماكرو بنويسم كه با هر بار اضافه كردن يك رديف و اعمال اون ماكرو جمع ستون مورد نظر رو بگيره. براي مثال با ايجاد رديف 2 در سلول a3 sum(a1;a2) و با اضافه كردن رديف 3 در سلول a4 sum(a1;a3) و همينطور اين عمل با اضفه كردن هر رديف ادامه داشته باشه. با تشكر دوباره

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

[iranweld]

با سلام

با دستوری که در جلوی Nextrow وجود دارد آخرین ردیف پر ستون A را بدست آوردید
در سطر بعدی در آدرس سلول یکی پایین تر در ستون A فرمول جمع از سلول A1 تا A & NEXTROW را قرار بدید

Sub test()

nextrow = Cells(Rows.Count, "A").End(xlUp).Row

Range("A" & nextrow + 1).Value = "=sum(A1:A" & nextrow & ")"


End Sub