[حل شده] جمع چند سلول تا انتها

[tarfandenter]

سلام من میخوام از طریق وی بی ای 4 تا 4 تا سلول ها را جمع کنم بصورت افقی و مجموع زیر نوشته بشه تا انتها چطوری باید پیاده سازی کنم؟ ممنون میشم راهنمایی کنید
مثلا

[Ali Parsaei]

سلام،
اگر داده هايتان در سطر اول نوشته شده باشد کد مربوطه جهت اعمال خواسته شما در سل a2 تا z2 به صورت زير است:

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("a2:z2")
c = Cells(1, ((c.Column() - 1) * 4) + 1) + Cells(1, ((c.Column() - 1) * 4) + 2) + Cells(1, ((c.Column() - 1) * 4) + 3) + Cells(1, ((c.Column() - 1) * 4) + 4)
Next
End Sub