作者：乔山办公网日期：
返回目录：excel表格制作
C/C++语言这个，要使用到COM，就是说依赖于WINDOWS API/SDK ，三5句讲不完。。。。。
如果将excel 转成CSV、再按文本文件来 读/写，就省事很多了，，，，，，，，，
普通砼配合比计算表 希望对你有所帮助
代码抄如百下：度问
Sub 复制答()
d = Format(CDate(Sheets(Sheets.Count).Name) + 1, "mm-dd")
Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = d
End Sub
打开一个Excel表，按ALT+F11进入VBE窗口，在左上方的工程-VBAProject那里的sheet1上双击一下，在右边的空白区域输入下列代码：
Sub aa()
M = Val(InputBox("请输入放入球的数量", "提示"))
N = Val(InputBox("请输入放入抽取e68a847a686964616f339的次数", "提示"))
Randomize
kk = 1
Const MM = 100 '开关，控制抽取的次数，这里的100表示抽取100次，如果要抽10000次，将100改成10000即可
Cells(kk, 1) = "X"
Cells(kk, 2) = "次数"
Cells(kk, 3) = "概率"
For i = 1 To MM
k = 0
x = 0
For j = 1 To N '抽取N次
k = Int(Rnd() * (M - 1)) + 1
x = x + k
Next j
x = x / N '取得N次的平均值X
tmp = x
Set c = Range("A:A").Find(tmp, LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
j = 0
kk = kk + 1
Cells(kk, 1) = tmp
Cells(kk, 2) = 1
Cells(kk, 3) = Cells(kk, 2) / MM '相对总次数的概率
Else
Cells(c.Row, 2) = Cells(c.Row, 2) + 1
Cells(c.Row, 3) = Cells(c.Row, 2).Value / MM
End If
Next
End Sub
然后关闭VBE，回到Excel界面，按ALT+F8，选择sheet1.aa执行即可看到结果。