Excel VBAマクロの数式ヘルプ数式バーの数式を表示しないことについて

Question

vbaマクロボタンを使用してキューブを計算する条件式を使用する場合に使用します。私はコードを書いて、その作業はうまくいますが、コードは式バーに表示され、式もVBAマクロから来て、そのままにしておきます。この式が式バーに表示される必要はなく、計算はマクロボタンを押すと、ボタンが表示されます。ここに私のコードです。おかげ

Sub CalCubMeter() 

Worksheets("sheet1").Range("d3:d21").Formula = "=if(c3=C3,PRODUCT($c3^3),""-"")" 

End Sub 

Answer 1

の線に沿って何か：あなたが合うように、これは常に真であると私はあなたのC3 = C3を無視

Public Sub CubeColumnC 
    Dim wb as Workbook 
    Dim ws as Worksheet 
    Dim sourceRange as Range 
    Dim sourceArr() 
    Dim i as long 

    Set wb = ThisWorkbook 
    Set ws = wb.Sheets("Sheet1") 'change to as needed 
    Set sourceRange = ws.Range("C3:C21") 

    'Assign column c values to array 
    sourceArr = Application.Transpose(sourceRange.Value) 

    With ws 
     For i = Lbound(sourceArr) To Ubound(sourceArr) 'Write back out to col D 
      If .Cells(2+i, "C") = vbNullString Then 'if blank 
       .Cells(2+i, "D") = "-" 
      Else 
       .Cells(2+i,"D") = sourceArr(i)^3 'Calc the Cube value 
      End If 
     Next i 
    End With 
End Sub 

は、修正します。

編集：Application.WorksheetFunction.Power（sourceArr（I）、3）sourceArrに変更（I）^ 3キューブ値の