如何在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