Word VBA教程:Formula方法

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

expression.Formula(Formula, NumFormat)

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

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

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

说明

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

VBA示例

本示例在活动文档的开始处创建一个 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号