Application.SelectCellDown メソッド (Project)

現在の選択範囲のすぐ下にあるセルを選択します。

構文

式。 SelectCellDown( _NumCells_, _Extend_ )

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

パラメーター

名前	必須 / オプション	データ型	説明
NumCells	省略可能	長整数型 (Long)	現在の選択範囲から下に何番目のセルを選択するかを指定します。 既定値は 1 です。
Extend	省略可能	ブール型 (Boolean)	True と指定したセルに現在の選択範囲を拡張します。 既定値は False です。

戻り値

ブール型 (Boolean)

注釈

SelectCellDown メソッドは、予定表、[ネットワーク ダイアグラム]、または [リソース グラフがアクティブなビューは使用できません。

例

次の使用例完了済みと進行中のリソースのグループ化を [リソース シート] ビューに適用されます 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 のサポートおよびフィードバックを参照してください。