Как выбрать ресурс с помощью атрибута «Имя», а затем вернуть другое значение атрибута

Question

В MS Project я хочу написать код VBA, который находит ресурс в листе ресурсов с помощью атрибута Resource.Name, а затем может возвращать значение этого ресурса. Например, я хочу сказать, найти ресурс под названием «Джон», а затем иметь возможность вернуть его «Инициалы», «Std.Rate» и т. Д.

For Each T In ActiveProject.Tasks

For Each asn In T.Assignments
    If asn.ResourceName = "John" Then  'Find the User Resources

     'Insert code here that finds John in the Resource sheet and returns his 
      'Std.Rate


    End If
Next asn
Next T

Answer 1

Объект Assignment имеет свойство ( Resource ), которое возвращает связанный объект Resource , что делает эту задачу тривиальной:

For Each T In ActiveProject.Tasks

For Each asn In T.Assignments
    If asn.ResourceName = "John" Then  'Find the User Resources

     ' print resource's initials and standard rate 
     Debug.Print asn.Resource.Initials, asn.Resource.StandardRate

    End If
Next asn
Next T