MS Project/Excel VBA 循环通过“标志”列，如何？

【问题标题】：MSProject/Excel VBA Loop through 'Flag' columns, how?MS Project/Excel VBA 循环通过“标志”列，如何？
【发布时间】：2015-09-29 13:59:17
【问题描述】：

希望是一个简单的。在 Excel VBA 中，我希望能够遍历我打开的 MSProject 文件中的自定义标志列。

在伪

For i = 1 to 20
If task.flagi then ....

如何在代码中编写“flagi”？

谢谢，

乔恩·C

【问题讨论】：

标签： vba excel loops if-statement ms-project

【解决方案1】：

你可以这样做：

Set task = ActiveProject.Tasks.Add("Test Task")
Dim Index As Integer
For Index = 1 To 20
    Dim fieldName As String
    fieldName = "Flag" & Index

    Dim fieldValue
    fieldValue = task.GetField(FieldNameToFieldConstant(fieldName))
    '
    ' Your code here
    '
Next

您也可以直接使用 pjField 常量来访问字段 (https://msdn.microsoft.com/EN-US/library/office/ff867782.aspx)，尽管使用起来稍微困难一些（例如，它们不是您期望的数字顺序！）

【讨论】：

有道理，但我必须在某个地方偏离目标。使用：