以前在道路桥梁发个一个帖子，里面推荐了我编写的三个土木工程测量程序：

VBA开发EXCLE：附和水准路线测量计算
http://co.163.com/forum/content/1665_473482_1.htm
VBA开发EXCEL：中线逐桩坐标计算
http://co.163.com/forum/content/1665_477336_1.htm
VBA开发EXCEL：闭和导线坐标计算
http://co.163.com/forum/content/1665_478332_1.htm

今天再发布一个铁路设计院常用的线路初定测中平计算程序。编写的动力来自今年暑假在铁四院实习，参加京九电气化改造的初定测，接触了他们的一些EXCEL表格，如中基平，一般都是用VBA编写开发的，不过源代码加密了。回校后就一直想自己试试能不能用VBA实现他们的EXCEL计算表格。于是学习EXCEL VBA后，花了两天时间实现了线路初定测中平计算程序。压缩文件中有铁四院的原版，是看不到源代码的，还有就是我的版本，能看到源代码。欢迎大家一起探讨，代码里面有我的联系方式。下载地址：http://co.163.com/forum/content/1665_483195_0.htm#lastreply
我之所以没有把文件传到这里，只是想赚点积分，大家也不会吝啬一分去下载吧，就当对我劳动成果的一种尊重。

还有就是前面三个计算程序有一定的局限性，在这里叫大家修改下代码就可以使计算程序通用性更强。
第一步：加入以下代码
Dim intNum As Integer ’判断当前活动工作簿中活动工作表的Index
’判断工作表的Index
For i = 1 To Sheets.Count
If Worksheets(i) Is ActiveSheet Then
intNum = i
End If
Next i
第二步：讲代码中的Sheet1全部换成Worksheets(intNum)
这样你的计算表格就不会因Sheet1而局限了。