Shift Cursor and Color Index

Kelompok  : 5

Anggota   : 1. Kurnia Rahmawati

                   2. M. Falihul Isbah

                   3. M. Yusuf Faisal

                  4. Rino Cahyo Putra S

                  5. Zahro Saleh Artasya

Kelas        :  X TKJ 2

Tahun Ajaran 2016/2017

===== Kiri Atas Kanan Warna ===========
Sub NoSymbol2_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
End If
End If
End Sub