通过

Task.Split 方法 (Project)

  • 项目

将任务拆分成两部分。

语法

表达式。拆分 (StartSplitOn、 EndSplitOn)

表达 一个代表 Task 对象的变量。

参数

名称 必需/可选 数据类型 说明
StartSplitOn 必需 Variant 任务拆分的起始日期。 如果未指定，则使用工作周期的默认项目结束时间。
EndSplitOn 必需 Variant 拆分任务的结束日期。 如果不指定时间，则使用工作周期的项目的默认开始时间。 如果 EndSplitOn 在 StartSplitOn 指定的日期或之前，则不会创建拆分。

示例

下例拆分一个指定任务。

Sub CreateSplit() 
    Dim WhichTask As Long 
    Dim SplitFrom As Variant, SplitTo As Variant 
 
    WhichTask = InputBox("Enter the ID of the task you would like to split:") 
    SplitFrom = InputBox("Enter the date and time for the start of the" & _
        " split: " & vbCrLf & vbCrLf & "(The default time is the end" & _
    " time of the preceding working period.)") 
    SplitTo = InputBox("Enter the date and time for the end of the split:" & _
        vbCrLf & vbCrLf & "(The default time is the start time of the next" & _
        " working period.)") 
 
    ActiveProject.Tasks(WhichTask).Split SplitFrom, SplitTo 
End Sub

支持和反馈

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