Calculate a moving average : Excel Buildin Function « Excel « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
 1 Access 2 Application 3 Data Type 4 Data Type Functions 5 Date Functions 6 Excel 7 File Path 8 Forms 9 Language Basics 10 Math Functions 11 Outlook 12 PowerPoint 13 String Functions 14 Windows API 15 Word 16 XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
 VBA / Excel / Access / Word » Excel » Excel Buildin Function
Calculate a moving average
 ```  Option Explicit Public Sub MoveAverage()   Dim aRange As Range   Dim i As Long      Set aRange = Range("B1:B3")   For i = 3 To 12     Cells(i, "C").Value = WorksheetFunction.Round(WorksheetFunction.Sum(aRange) / 3, 0)     Set aRange = aRange.Offset(1, 0)   Next i End Sub  ```
Related examples in the same category
 1 Use function from Excel 2 Payment Function:Pmt (interest, term, principal, future value, type) 3 Using Excel Application Functions in VBA 4 Cleans up every selected cell: with Proper function 5 Sum a Range 6 Call worksheet function directly