次の方法で共有

Resource.GroupBySummary プロパティ (Project)

  • [アーティクル]

True を指定 すると、リソース ビューで選択した項目がグループの概要行に含まれます。それ以外の場合は False。 読み取り専用の Boolean です。

構文

式。 GroupBySummary

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

注釈

リソース ビュー で [グループ] コマンドを適用すると、グループ サマリー行は、[ リソース名] 列のグループ定義を表示します。 選択したセルがグループ サマリー行である場合は、 GroupBySummary プロパティが True にします。

GroupBySummary プロパティは、プロパティの ActiveCell.Resourceから、 ActiveProject.Resources(x)ではなくアクセスできます。

例

次の例は、[リソース シート] ビューに "Complete and Incomplete Resources" グループを適用した後、ビューの各行の最初のセルを選択して、その行がグループ サマリー行かどうかを調べます。 この処理は空の行が見つかるまで続行され、各行の調査結果を示すメッセージ ボックスが表示されます。

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 のサポートおよびフィードバックを参照してください。