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

Question

我在网上寻找解决方案，但没有找到任何结果。所有答案都是针对单个靶细胞。

我想做的事情如下，在范围L1:L1000中，如果我在该范围内的单元格中输入某些内容，那么它会添加到以下公式=IF(N1 =0;"";INPUT) - 在同一单元格中。

假设我在 L1 中输入 Hello，则公式变为 =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)。