次の方法で共有


Application.EditGoTo メソッド (Project)

タスク、リソース、または日付にジャンプします。

構文

EditGoTo( _ID_, _Date_ )

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

パラメーター

名前 必須 / オプション データ型 説明
ID 省略可能 長整数型 (Long) 作業中の枠に表示するタスクまたはリソースの ID 番号を示す数値を指定します。
Date 省略可能 バリアント型 (Variant) 作業中の枠に表示する最初の日付を示す数値または文字列を指定します。

戻り値

ブール型 (Boolean)

次の使用例は、日付またはタスク名の入力を求めるメッセージを表示し、指定された日付またはタスクにジャンプします。 このとき、ユーザーはタスク ビューで作業している必要があります。

Sub PromptUserForEditGotoArguments() 
 
 Dim Entry As String ' Date or task name entered by user 
 
 Entry = InputBox$("Enter a date or a task name to which you want to scroll in the active pane.") 
 
 ' If user enters a date, scroll to a date in the active pane. 
 If IsDate(Entry) Then 
 EditGoTo Date:=Entry 
 ' Otherwise, scroll to a task in the active pane. 
 Else 
 EditGoTo ID:=ActiveProject.Tasks(Entry).ID 
 End If 
 
End Sub

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

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