Question

我有一个简单的宏来更新MS Project中的自定义字段。问题是它无论如何都会对资源进行计数，即使我尝试排除它也是如此。例如，如果一个字段包含＆＃34; john＆＃34;和＆＃34;标记＆＃34;当我只想要计算＆＃34;标记＆＃34;时，它会计算这两种资源。当我使用msgbox调试它时，代码会选择正确的数据。

$('input:submit').click(function(e)
{
 if(!$.validate())
  e.preventDefault();
});

Answer 1

修正了 - 代码现在计算包含“John”的每个任务资源，并从该任务的总资源中减去该数字。

'全局忽略案例选项比较文本

Sub resourceCount（） Dim ts As Tasks Dim resources（）As String

Set ts = ActiveProject.Tasks
Dim t As Task


    For Each t In ts

        Dim intCount As Integer
        Dim res_count As Integer
        res_count = 0

        resources = Split(t.ResourceNames, ",")

        For intCount = LBound(resources) To UBound(resources)
            total_resources = UBound(resources) + 1
            res_count = res_count + 1

                If Trim(resources(intCount)) Like "*John*" Then
                res_count = res_count - 1

                End If


        Next

        t.Text2 = res_count


Next t

End Sub

在VBA中使用MS Project排除资源名称

1 个答案: