Application.SelectCellDown method (Project)

Artikel
04/07/2023

Markiert Zellen direkt unterhalb der aktuellen Markierung.

Syntax

Ausdruck. SelectCellDown( _NumCells_, _Extend_ )

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
NumCells	Optional	Long	Die Anzahl der unterhalb der aktuellen Markierung zu markierenden Zellen. Der Standardwert ist 1.
Extend	Optional	Boolean	True, Wenn die aktuelle Auswahl auf die angegebene Zelle erweitert wird. Der Standardwert ist False.

Rückgabewert

Boolean

Bemerkungen

Die SelectCellDown -Methode ist nicht verfügbar, wenn Kalender, Netzplandiagramm oder Ressource: Grafik die aktive Ansicht ist.

Beispiel

Im folgende Beispiel gilt die Gruppierung vollständige und unvollständige Ressourcen für die Ansicht Ressource: Tabelle und klicken Sie dann SelectCellDown verwendet, um die erste Zelle in jeder Zeile auszuwählen und testet, ob die Zeile einen Gruppenkopf handelt. Der Prozess wird fortgesetzt, bis die Zeile leer ist und dann ein Meldungsfeld mit der Testergebnisse für jede Zeile zeigt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über