Excel: Wie Formeln ohne =

Question

Formel automatisch zu verwenden Ich dachte, das war cool, wenn ich es herausgefunden und teilen würde.

Der Code macht das Hinzufügen von "=" Zeichen vor Formeln überflüssig. Dies kann Ihrer Excel-Tabelle ein Gefühl von Software geben, wenn Sie Vorlagen erstellen, die für häufig vorzunehmende Berechnungen ausgelegt sind.

In meinem Fall habe ich eine Finanzanalyse-Vorlage, die erfordert, dass Sie viele Elemente in vielen verschiedenen Zellen zusammenfügen müssen und viele unserer anderen Vorlagen sind nicht Excel-basiert und erfordern nicht das "=", was Ärger für Benutzerwechsel verursacht zwischen den beiden.

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range) 

'Trigger Macro 
If Target.Cells.Count > 0 Then 

'Define Variables 
Dim rng As Range 
Dim cell As Range 
Dim x As String 

Set rng = Target 

'Add equal sign to all updated cells 
On Error GoTo NoFormulas 
    If rng = "" Then 
    Exit Sub 
On Error GoTo 0 
     ElseIf rng = Range("C2") Then 
     Exit Sub 
      Else 
       For Each cell In rng 
       On Error GoTo NoFormulas 
       x = cell.Formula 
       cell = "=" & Right(x, Len(x)) 
       On Error GoTo 0 

       Next cell 
       Exit Sub 

    End If 


End If 

'Error Handler 
NoFormulas: 
    Exit Sub 

End Sub