Question

我在网上搜索了一个解决方案但没有出现。所有答案都针对单个目标细胞。

我想要做的事情如下，在范围L1:L1000中，如果我在此范围内的单元格中输入内容，则会将其添加到以下公式=IF(N1=0;"";INPUT)中 - 在同一单元格中。 / p>

所以我可以说Hello输入L1，然后公式变为=IF(N1=0;"";"Hello")

如果有人能帮助我，那将是非常棒的，因为我对VB的理解非常基础，我只是在学习它。

Answer 1

您可以在更改单元格时使用事件：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False

    If (Not Intersect(Target, Range("L1:L1000")) Is Nothing) Then
         'E.g.: Here comes your code for Cell L1
          Target.Formula = "=IF(N1=0,""""," & Target.Text & ")"
    End If 

    Application.EnableEvents = True
End Sub

此方法将已编辑单元格的公式设置为=IF(N1=0;"";INPUT)。

Excel输入和输出到同一个单元

1 个答案: