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