VBAエクセル（マクロ）

Question

VBAで使用する適切なコードを教えてもらえますか？例えば、列AでA1テキストがBUYならば、B1である次の列で数式を=c4+c5+(d1*c6)+(d1*c7)とし、列Aのテキストがの場合にとなるような式を実行したいと考えています。数式は=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