通过

Application.SetTPField 方法 (Project)

为"工作组计划程序"视图中的一个或多个任务的"完成百分比"域设置值。

语法

expression。 SetTPField( _Field_, _Value_, _AllSelectedTasks_, _Create_, _TaskID_, _ProjectName_ )

表达 返回 Application 对象的表达式。

参数

名称 必需/可选 数据类型 说明
Field 必需 字符串 Field 参数只能为“% Complete”。 此外可以使用 pjTaskPercentComplete ，如下所示的示例使用 FieldConstantToFieldName 方法。
Value 必需 字符串 Field 参数的值。 这些值介于"0"到"100"之间，表示完成百分比。
AllSelectedTasks 可选 Boolean 在Project中不使用。 值为 True ，这意味着 Field和 Value参数被设置为选定的所有任务。
Create 可选 Boolean 在Project中不使用。
TaskID 可选 Long 在Project中不使用。
ProjectName 可选 String 在Project中不使用。

返回值

Boolean

示例

下面的示例将“工作组计划程序”视图中的选定任务设置为已完成 40%。

Sub TestSetTPField() 
    Dim fieldName As String 
 
    fieldName = FieldConstantToFieldName(pjTaskPercentComplete) 
    Application.SetTPField Field:=fieldName, Value:="40" 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。