vba - Numberformat 允许我输入公式但将值存储为文本？

Question

是否可以使用 Excel 或 VBA 在单元格/列中设置数字格式，以便:

• 如果我输入一个公式(任何以 = 开头的内容)，Excel 将计算公式(而不是将其解释为文本)
• 如果我输入一个值，例如 5.80，Excel 会将其存储为文本吗？

我遇到一个问题，我希望所有用户输入都存储为文本，但用户也应该能够输入公式。如果我将数字格式设置为文本，则不会解释公式。如果我将数字格式设置为常规，则值将存储为数字。

Answer 1

这是我的版本。

将该工作表中的所有单元格格式设置为文本。此代码使用 Application.Evaluate() 计算所有公式并将结果存储为文本。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aCell As Range

    On Error GoTo Whoa

    Application.EnableEvents = False

    '~~> You need this in case user copies formula
    '~~> from another sheet
    Target.Cells.NumberFormat = "@"

    '~~> Looping though all the cells in case user
    '~~> copies formula from another sheet
    For Each aCell In Target.Cells
        If Left(aCell.Formula, 1) = "=" Then _
        aCell.Value = Application.Evaluate(aCell.Formula)
    Next

Letscontinue:
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume Letscontinue
End Sub