Метод Application.EditGoTo (Project)
Прокручивается до ресурса, задачи или даты.
Синтаксис
выражение. EditGoTo
( _ID_
, _Date_
)
выражение: переменная, представляющая объект Application.
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
ID | Необязательный | Long | Число, указывающее идентификационный номер задачи или ресурса, отображаемого в активной области. |
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 и обратная связь.