自动添加到用户输入

Question

我正在尝试向特定的单元格添加一个公式，该公式为“输入用户数据，然后添加20”。例如：如果用户在按Enter键时在单元格中输入10，则该单元格将返回30。

我尝试了一个公式，该公式=此单元格（加上此单元格再加上20），但是在同一单元格中不能有公式和用户输入。

Answer 1

在要添加10的单元格上创建一个命名范围，我将该范围称为 rngCellToAdd10To ...

然后将以下代码（使用VBA编辑器）添加到您要监视的单元格对其进行更改的工作表对象中...

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next

    If Intersect(Target, Range("rngCellToAdd10To")) Then
        Application.EnableEvents = False
        Range("rngCellToAdd10To").Value = Range("rngCellToAdd10To").Value + 10
        Application.EnableEvents = True
    End If
End Sub

...然后在单元格中添加一个数字并观看它。

如果您不确定如何将代码添加到VBA编辑器中，建议使用Google搜索。