Question

我想将公式应用于板中的某个单元格，但是当我希望对总计应用另一个公式时，将重新计算列，并将我应用于总计的公式应用于所有单元格。

 Sub ...
 Application.Calculation = xlCalculationManual
 Application.CutCopyMode = False
 ActiveSheet.ListObjects.Add(xlSrcRange, Range("$I$3:$P$18"), ,     xlYes).Name = _
    "Tableau4"
 Range("Tableau4[[#Headers],[Colonne2]]").Select
 ActiveCell.FormulaR1C1 = "VB"
 Range("Tableau4[[#Headers],[Colonne3]]").Select
 ActiveCell.FormulaR1C1 = "Oui"
 Range("Tableau4[[#Headers],[Colonne4]]").Select
 ActiveCell.FormulaR1C1 = "Non"
 ...
 Range("M17").Select
 ActiveCell.FormulaR1C1 = "=SUM(R[-13]C:R[-1]C)"
 Range("M18").Select
 ActiveCell.FormulaR1C1 = ""
 Range("N17").Select

 ActiveCell.FormulaR1C1 = "=IF(RC[-4]=0,0,RC[-3]/RC[-4])"
 Range("N18").Select

 Range("O19").Select
 Sheets("Feuil13").Select
 ActiveCell.FormulaR1C1 = "=IF(RC[-5]=0,0,RC[-3]/RC[-5])"

 End Sub

采用农法Application.Calculation = xlCalculationManual，请勿在我的代码中使用。而且我无法禁用自动计算功能，因为我已经将其应用于其他工作表。无论如何，禁用它仍然无效。

Answer 1

我希望自动计算在一张纸上进行，因为我做了一张桌子。当我在第一个单元格上应用公式时，所有单元格上的计算都会自动完成。（我不清楚，因为我不会说基本的英语）

表格和自动计算出现问题

1 个答案: