作者：乔山办公网日期：
返回目录：excel表格制作
excel模拟一般的函数很简单
(1) 确定自变量
(2) 确定函数关系
(3) 自变量取值
如图所示：
Excel 做蒙特卡洛模拟的7a64e58685e5aeb9365具体操作步骤如下：
1、打开Excel表格，填写三个活动时间估算的乐观值，最可能值和悲观值。
2、分别计算三个活动的均值和标准差。
均值=（乐观值+4 * 最可能值 + 悲观值）/ 6，标准差=（悲观值-乐观值）/ 6。
3、计算出来的均值和标准差，对三个活动按照正态分布进行随机模拟。
公式：=INT(NORMINV(RAND(),$F$2,$G$2))。
4、将随机出来的值，进行固化。把上一步中红框的区域，按值复制一份。
5、3个活动均为FS的关系，三个互动的时间之和就等于总项目时间。
6、总工期考入新的Sheet，并进行从小到大的重新排序。
7、排序后的数据进行筛选，剔除重复数据，全部模拟出来工期的值。
8、进行频度统计，选中与总工期相对应的频度下面的单元格D2:D23。
输入公式“=FREQUENCY(A2:A101,C2:C23)”，然后按下Ctrl+Shift+Enter。
9、计算积累频度：每一个频度的积累频度=自身的频度+前面所有项的频度之和。
10、选择二维折线图，添加的空白折线图上右键选择数据区域，将累计频度改为蒙特卡洛模拟。
11、选择自己喜欢的样式，蒙特卡洛模拟生成的图表即可。
用到两个内置函数,即用rand()来产生0到1之间的随机数,然后用norminv()来获得服从既定分布的随机数,即收益率样本=norminv(rand(), 0, 0.1)。假定
ALT+f11调出 VBA
然后复制下面（A栏里是每打死zhidao一个需要的次数）复制后点上面的小绿专色三角 （运行子过程/ 用户窗体）
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''开始了
Sub 随机宏()
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim n As Integer
Range("a1") = "次数"
n = 2
Do While n < 100 '''''''''''''''''''100是实验次数
n = n + 1
a = 10 '''''''''''''''''''a=10 是怪物血量
b = 0
Do While a > 0
If Int((100 * Rnd) + 1) < 76 Then a = a - 1 '''''''''''''''76是攻击命中率属 a-1的1是攻击力 囧~
b = b + 1
Loop
Range("a" & n) = b
Loop
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''结束了