更新セルの数式を追加セル/行の値に基づいて

Question

はここに私のジレンマです：

私はロン・デ・ブルーインから新しい行/セルの数式を追加し、それは見事に動作します続いています。しかし、私は新しいセルに入力された値を取り込み、計算で使用しています...新しいセルも追加されています。私はコードを過ぎて、私は以下参照しています：

rng.Parent.Cells(LastRow + 1, LastCol + 2).Value = spm 
     rng.Cells(LastRow + 1, LastCol + 2).Borders(xlDiagonalDown).LineStyle = xlNone 
     rng.Cells(LastRow + 1, LastCol + 2).Borders(xlDiagonalUp).LineStyle = xlNone 
     With rng.Cells(LastRow + 1, LastCol + 2).Borders(xlEdgeLeft) 
      .LineStyle = xlContinuous 
      .ColorIndex = 0 
      .TintAndShade = 0 
      .Weight = xlThin 
     End With 
     With rng.Cells(LastRow + 1, LastCol + 2).Borders(xlEdgeTop) 
      .LineStyle = xlContinuous 
      .ColorIndex = 0 
      .TintAndShade = 0 
      .Weight = xlThin 
     End With 
     With rng.Cells(LastRow + 1, LastCol + 2).Borders(xlEdgeBottom) 
      .LineStyle = xlContinuous 
      .ColorIndex = 0 
      .TintAndShade = 0 
      .Weight = xlThin 
     End With 
     With rng.Cells(LastRow + 1, LastCol + 2).Borders(xlEdgeRight) 
      .LineStyle = xlContinuous 
      .ColorIndex = 0 
      .TintAndShade = 0 
      .Weight = xlThin 
     End With 
     rng.Cells(LastRow + 1, LastCol + 2).Borders(xlInsideVertical).LineStyle = xlNone 
     rng.Cells(LastRow + 1, LastCol + 2).Borders(xlInsideHorizontal).LineStyle = xlNone 
      With rng.Cells(LastRow + 1, LastCol + 2) 
       .HorizontalAlignment = xlCenter 
       .VerticalAlignment = xlBottom 
       .WrapText = False 
       .Orientation = 0 
       .AddIndent = False 
       .IndentLevel = 0 
       .ShrinkToFit = False 
       .ReadingOrder = xlContext 
       .MergeCells = False 
      End With 
    rng.Parent.Cells(LastRow + 1, LastCol + 3).Locked = False 
    Range("K8").Value = tsqs 
    Range("L8").Value = spm 
    'Calculate value for Man Hours per Item 
    rng.Parent.Cells(LastRow + 1, LastCol + 3).Formula = <<still working on this bit>> 

だから、基本的に私は疑問に思ってすることです： 1.どのように私は（コラム3 & 4に新セル）のセルに数式を追加することになります新しく作成された2つのセルの値を使用しますか？

基本的なレイアウト：

行16、列A（プリセットテキスト入力）|列B（InputBoxはセル値を生成する）|列C（InputBoxはセル値を生成する）|列D（B * Cを計算する数式）|列E（D * Bを計算する計算式）

VBAで計算する数式を得ることができますが、これは問題ではありません。私の問題は、列B/Cの新しく作成されたセルの値をユーザーが変更すると、列Dの新しく作成されたセルの式を更新する方法/ & E？

私はWorksheet.Calculateを使用することを考えていましたが、VBA計算ではうまくいかないかどうかはわかりません。

Sub（）を投稿して必要があるかどうか確認することができます。

Answer 1

私は私が良い例だろう望んでいることを持っているいくつかのコード貼り付けしようとするつもり：このコードで

Private Sub ExportMath() 

Dim LR As Long 
    LR = Cells(Sheets("Export Report").Rows.Count, 1).End(xlUp).Row 

Sheets("Export Report").Range("O2").Formula = "=NETWORKDAYS(C2,D2)" 
Sheets("Export Report").Range("O2:O" & LR).FillDown 

End Sub 

を、私は私の最後の行を定義し、私が利用される数式を追加しますそれを列全体に塗りつぶします。

.Insert Shift：= xlToRightまたは.Insert Shift：= xlDownを使用して挿入する場合でも、定義した列がある場合は、特定の列名をコーディングすることができます。この特定のケースでは、すべてのスプレッドシート操作が行われた後にこの式を適用します。ただし、行/列の挿入/削除を開始する前にこの計算を行うと、名前付きセル（O2：O）がExcelによって更新されます。