Метод Application.SelectCellDown (Project)

Выделение ячеек непосредственно под текущим выделенным фрагментом.

Синтаксис

выражение. SelectCellDown( _NumCells_, _Extend_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Количество ячеек	Необязательный	Long	Количество ячеек, которые нужно выбрать в меньшую сторону от текущей выделенной ячейки. Значение по умолчанию равно 1.
Extend	Необязательный	Логический	Имеет значение true , если выделенный фрагмент расширен до указанной ячейки. Значение по умолчанию — False.

Возвращаемое значение

Boolean

Примечания

Метод SelectCellDown недоступен, если Calendar, сетевой график или Resource Graph является активным представлением.

Пример

В следующем примере группировка полных и неполных ресурсов применяется к представлению листа ресурсов, а затем использует функцию SelectCellDown для выбора первой ячейки в каждой строке и проверяет, является ли строка сводкой по группе. Процесс продолжается до тех пор, пока строка не станет пустой, после чего отобразится окно сообщения с результатами проверки для каждой строки.

Sub ShowGroupByItems() 
 Dim isValid As Boolean 
 Dim res As Resource 
 Dim rowType As String 
 Dim msg As String 
 
 isValid = True 
 msg = "" 
 
 ActiveProject.Views("Resource Sheet").Apply 
 GroupApply Name:="Complete and Incomplete Resources" 
 Application.SelectBeginning 
 
 ' When a cell in an empty row is selected, accessing the ActiveCell.Resource 
 ' property results in error 1004. 
 On Error Resume Next 
 
 ' Loop until a cell in an empty row is selected. 
 While isValid 
 Set res = ActiveCell.Resource 
 
 If Err.Number > 0 Then 
 isValid = False 
 Debug.Print Err.Number 
 Err.Number = 0 
 Else 
 If res.GroupBySummary Then 
 rowType = "' is a group-by summary row." 
 Else 
 rowType = "' is a resource row." 
 End If 
 
 msg = msg & "Resource name: '" & res.Name & rowType & vbCrLf 
 SelectCellDown 
 End If 
 Wend 
 
 MsgBox msg, vbInformation, "GroupBy Summary for Resources" 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.