Microsoft Project - настраиваемый столбец, совместно используемый задачей и ресурсом?

фон

Итак, у меня есть проект, который я создал в Microsoft project. Я создал все свои задачи и назначил ресурсы. То, что я хотел бы сделать, это добавить столбец для захвата местоположения, в котором происходит задача. Кажется, что нет столбца с надписью расположение или что-нибудь подобное.

что я пробовал

по этой причине я хотел бы добавить столбец с надписью расположение. Я бы как для того, чтобы быть разделены между задачами и ресурсами.

Я добавил столбец как text2 из вариантов, а затем дал ему название расположение:

enter image description here

В разделе использование ресурсов я выбираю text2 из моих вариантов столбцов, но ничего не заполняется:

enter image description here

Я что-то пропустила?

возможно еще один способ достичь этого можно, если мой список ресурсов включает места (расположения). Если я делаю это таким образом, есть ли способ добавить вещи, связанные с местами, такими как адрес, номер телефона и т. д.?

25
задан Eric F
08.02.2023 18:06 Количество просмотров материала 3223
Распечатать страницу

2 ответа

то, что, как представляется, информация о задаче, показанная в представлении использования ресурсов на самом деле задание информация.

поле Текст2 показан один из задания. Чтобы еще больше усложнить ситуацию, на уровне назначения есть два набора "пользовательских" полей: один для задач и один для ресурсов.

используя макрос, вы можете переписать данные к заданию уровня данных.

Sub UpdateAssignmentInfo()

    Dim asn As Assignment

    ' transfer data to show in the Resource Usage view
    Dim res As Resource
    For Each res In ActiveProject.Resources
        For Each asn In res.Assignments
            asn.Text2 = asn.Task.Text2
        Next asn
    Next res

    ' transfer data to show in the Task Usage view
    Dim tsk As Task
    For Each tsk In ActiveProject.Tasks
        For Each asn In tsk.Assignments
            ' use only ONE of the following:
            ' to show the task's value use
            asn.Text2 = tsk.Text2
            ' to show the resource's value use
            asn.Text2 = asn.Resource.Text2
        Next asn
    Next tsk

End Sub

первый loop в этом коде копирует данные уровня задачи в поля ресурсов назначения (например, поля, которые вы видите в представлении использование ресурсов).

второй цикл копирует данные в поля задачи задания (например, поля, отображаемые в представлении использование задания). В зависимости от необходимости, выберите один из asn.Text2 = ... строки и удалить/закомментировать остальные. первое одно дублировало бы данные по задачи пока второе одно показало бы данные по Text2 от Сам ресурс (например, из представления листа ресурсов).

0
отвечен Rachel Hettinger 2023-02-10 01:54

Так я обнаружил, что поля назначенные задачи не те же поля назначенные ресурсы, даже если они имеют одинаковое имя. Например, Text2 для ресурса не равен Text2 для задачи.

по этой причине единственный способ копирования между двумя наборами-использование VBA. Смотрите ниже:

Public Sub copy_task_location_to_resource_location()


  For r = 1 To ActiveProject.Resources.Count
    'iterate through resources
    ActiveProject.Resources(r).Text1 = ""
    ActiveProject.Resources(r).Text2 = ""
    ActiveProject.Resources(r).Text3 = ""
    ActiveProject.Resources(r).Text4 = ""

        For a = 1 To ActiveProject.Resources(r).Assignments.Count
          'iterate through assignments
          'match up with correct task
          For t = 1 To ActiveProject.Tasks.Count
            If ActiveProject.Tasks(t) = ActiveProject.Resources(r).Assignments(a).Task Then
               'copy fields over
               ActiveProject.Resources(r).Assignments(a).Text3 = ActiveProject.Tasks(t).Text2
               ActiveProject.Resources(r).Assignments(a).Text2 = Month(ActiveProject.Tasks(t).Start) & "/" & Day(ActiveProject.Tasks(t).Start)
               ActiveProject.Resources(r).Assignments(a).Text1 = Format(ActiveProject.Tasks(t).Start, "H:mm am/pm")
               ActiveProject.Resources(r).Assignments(a).Text4 = Format(ActiveProject.Tasks(t).Finish, "H:mm am/pm")
               ActiveProject.Resources(r).Assignments(a).Notes = ActiveProject.Tasks(t).Notes
               Exit For
            End If
          Next

       Next

  Next


End Sub

Я перебираю доступные ресурсы, затем назначения этим ресурсам, затем нахожу, какая задача является назначением. Как только я найду эту ссылку, я может копировать любые данные, которые я хочу. Выше приведены лишь примеры.

результат

результатом является то, что я могу ввести в мои задачи, и назначить задачи ресурсы, даты, заметки и местоположение:

enter image description here

после ввода, теперь я могу просматривать мои результаты двумя способами. Я вижу по человеку, что каждый должен заниматься:

enter image description here

С указанием времени и даты форматирование очень легко читать и очень организованно

Я также могу просмотреть аналогично по задаче:

enter image description here

это приводит к очень красивый вид планировщик проекта, который легко изменить.

0
отвечен Eric F 2023-02-10 04:11

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Мы используем cookie. Это позволяет нам анализировать взаимодействие посетителей с сайтом и делать его лучше. Продолжая пользоваться сайтом, вы соглашаетесь с использованием файлов cookie. Политика конфиденциальности
Согласен
Вверх