For and for each loops

[knburch]

I need help with this assignment for my excel/VBA class. I have been struggling with VBA

1. manually enter 1 to 100 in cells A1 to A100
2. write a for loop that makes use of the offset property to sum the numbers in every 5th cell starting with A3. The loop should stop once A100 has been reached
3. Write a for each loop that colors every even-numbered cell in your range blue
4. write a for loop that colors every odd numbered cell in your range yellow

any help would be appreciated!

 

[My Aswer Is This]

Mr. Excel discourages us from doing students assignments. Now if you can show us what you already have and just need one little bit of help we may be able to give you a little help. Show us what you have already done.

I need help with this assignment for my excel/VBA class. I have been struggling with VBA

1. manually enter 1 to 100 in cells A1 to A100
2. write a for loop that makes use of the offset property to sum the numbers in every 5th cell starting with A3. The loop should stop once A100 has been reached
3. Write a for each loop that colors every even-numbered cell in your range blue
4. write a for loop that colors every odd numbered cell in your range yellow

any help would be appreciated!

 

[sweetpundir]

Sub format()


Dim i As Integer
Dim total As Long
Range("a3").Select
Dim cel As Range


Do Until ActiveCell.Value = ""
total = WorksheetFunction.Sum(Range("a1:" & ActiveCell.Address))
ActiveCell.Offset(0, 1).Value = total
ActiveCell.Offset(4, 0).Select
Loop

For Each cel In Range("a1:a100")

If cel.Value Mod 2 = 0 Then
cel.Interior.Color = vbBlue
Else
cel.Interior.Color = vbYellow
End If
Next

End Sub