استفاده از فرمول های اکسل در vba

[esiexcel]

سلام
نتیجه فرمول نویسی برای سطر سبز رنگ زمانی که ضبط کننده ماکرو روشنه به این صورت میشه:

Sub Macro3()
'
' Macro3 Macro
'


'
Range("A8").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)"
Range("A8").Select
Selection.AutoFill Destination:=Range("A8:K8"), Type:=xlFillDefault
End Sub

حالا سوال من اینه که اگه بخواهیم بجای اعداد 7- و 2- از متغیر استفاده کنیم چطور باید این کار انجام بشه. یا فرمول هایی مشابه در vba مثلا برای جمع بستن یا متوسط گرفتن وجود داره که نیازی به تعریف توابع کاربرساز نباشه؟

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

[iranweld]

کدهای ذیل را تست کنید

Sub test()

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

K1 = Application.WorksheetFunction.CountA(Sheet1.Range("1:1"))

For J = 1 To K1

Cells(Z1 + 1, J) = "=sum(A1:A" & Z1 & ")"

Next

End Sub 

[esiexcel]

سلام iranweld عزیز
ممنون از پاسخ مفید شما
فقط کد بالا یه مشکل داره و اونهم اینکه واسه همه ستون ها همون ستون اول رو کپی میکنه.
ممنون میشم اگه بگین چطور میشه رفع اشکالش کرد.

[esiexcel]

iranweld عزیز با استفاده از ترفندهای شما مشکل بالا حل شد. واقعا ممنونم از شما