Почему не обновляется 'ALT' (переменная, используемая для определения цвета строки) (см. Рис.)
Вот код:
Private Alt As Boolean
Private cnt as integer
Function Stripe(ByVal NewRow As Boolean, ByVal OddColor as String, ByVal EvenColor as String) As String
If NewRow Then
Alt = Not Alt ' Trip the switch denoting a new row
cnt = cnt + 1
end if
If Alt Then
Return OddColor
Else
Return EvenColor
End If
End Function
Function getalt () as boolean
return alt
end function
function getcnt() as integer
return cnt
end function
вот код, который идет в «цвет фона»
первый столбец:
=Code.Stripe(true, "#E7E7E7", "Transparent")
секунд до N столбцов:
=Code.Stripe(False, "#E7E7E7", "Transparent")
n.b. вам может понадобиться открыть изображение в другом окне, чтобы увидеть выходные данные отладки - я показываю значения 'cnt' и 'alt' с помощью getalt & getcnt