VBA-Excel公式计算

Question

I want to write a code in vba were produce a simple calculation, activesheet.cells(i,3) = activesheet.cells(i,2) * activesheet.cells(i,1)

My question here is when i run once the code and then change the values on cells(i,2) and cells(i,1), i want the the cells(i,3)cell to automatically calculate the new value

For example if cells(i,2) = 3 and cells(i,1) = 2 then cells(i,3) = 6 I want to change the manually the values in excel to cells(i,2) = 4, cells(i,1) = 4, without running again the code I want automatically the cells(i,3) = 16

This code be in a for loop

Answer 1

尝试制作一个包含地址的字符串，像这样

activesheet.cells(i,3) = "=" & activesheet.cells(i,2).Address(0, 0) & "*" &  activesheet.cells(i,1).Address(0, 0)

Answer 2

What you need is Macro Event.

Right click on the sheet you want to work with and select view code. Copy an paste this code:

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error GoTo errorHandler
 Application.EnableEvents = True
 Dim lastrow As Long, rango As Range, Hoja As Worksheet
  Set Hoja = ActiveSheet
  lastrow = Application.CountA(Hoja.Range("A:A"))
  Set rango = Hoja.Range("A1:C" & lastrow)
  rango(lastrow, 3).Value = rango(lastrow, 1).Value * rango(lastrow, 2).Value
errorHandler:
End Sub