Developing.ru

Код: Выделить всё

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s As String
    Dim i As Long
    Const spec_col As Long = 4
    If Target.Column <> spec_col or Target.Columns.Count * Target.Rows.Count > 1 Then Exit Sub
    s = Target.Value
    If Right$(s, 1) = "-" Then Mid$(s, Len(s), 1) = "="
    i = InStr(s, "=")
    If i = 0 Then
       If InStr(s, "-") + InStr(s, "+") > 0 Then
           s = s & "="
           i = Len(s)
       End If
    End If
    If i = Len(s) Then
        s = s & Application.Evaluate(Left$(s, i - 1))
    ElseIf i > 0 And i < Len(s) Then
        i = Len(s) - InStr(StrReverse(s), "=") + 1
        s = s & "=" & Application.Evaluate(Mid$(s, i + 1))
    ElseIf i = 1 Then
        s = vbNullString
    End If
    Application.EnableEvents = False
    Target.Value = s
    Application.EnableEvents = True
End Sub