次の方法で共有

StartDriver.Suggestions プロパティ (Project)

  • [アーティクル]

指定したタスクを修正する必要がある潜在的な問題があるかどうかを示す PjTaskWarnings の値の組み合わせを取得します。 取得のみ可能な Long 値です。

構文

式。 Suggestions

式StartDriver オブジェクトを返す式。

注釈

タスクの修正候補がない場合は、 候補 の値は 0 になります。 PjTaskWarningsResourceBeyondMaxUnit の値は 64 であり、 pjTaskWarningsResourceOverallocated の値は 128、192 は、 提案 、ため、タスクは潜在的な問題の両方にします。

注:

[!メモ] PjTaskWarnings 列挙体は、 提案 のプロパティと、[ 警告 ] プロパティの両方を使用できます。

例

次の例では、タスク 2 の 候補 のプロパティの値が 128 の場合を示すメッセージ ボックス リソースが割り当て超過になっています。 値が 68 の場合は、メッセージ ボックスを示しています。

  • The assignment is more than the maximum resource units available.

  • The shadow task finishes earlier because of a predecessor link.

Sub GetTaskSuggestions() 

 Dim suggestions As Long 

 Dim suggestionMsg As String 

 

 suggestions = ActiveProject.Tasks(2).StartDriver.Suggestions 

 

 suggestionMsg = CheckSuggestions(suggestions) 

 

 If Not suggestionMsg = "" Then MsgBox suggestionMsg 

End Sub 

 

Function CheckSuggestions(suggestions As Long) As String 

 Dim partial As Long 

 Dim suggestionResult As String 

 

 suggestionResult = "" 

 partial = suggestions Xor pjTaskWarningResourceBeyondMaxUnit 

 If partial < suggestions Then _ 

 suggestionResult = suggestionResult & "The assignment is more than the maximum resource units available." & vbCrLf 

 

 partial = suggestions Xor pjTaskWarningResourceOverallocated 

 If partial < suggestions Then _ 

 suggestionResult = suggestionResult & "The resource is overallocated." & vbCrLf 

 

 partial = suggestions Xor pjTaskWarningShadowFinishesEarlierDueToLink 

 If partial < suggestions Then _ 

 suggestionResult = suggestionResult & "The shadow task finishes earlier because of a predecessor link." & vbCrLf 

 

 CheckSuggestions = suggestionResult 

End Function

関連項目

StartDriver オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。