30. McSweeney A. Why Solutions Fail and the Business Value of Solution Architecture // Extract from Introduction to Solution Architecture, 2019. URL: https://www.researchgate.net/publication/333295151_Why_Solutions_Fail_and_the_Business_Value_of_Solution_Architecture

31. Mersino A. Agile Project Success Rates are 2X Higher than Traditional Projects (2019) // Agile Project Management, 2018. URL: https://vitalitychicago.com/blog/agile-projects-are-more-successful-traditional-projects/

32. Mieritz L. Survey shows why projects fail //Gartner report. Retrieved from Gartner Database. 2012.

33. Mulder H., Johnson J. Factors of Success 2015 // CHAOS University System, 2015.

34. Nicholas J., Hidding G. Management principles associated with IT project success // International Journal of Management & Information Systems (IJMIS). 2010. №5.

35. Nicholas J. Project Management for Business and Technology. NY: Elsevier, 2012.

36. Special CHAOS Report on Digital Transformation Project // The Standish Group International, 2016. URL: https://riskevent.nl/wp-content/uploads/2019/04/CHAOS-Report-JohnsonMulder-horend-bij-presentatie-Hans-Mulder.pdf

37. Success Rates Rise: Transforming the high cost of low performance // PMI`s Pulse of the profession, 9^th Global Project Management Survey, 2017.

38. Taimour A. N. Why IT Projects Fail // The Project Perfect White Paper Collection, 2005.

39. The 25 Most Influential Business Management Books // Business guides. Time, 2011. URL:

http://content.time.com/time/specials/packages/article/0,28804,2086680_2086683_2087672,00.html

40. The Critical Success Factors (CSFs) for IT Projects // Research gate, 2017.

41. What's the Difference Between Qualitative and Quantitative Risk Analysis? // Safran. URL: https://www.safran.com/blog/whats-the-difference-between-qualitative-and-quantitative-risk-analysis

42. Wysocki R. K. Effective project management: traditional, agile, extreme. John Wiley & Sons, 2011.

Приложение 1 Оценка трудозатрат исполнителя проекта

Приложение 2 Форма оценки трудозатрат прототипа корпоративной системы управления проектными рисками

Приложение 3 Форма расчета текущего уровня риска проекта прототипа корпоративной системы управления

Приложение 4 Скрипт запуска имитационной модели для расчетного проектного риска

Private Sub Go_Click()

Dim curwb As Workbook

Set curwb = ThisWorkbook

curwb.Activate

Dim prp As Worksheet

Set prp = Worksheets("EstimatePrepare")

Dim out_dat As Worksheet

Set out_dat = Worksheets("Model Data")

out_dat.Range("A:B").Clear

Dim risk_res As Worksheet

Set risk_res = Worksheets("Risk")

Dim prj As Worksheet

Set prj = Worksheets("Project")

Dim i As Integer, R() As Double, RTMin As Double, RTMax As Double, RTAve As Double, RCMin As Double, RCMax As Double, RCAve As Double

ReDim R(nsimulations) As Double

Sheets("Estimate").Select

For i = 1 To nsimulations

prp.Range("E34") = Range("E34") + Range("E34") * WorksheetFunction.Norm_Inv(Rnd, risk_ave, risk_stdev)

'повторить для каждой ячейки с рассчитанными трудозатратами на форме оценки

R(i) = prp.Range("D4")

out_dat.Range("A" & i) = R(i)

out_dat.Range("B" & i) = prp.Range("D5")

Next i

RTMin = WorksheetFunction.Min(out_dat.Range("A:A"))

prj.Range("D6") = WorksheetFunction.RoundUp(RTMin, 0)

RTMax = WorksheetFunction.Max(R)

prj.Range("D7") = WorksheetFunction.RoundUp(RTMax, 0)

RTAve = WorksheetFunction.Average(out_dat.Range("A:A"))

prj.Range("D8") = WorksheetFunction.RoundUp(RTAve, 0)

prj.Range("D9") = WorksheetFunction.StDev_S(out_dat.Range("A:A"))

RCMin = WorksheetFunction.Min(out_dat.Range("B:B"))

prj.Range("E6") = WorksheetFunction.RoundUp(RCMin, 0)

RCMax = WorksheetFunction.Max(out_dat.Range("B:B"))

prj.Range("E7") = WorksheetFunction.RoundUp(RCMax, 0)

RCAve = WorksheetFunction.Average(out_dat.Range("B:B"))

prj.Range("E8") = WorksheetFunction.RoundUp(RCAve, 0)

prj.Range("E9") = WorksheetFunction.StDev_S(out_dat.Range("B:B"))

End Sub

Размещено на Allbest.ru