Excel：=記号なしで自動的に式を使用する方法

Question

私はこれを理解して共有するとクールだと思った。

コードでは、式の前に "="記号を付ける必要がなくなります。これにより、計算が頻繁に行われるように設計されたテンプレートを作成する際に、シートをより多くのソフトウェアに与えることができます。

私のケースでは、多くのアイテムを多くの異なるセルに追加しなければならない財務分析テンプレートがあり、他のテンプレートの多くは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