Excel 删除一个单元格被另一个单元格使用后的值

我想在单元格A1中输入一个值，然后该单元格将乘以A3的值，新值将替换A3。A1已清除

我已经输入了下面的代码，但它只对整个列执行，我希望它应用于从20t2到ap2so42的整个列和行

---

您可以使用以下内容：

Dim flagProgram As Boolean
Private Sub worksheet_change(ByVal target As Range)
Dim dblResult As Double
If flagProgram = False Then
    flagProgram = True
    dblResult = Cells(1, 1) * Cells(1, 3)
    Cells(1, 1) = ""
    flagProgram = False
End If

End Sub

你可以用这个

Private Sub worksheet_change(ByVal target As Range)

  Dim rng As Range
  Dim db As Double
  Set target = Range("a1")
  If target.Value > 0 Then
    db = target.Value * Cells(1, 3)
    MsgBox db
    target.Value = ""
  End If
End Sub

添加到Sheet1模块中：

似乎测试正常：

---

不是最清楚的问题…A3的值会改变吗？是的，它是在excel表格中输入库存，始终保留一个空单元格，输入刚收到的库存量。我已经运行了这个程序，它给我的只是一个我输入的值的消息框，它不会与A3相乘。我真的很感谢你的帮助，毕竟我只是一个大工程师。我添加了一个可选答案谢谢你的帮助现在我必须将它应用到所有的手机上使用msgBox-只是让事情变得更复杂，在我的例子A1toT1和A3到T3中，如何将其应用于孔行？…因此，如果有人想要更改C1中的值，那么C3应该更改？应该很简单-我们只需要使用target.Address=$A$1和RangeA1.Value=0。尝试将它们分别更改为target.row=1和target.Value=0？您好，我仍然有一个问题，让程序运行，因为我想它，我已经设法让洞列工作，但我需要所有的12行工作的行星在20所以T2和跳过一列下一个是22所以V2。。。一直到AP2私有子工作表_如果target.Column=20和target.Value>0，则将val变为Range，然后将val变为Double val=target.Value target.Value=0 Cellstarget.Row，target.Column-1.Value=val+Cellstarget.Row，target.Column-1.Value结束如果结束Sub@user3584495与其说是评论，请将此作为编辑添加到您的原始帖子中-然后您可以正确设置代码格式，我们将更容易帮助您；我对这一切都不熟悉

Private Sub worksheet_change(ByVal target As Range)

  Dim rng As Range
  Dim db As Double
  Set target = Range("a1")
  If target.Value > 0 Then
    db = target.Value * Cells(1, 3)
    MsgBox db
    target.Value = ""
  End If
End Sub

Private Sub worksheet_change(ByVal target As Range)
  If target.Address = "$A$1" And target.Value > 0 Then
    Dim val As Double
    val = target.Value
    Range("A1").Value = 0
    Cells(3, 1) = val * Cells(3, 1)
  End If
End Sub