Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2: C21]) Is Nothing Then ' Указание контрол. ячеек.
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    For Each icell In [C2: C21]                     ' Указание откуда берём указание цветов
        ActiveChart.SeriesCollection(1).Points(icell.Row - 1).Select
       Selection.Format.Line.ForeColor.RGB = RGB(50, 50, 50) ' Очистка графика
       If icell.Value = 0 Then Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)
       If icell.Value = 1 Then Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 255)
       If icell.Value = 2 Then Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 0)
    Next
End If
End Sub

Public Function test(a, b)
Dim rez(1 To 4) As Double
rez(1) = a + b
rez(2) = a - b
rez(3) = a / b
rez(4) = a * b
test = rez
End Function

Function Fun_3(a#, b#, rez1 As Range, rez2 As Range) As Variant
    rez1.Replace rez1, a + b    
    rez2.Replace rez2, a - b    
    Fun_3 = "сумма в " & rez1.Address(0, 0) & ", разница в " & rez2.Address(0, 0)
End Function

Public Function parsing_1(txt As String, x As String, kks As String) As String
Dim Mas(1 To 10000) As String
Dim i As Long, k As Long, k0 As Long, m As Long
Dim rez As String
txt = Replace(txt, " ", "")
txt = Replace(txt, ",", ".")
txt = Replace(txt, "+-", "-")
For i = 1 To Len(txt)
    Mas(i) = Mid(txt, i, 1)
Next i
For i = 1 To UBound(Mas)
    If Mas(i) = "^" Then
        Mas(i) = ","
        For k = UBound(Mas) - 2 To i + 1 Step -1
            Mas(k + 2) = Mas(k + 1)
        Next k
        Mas(i + 2) = ")"
        ' Обработка степени числа, НЕ ВЫРАЖЕНИЯ
        If Mas(i - 1) <> ")" Then
            For k = i To 1 Step -1
                If Mas(k) = "+" Or _
                   Mas(k) = "-" Or _
                   Mas(k) = "*" Or _
                   Mas(k) = "/" Or _
                   Mas(k) = "(" Then
                    k0 = k
                    Exit For
                End If
            Next k
            For k = UBound(Mas) - 4 To k0 + 1 Step -1
                Mas(k + 4) = Mas(k)
            Next k
            Mas(k0 + 1) = "p"
            Mas(k0 + 2) = "o"
            Mas(k0 + 3) = "w"
            Mas(k0 + 4) = "("
        End If
        ' Обработка степени ВЫРАЖЕНИЯ
        If Mas(i - 1) = ")" Then
            For k = i - 1 To 1 Step -1
                If Mas(k) = ")" Then
                    m = m + 1
                End If
                If Mas(k) = "(" Then
                    m = m - 1
                End If
                If m = 0 Then
                    k0 = k
                    Exit For
                End If
            Next k
            For k = UBound(Mas) - 4 To k0 Step -1
                Mas(k + 4) = Mas(k)
            Next k
            Mas(k0 + 0) = "p"
            Mas(k0 + 1) = "o"
            Mas(k0 + 2) = "w"
            Mas(k0 + 3) = "("
        End If
    End If
Next i
For j = 1 To UBound(Mas)
    rez = rez & Mas(j)
Next j
parsing_1 = Replace(rez, x, kks)
End Function

Range("N10:N" & lLastRow).FormulaR1C1 = "=IF(RC[-1]>0,RC[-1]/" & "userInput &",RC[-8])"

Dim userInput As Double

=ЕСЛИ(B6-A6>0;ТЕКСТ(ОСТАТ(B6-A6;1);"м")&" мин "&ТЕКСТ(ОСТАТ(B6-A6;1);"с")&" сек";"-"&ТЕКСТ(ОСТАТ(A6-B6;1);"м")&" мин "&ТЕКСТ(ОСТАТ(A6-B6;1);"с")&" сек")

 Csv.Document(File.Contents("C:\Users\Администратор\Downloads\1.txt"),[Delimiter=":", Encoding=65001]) 

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
    Dim Cell
    Cell = Target.Value
    If IsDate(Cell) Then
        If Replace(Cell, "/", ".") = Format(Cell, "dd/mm/yyyy") Then
            Exit Sub
        End If
    End If
    MsgBox "Неверная дата" & Cell
End If
End Sub

Selection.Replace " ", "", xlPart

Function DataPrep(str As String) As String
Dim ch As String, i As Long
For i = 1 To Len(str)
    ch = Mid(str, i, 1)
    If ch = "." Then DataPrep = DataPrep & ","
    If ch Like "[,0-9]" Then DataPrep = DataPrep & ch
Next i
End Function