Question

将包含指定公式的 = (Formula) 域插入到单元格中。

expression.Formula(Formula, NumFormat)

expression 必需。该表达式返回一个 Cell 对象。

FormulaVariant 类型，可选。= (Formula) 域进行计算的数学公式。可以使用与电子表格类似的方式引用表格中的单元格。例如，“=SUM(A4:C4)”指定了第四行中的前三个值。有关 = (Formula) 域的详细内容，请参阅域代码：= (Formula) 域。

NumFormatVariant 类型，可选。= (Formula) 域的结果的格式。有关可以应用的格式类型的内容，请参阅数字图片 (\#) 域开关。

说明

如果插入点所在单元格的上面或左面至少有一个单元格包含数值，则Formula 是可选的。如果插入点上面的单元格含有数值，则插入的域为 {=SUM(ABOVE)}；如果插入点左面的单元格含有数值，则插入的域为 {=SUM(LEFT)}；如果在插入点上面和左面的单元格中都含有数值，则 Microsoft Word 使用以下规则来确定插入哪一个 SUM 函数：

• 如果紧邻插入点上面的单元格中含有数值，则 Word 插入 {=SUM(ABOVE)}。
• 如果紧邻插入点上面的单元格中不包含数值，而紧邻插入点左面的单元格中含有数值，则 Word 插入 {=SUM(LEFT)}。
• 如果紧邻单元格中均不包含数值，则 Word 插入 {=SUM(ABOVE)}。
• 如果未指定Formula，而且插入点上面和左面的所有单元格均为空，则域的结果将会出错。

示例

本示例在活动文档的开始处创建一个 3x3 表格，然后计算第一列的平均值。

Set myRange = ActiveDocument.Range(0, 0)
Set myTable = ActiveDocument.Tables.Add(myRange, 3, 3)
With myTable
    .Cell(1,1).Range.InsertAfter "100"
    .Cell(2,1).Range.InsertAfter "50"
    .Cell(3,1).Formula Formula:="=Average(Above)"
End With

本示例在插入点插入一个公式，该公式将决定选定单元格上面的单元格中的最大数值。

Selection.Collapse Direction:=wdCollapseStart
If Selection.Information(wdWithInTable) = True Then
    Selection.Cells(1).Formula Formula:="=Max(Above)"
Else
    MsgBox "The insertion point is not in a table."
End If