% kans van doorgaan per taak tbv resourceplanning

Discussion:

(te oud om op te antwoorden)

Renko

2009-04-13 18:20:59 UTC

Ik heb diverse taken(projecten) waarvan de doorgang niet zeker is (wel een
ingeschat % bekend met de kans of het doorgaat).
Ik wil deze graag opnemen om zo de "gewogen" kans van doorgaan mee te nemen
tbv de in te plannen resources (WORK * % kans van doorgang).

Kan dit in project?

PS: helemaal mooi zou het zijn als deze "onzekere" taken een aparte kleur
krijgen in de resouce graph.

Jan De Messemaeker

2009-04-14 10:18:50 UTC

Permalink

Dag Renko,

Geen geluk, Project als dusdanig kan zoiets niet.
Je kan wel het volgende proberen.
1. Extra, Macro, Security, op Low zetten (of het NL equivalent)
2. Extra, Macro, Visula Basic Editor.
3. In Visual basic editor klik hje links boven op Project Global, daarna
Insert, Module
4. In het codevenster dat verschijnt plak je de code hieronder (van Sub tot
en met End Sub)
5. Toon het veld Nummer1 in je bestand en vul daarin de waarschijnlijkheid
voor elke niet-samenvattingstaak in. Vergeet niet 100 in te vullen voor
zekere taken
6. Maak een copie van je bestand en open die.
7. Extra, macro, Macros, dubbelklikken op Onzekerwerk
8. Het copiebestand toont nu wat je gevraagd hebt.

_________________________________________________________
Sub Onzekerwerk
dim Job a task
for each job in activeproject.tasks
if not job is nothing then
if not job.summary then
job.type=pjfixedduration
if not job.percentcomplete=100 then
job.work=job.work*job.number1/100
end if 'percentcomplete
end if 'summary
end if 'nothing
next job
end sub
_____________________________________________

"Taken" bestaan niet in de Resource Graph; ik weet wel wat je bedoelt maar
sorry, gaat niet.
Groeten,
--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
For availability check:
http://users.online.be/prom-ade/Calendar.pdf

Post by Renko
Ik heb diverse taken(projecten) waarvan de doorgang niet zeker is (wel een
ingeschat % bekend met de kans of het doorgaat).
Ik wil deze graag opnemen om zo de "gewogen" kans van doorgaan mee te nemen
tbv de in te plannen resources (WORK * % kans van doorgang).
Kan dit in project?
PS: helemaal mooi zou het zijn als deze "onzekere" taken een aparte kleur
krijgen in de resouce graph.

Renko

2009-04-15 10:30:01 UTC

Permalink

Jan,

bedankt voor je snelle reactie.

Jouw optie voldoet prima, maar heeft het nadeel dat het een eenmalige actie
is, en wanneer het kanspercentage wijzigt en de macro opnieuw gestart wordt,
de berekening niet meer klopt.

Met wat hulp heb ik het als volgt aangepast (soort "geheugen" gecreerd):

Sub Onzekerwerk()
Dim Job As Task
For Each Job In ActiveProject.Tasks
If Not Job Is Nothing Then
If Not Job.Summary Then
If Job.Duration1 = 0 Then
Job.Duration1 = Job.Work
End If
Job.Type = pjFixedDuration
If Not Job.PercentComplete = 100 Then
Job.Work = Job.Duration1 * Job.Number1 / 100
End If 'percentcomplete
End If 'summary
End If 'nothing
Next Job
End Sub

Groeten,
Renko

Post by Jan De Messemaeker
Dag Renko,
Geen geluk, Project als dusdanig kan zoiets niet.
Je kan wel het volgende proberen.
1. Extra, Macro, Security, op Low zetten (of het NL equivalent)
2. Extra, Macro, Visula Basic Editor.
3. In Visual basic editor klik hje links boven op Project Global, daarna
Insert, Module
4. In het codevenster dat verschijnt plak je de code hieronder (van Sub tot
en met End Sub)
5. Toon het veld Nummer1 in je bestand en vul daarin de waarschijnlijkheid
voor elke niet-samenvattingstaak in. Vergeet niet 100 in te vullen voor
zekere taken
6. Maak een copie van je bestand en open die.
7. Extra, macro, Macros, dubbelklikken op Onzekerwerk
8. Het copiebestand toont nu wat je gevraagd hebt.
_________________________________________________________
Sub Onzekerwerk
dim Job a task
for each job in activeproject.tasks
if not job is nothing then
if not job.summary then
job.type=pjfixedduration
if not job.percentcomplete=100 then
job.work=job.work*job.number1/100
end if 'percentcomplete
end if 'summary
end if 'nothing
next job
end sub
_____________________________________________
"Taken" bestaan niet in de Resource Graph; ik weet wel wat je bedoelt maar
sorry, gaat niet.
Groeten,
--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
http://users.online.be/prom-ade/Calendar.pdf

Jan De Messemaeker

2009-04-15 13:59:11 UTC

Permalink

Prima!
--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
For availability check:
http://users.online.be/prom-ade/Calendar.pdf

Post by Renko
Jan,
bedankt voor je snelle reactie.
Jouw optie voldoet prima, maar heeft het nadeel dat het een eenmalige actie
is, en wanneer het kanspercentage wijzigt en de macro opnieuw gestart wordt,
de berekening niet meer klopt.
Sub Onzekerwerk()
Dim Job As Task
For Each Job In ActiveProject.Tasks
If Not Job Is Nothing Then
If Not Job.Summary Then
If Job.Duration1 = 0 Then
Job.Duration1 = Job.Work
End If
Job.Type = pjFixedDuration
If Not Job.PercentComplete = 100 Then
Job.Work = Job.Duration1 * Job.Number1 / 100
End If 'percentcomplete
End If 'summary
End If 'nothing
Next Job
End Sub
Groeten,
Renko

Post by Jan De Messemaeker
Dag Renko,
Geen geluk, Project als dusdanig kan zoiets niet.
Je kan wel het volgende proberen.
1. Extra, Macro, Security, op Low zetten (of het NL equivalent)
2. Extra, Macro, Visula Basic Editor.
3. In Visual basic editor klik hje links boven op Project Global, daarna
Insert, Module
4. In het codevenster dat verschijnt plak je de code hieronder (van Sub tot
en met End Sub)
5. Toon het veld Nummer1 in je bestand en vul daarin de
waarschijnlijkheid
voor elke niet-samenvattingstaak in. Vergeet niet 100 in te vullen voor
zekere taken
6. Maak een copie van je bestand en open die.
7. Extra, macro, Macros, dubbelklikken op Onzekerwerk
8. Het copiebestand toont nu wat je gevraagd hebt.
_________________________________________________________
Sub Onzekerwerk
dim Job a task
for each job in activeproject.tasks
if not job is nothing then
if not job.summary then
job.type=pjfixedduration
if not job.percentcomplete=100 then
job.work=job.work*job.number1/100
end if 'percentcomplete
end if 'summary
end if 'nothing
next job
end sub
_____________________________________________
"Taken" bestaan niet in de Resource Graph; ik weet wel wat je bedoelt maar
sorry, gaat niet.
Groeten,
--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
http://users.online.be/prom-ade/Calendar.pdf