Excel：如何自动使用公式=无符号

Question

我认为这很酷，当我找出并分享。

该代码不需要在公式前添加“=”符号。这可以为您的Excel表格创建更经常用于计算而设计的模板时的软件感受。

在我的情况下，我有一个财务分析模板，要求您必须在许多不同的单元格中添加许多项目，并且我们的其他许多模板都不是基于excel的，并且不需要导致用户切换恶化的“=”两者之间。

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