Метод Application.SelectCellDown (Project)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

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

Boolean

Примечания

Метод SelectCellDown недоступен, если активное представление календаря, сетевой схемы или 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 и обратная связь.

Share via