Question

当我想出来并分享时，我认为这很酷。

代码无需添加＆＃34; =＆＃34;公式前的标志。在创建专为频繁计算而设计的模板时，这可以为您的Excel工作表提供更多软件感受。

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

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

Excel：如何自动使用没有=符号的公式

1 个答案: