Как сбросить значение переменной до значения по умолчанию в Excel VBA?

Question

код VBA

Sub colourcode()
    Dim tcol As Integer, ro As Integer, co As Integer

    ro = 2
    co = 2

    tcol = 10

    For i = 1 To tcol
    Cells(ro, co).Interior.Color = RGB(0, 0, 0)
    ro = ro + 2
     Next

'I want to reset a variable ro value to its default value which is 2.

    End Sub

Answer 1

Если вы хотите минимизировать проблемы с обслуживанием, используйте константу для начальной точки:

Sub colourcode()

    Const RO_START As Long = 2
    'any other fixed value...

    Dim tcol As Long, ro As Long, co As Long

    ro = RO_START
    co = 2
    tcol = 10

    For i = 1 To tcol
        ActiveSheet.Cells(ro, co).Interior.Color = RGB(0, 0, 0)
        ro = ro + 2
    Next

    ro = RO_START  'reset, avoiding repeating the 2

End Sub