[3] Excel VBA - Makro, mnożenie wartości w kolumnie

W tym poście chciałbym przedstawić makro przygotowane przeze mnie makro. Pozwala ona na zmianę wartości kolumny względem zdefiniowanego warunku. 

Makro

Ma ono za zadanie mnożenie liczb zaczynając od zaznaczonej kolumny, aż do napotkania pustego wiersza. Liczby podzielne przez dwa są mnożone razy 2, pozostałe natomiast są mnożone razy 3. Dodatkowo liczbą parzystym, przed pomnożeniem, zmieniona zostaje czcionka na kolor zielony.

Makro prezentuje się następująco:

Sub MnozenieKolor()
    Do While ActiveCell.Value <> Empty
 
    If ActiveCell.Value Mod 2 = 0 Then
        ActiveCell.Value = ActiveCell.Value * 2
        ActiveCell.Font.Color = vbGreen
    Else
        ActiveCell.Value = ActiveCell.Value * 3
    End If
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

Natomiast wynik działania przedstawiłem na rysunku 1.1.

Rys. 1.1. Wynik działania programu