Task.Split メソッド (Project)
タスクを 2 つに分割します。
構文
式。Split (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 のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示