An Introduction to VBA :- Third Step to VBA : Write VBA Code
Worksheets("sheet1").Activate 
Range("A1:A10").ClearContents
For i = 1 To 10
    Range("A" & i) = i ^ 2
Next
Range("A1:A10").Font.Bold = True
For Each cl In Range("A1:A10")
    If cl.Value < 25 Or cl.Value> 75 Then
        cl.Font.Italic = True
 Else
        cl.Font.Underline = True
    End If
Next
Msgbox“All done”
1)Make sheet1 active
2)Clear range A1:A10
3)Type 1,4,9,…100 in to range A1, A2, … A10
4)Set font to bold for all cells in the range
5)Make cell italic if the cell’s value is <25 or >75, otherwise underline
6)Display message “All done”
Comments
Post a Comment
jeetexceltips@gmail.com