是否可以通过ms-project中的vba调用“所有级别”？
是否可以通过ms-project中的vba调用“所有级别”？
提问于 2017-07-03 16:17:52
我正在使用Microsoft 2010专业人员，我想知道是否可以：
问题
- 使用visual调用资源选项卡下的“所有级别”函数。
我为什么要那样？
我想这样做是因为我们在我们的项目中使用了各种各样的“韵律”。因此，同样的任务可以在4天或10天内完成。现在，当“节奏”发生这样的变化时，我们将不得不增加/减少在白天/夜班工作的雇员人数，并将任务重新分配到白天或夜班。这个任务必须手动完成。显然我想让它自动化。
因此，我想解决过度分配的任务和“过去的最后期限”错误。因此，需要获得指标列的值。
项目设置
我正在使用两个日历：
- "DayShift“每天早上6:30到下午2:30
- "AfterDayBeforeNight“每天下午2:30至10:30
分配给两个资源：
代码：
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谢谢您抽时间见我。
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-07-03 18:28:11
对于Q2:您可以从VBA调用
LevelNow All:=True请参阅https://msdn.microsoft.com/en-us/library/office/aa195121(v=office.11).aspx
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/44890138
复制相关文章
相似问题
腾讯云开发者
