VBA excel (Macros)

Question

你能帮我在VBA excel中使用适当的代码吗?例如，如果在列A中，A1文本为BUY，我想在下一列B1中执行某个公式，其中公式将类似于=c4+c5+(d1*c6)+(d1*c7)，当列A中的文本为SELL时，公式将为=c4+c5+(d1*c6)+(d1*c7)+(d1*c6)，对于其余部分，当满足买入或卖出条件时，计算将自动进行。谢谢你

Answer 1

所以你只是想把下面的公式添加到B1?不需要VBA

= C4 + C5 + D1*C6*IF(A1="BUY", 1, 2) + D1*C7

Answer 2

Public Sub NameOfYourSub()
  Dim rg as Range
  Set rg= Range("NameOfTheCellToCheck")
  If rg.value = "BUY" Then
     Set rg.offset(0,1).Value= YOUR BIG FORMULA (don't forget to use Range("NameOfTheCell").value +/*.....)   
     //Otherwise 
     //Range("NameOfTheCellWhereToPutTheResult")=YOUR BIG FORMULA
  Else
    //The same syntax as above. 
  End If
  Set rg= Nothing
End Sub