Так, все вірно! Звічайно що поділюся!
Необхідно пару рядкив дописати до орігинала, та при відкриття вже зєднаної ліні буде малювати з кольорами
Зміни зробив у IntToVal функції . Тут модіфіцірована функція:
Public Sub IntToVal(Row, Col As Long, val As Variant)
Dim s As String
Dim loss As Double
Dim c As Long
Dim p As Long
Dim fakul As Long
Dim PLC2s As String
'Dim log As New cLog: log.init "IntToVal"
Select Case Col
Case 1
s = IIf(val = 0, "Int", "Cas" & val)
Case 2,