Task.ActualFinish プロパティ (Project)

取得またはタスクの実績終了日を設定します。 サマリー タスクに対しては読み取り専用です。 値の取得と設定が可能なバリアント型 (Variant) の値です。

構文

式。 ActualFinish

式Task オブジェクトを表す変数。

例

次の使用例は、作業中のプロジェクトで、タスクの実績終了日を入力するように求めるメッセージを表示します。

Sub SetActualFinishForTasks() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim Entry As String ' User's entry 
 
 For Each T In ActiveProject.Tasks 
 ' Loop until user enters a date or clicks Cancel. 
 Do While 1 
 Entry = InputBox$("Enter the actual finish date for " & _ 
 T.Name & ":") 
 
 If IsDate(Entry) Or Entry = Empty Then 
 Exit Do 
 Else 
 MsgBox ("You didn't enter a date; try again.") 
 End If 
 Loop 
 
 'If user didn't click Cancel, set the task's actual finish date. 
 If Entry <> Empty Then 
 T.ActualFinish = Entry 
 End If 
 
 Next T 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。