Microsoft Project - Angepasste Spalte zwischen Task und Ressource freigegeben?

479
Eric F

Hintergrund

Ich habe also ein Projekt, das ich in Microsoft Project erstellt habe. Ich habe alle meine Aufgaben erstellt und Ressourcen zugewiesen. Ich möchte eine Spalte hinzufügen, um den Ort zu erfassen, an dem die Aufgabe ausgeführt wird. Es scheint, dass es keine Spalte mit der Bezeichnung Location oder ähnliches gibt.

Was ich versucht habe

Aus diesem Grund möchte ich eine Spalte mit dem Namen Location hinzufügen . Ich möchte, dass die Aufgaben und Ressourcen gemeinsam genutzt werden.

Ich habe die Spalte als Text2 aus den Optionen hinzugefügt und dann einen Titel für Ort gegeben :

enter image description here

Unter Ressourcennutzung wähle ich text2 aus meinen Spaltenauswahl aus, aber es wird nichts aufgefüllt :

enter image description here

Fehlt mir etwas?

Eine andere Möglichkeit, dies zu erreichen, ist möglicherweise, wenn meine Ressourcenliste die Orte (Standorte) enthält. Wenn ich dies auf diese Weise mache, gibt es eine Möglichkeit, Dinge hinzuzufügen, die mit den Standorten verbunden sind, wie Adresse, Telefonnummer usw.?

2

2 Antworten auf die Frage

0
Rachel Hettinger

Bei den in der Ansicht Ressourcennutzung angezeigten Aufgabeninformationen handelt es sich tatsächlich um die Zuweisungsinformationen .

Das angezeigte Text2-Feld ist das aus den Zuweisungen . Um es noch komplizierter zu machen, gibt es auf der Zuweisungsebene zwei Sätze von "benutzerdefinierten" Feldern - eines für Aufgaben und eines für Ressourcen.

Mit einem Makro können Sie die Daten auf Task-Ebene in die Daten auf Zuordnungsebene kopieren.

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

Die erste Schleife in diesem Code kopiert die Daten auf Taskebene in die Ressourcenfelder der Zuweisung (z. B. die Felder, die Sie in der Ansicht Ressourcennutzung sehen).

Die zweite Schleife kopiert Daten in die Aufgabenfelder der Zuweisung (z. B. die in der Ansicht "Aufgabenverwendung" angezeigten Felder). Wählen Sieasn.Text2 = ... je nach Bedarf eine der Zeilen aus und löschen / kommentieren Sie die andere aus. Die erste würde die Aufgabeninformationen duplizieren, während die zweite die Text2-Daten aus der Ressource selbst (z. B. aus der Ressourcenblattansicht) anzeigen würde.

0
Eric F

Ich habe also festgestellt, dass Felder, die Aufgaben zugeordnet sind, nicht dieselben Felder sind, die Ressourcen zugewiesen werden, auch wenn sie denselben Namen haben. Beispielsweise ist Text2 für eine Ressource nicht gleich Text2 für eine Aufgabe.

Aus diesem Grund besteht die einzige Möglichkeit zum Kopieren zwischen den beiden Sätzen in der Verwendung von VBA. Siehe unten:

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

Ich durchlaufe die verfügbaren Ressourcen, dann die Zuweisungen zu diesen Ressourcen und finde dann heraus, welche Aufgabe die Zuweisung ist. Wenn ich diesen Link gefunden habe, kann ich alle gewünschten Daten kopieren. Die oben genannten sind nur Beispiele.

Das Ergebnis

Das Ergebnis ist, dass ich meine Aufgaben eingeben und den Ressourcen, Datum, Notizen und Ort der Aufgaben zuweisen kann:

Nach der Eingabe kann ich meine Ergebnisse jetzt auf zwei Arten anzeigen. Ich kann von Person sehen, was jeder zu tun hat:

Mit der Uhrzeit- und Datumsformatierung ist es sehr einfach zu lesen und sehr organisiert

Ich kann auch ähnlich nach Aufgabe sehen:

Dies führt zu einem sehr schön aussehenden Projektplaner, der leicht modifiziert werden kann.

Verwandte Probleme