是否有可能在ms-project中通過vba調用「level all」？

Question

我使用Microsoft Project 2010專業，我想知道是否有可能：

問題

1. 使用Visual Basic調用資源標籤下的「級別全部」功能。

爲什麼我要那樣？

我想這樣做是因爲我們在我們的項目中使用了各種「節奏」。因此，相同的任務可以在4天或10天內完成。現在，當「節奏」發生這種變化時，我們將不得不增加/減少從事白天/夜班工作的員工數量，並將任務重新分配到白天或夜班。這個任務必須手動完成。我顯然希望自動化它。

所以我想解決過時的任務和「過去的截止日期」的錯誤。因此需要獲取指標列值。

項目設置

我使用2個日曆：

從6:30 AM
• 「DayShift」 每天下午2:30
從2:30 PM
• 「AfterDayBeforeNight」 天天至10:30 PM

分配到兩個資源：

代碼：

Dim t As Task  
For Each t In Application.ActiveProject.Tasks 
Dim success As Boolean 
Dim r As Resource  
success = Application.SelectRow(t.ID, False)  
If success Then 
Dim posAJ As Integer 
Dim posAS As Integer   
posAJ = InStr(t.ResourceNames, "A-J") 
posAS = InStr(t.ResourceNames, "A-S") 
If posAJ <> 0 Then 
Font32Ex CellColor:=62207 
End If 
If posAS <> 0 Then 
Font32Ex CellColor:=32207 
End If 
Dim warn As String 
warn = t.Warning 
End If 
Next 

謝謝您的時間。

Answer 1

對於Q2：您可以從VBA

LevelNow All:=True 

呼叫請參閱https://msdn.microsoft.com/en-us/library/office/aa195121(v=office.11).aspx