ColorIndex

Nama Kelompok
1. Alna Anggi s
2. Amelia f.H
3. Fadhila n.u
4. Istichomah
Kelas : X TKJ 3
Tahun ajaran 2016/2017

Sub UTurnArrow2_Click()

If ActiveCell.Column > 1 And ActiveCell.Row > 1 Then

ActiveCell.Offset(0, -1).Select

ActiveCell.Interior.ColorIndex = ActiveCell.Column

Else

    If ActiveCell.Row > 1 Then

ActiveCell.Offset(-1, 0).Select

ActiveCell.Interior.ColorIndex = ActiveCell.Row

    Else

ActiveCell.Offset(0, 1).Select

ActiveCell.Interior.ColorIndex = ActiveCell.Column