[حل شده] محاسبه جدول توسط vb

[morteza71]

با سلام
جدولی دارم با تعداد سطرهای زیاد
فرمولی درvb میخوام که حاصل ضرب هر سطر با سطر 1 رو محاسبه و جمع کنه و در ستون AJ بنویسه.
اگه بخوام بصورت فرمول عادی برای هر سطر بنویسم میشه AJ4=(G2*$G$1)+(H2*$H$1)+(I2*$I$1)+...+(AI2*$AI$12)

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

[iranweld]

با سلام

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

Sub test()

Dim xx As Long

'lastColumn = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column - 1'

lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

For i = 2 To lastRow

For j = 6 To 35

xx = xx + Val(Cells(1, j)) * Val(Cells(i, j))

Next

Cells(i, 36) = xx

xx = 0

Next

End Sub 

[iranweld]

بصورت فرمول ساده تر

=sumproduct(--(g2:ai2),$g$1:$ai$1) 

که اگر سلولها را از حالت تکست خارج کنید

=sumproduct(g2:ai2,$g$1:$ai$1) 

[morteza71]

با سلام . متشکرم مشکل حل شد . سالم باشید انشاالله