Excel VBA宏程序公式幫助關於在公式欄中不顯示公式

Question

我想用if條件公式來通過vba宏按鈕來計算立方體。我編寫的代碼和它的工作是好的，但代碼是在公式欄中顯示的，並且還使用來自vba宏的公式來保持它們，我希望這個公式不應該顯示在公式欄中，並且計算只能通過宏按鈕時，我按下它。這是我的代碼。由於

Sub CalCubMeter() 

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

End Sub 

Answer 1

東西線沿線的：

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 

我忽略了你C3 = C3，因爲這始終是真實的，修改您認爲合適的。

編輯：Application.WorksheetFunction.Power（sourceArr（I），3）改爲sourceArr（我）^ 3立方值