一个excle模板的制作
在当今社会，eｘcle的使用已经是越来越来频繁了,几乎涉及所有的行业,路桥施工也不例外。我在某路桥公司曾经负责过某项目部的测量工作。大家都知道，测量最主要的就是计算了,如坐标、高程、横坡度等。我现在给大家推荐一款我自己编制的关于测量计算的exｃel模板.
首先我会跟大家介绍一下模板的作用,然后再一一讲解此模板的制作过程.
首先给大家看一下此模板的界面如下：
也许大家咋一看，切~ 这算啥，我也会做这张表格，实在是太简单了．不错,如果仅仅是靠手动输入这样子的数字,也许只要懂一点点eｘcｌｅ的人都会制作出这张表格吧。不过,这张表格并不是你表面所看到的仅仅是几个数字而已，其内在的公式才是它的亮点。也许这样讲大家还不是很清楚,我继续给大家截个图,看看它里面的公式是什么。
大家注意到上面的公式了吗,并不是仅仅是输入数字就完事的，它是一个自定义函数zbｘ(）,那么后面的都是一样吗？完全正确,后面的都是自定义函数,它们分别是zby（）、sqx(）、hpｚ()、hpｙ（)。也许大家会问,恩，是不错,但是有什么用呢？那让我先给大家简述一下这个自定义函数的用法。竟然是一个函数,那么它就必须要有一个自变量，这几个函数的自变量又是什么呢?其实这个模板里面所有函数的自变量只有一个，就是桩号。什么意思?就是只要你给出任意一个桩号，都能得到其对应的坐标、中桩高程和横坡度.假设我们
要K３8+０00～K38+200段落内每隔2０M一个断面所有点的坐标、中桩高程、以及左右横坡。我就用这个模板给大家演示一下（此模板暂时数据只针对黄祁高速公路六标项目部）。
先在桩号那一列把K3８+000～K38+200输入进去,可不要真的把字母“K”和加号 “+”给输进去,只用输入纯数字就行了，否则计算会出错,之所以在模板里显示的是那样子,只不过是自定义的单元格式而已。
第二步剩下的仅仅就是拖动公式了，后面的都是公式,所以可以一起拖下来，先选定后面的所有单元格,然后向下直接拖动至最后,那么你需要的数据就全部出来了。
呵呵，是不是很神奇！并不是只能计算整数桩号数据的,是任意桩号的，也就是说桩号K38+000和K38+11１。2３2计算出来的结果的精度是一样的。这个模板可以让你计算任意你想要的坐标,比如其演化计算出来的桥梁墩柱坐标,涵洞坐标等等。
给大家示范一下计算涵洞的坐标。假设某涵洞桩号是K38+433。24５，左边据中桩距离是23。45M，右边距中桩距离是33.56M,基础宽度是６M,那么我要用这个模板计算出涵洞基础4个拐点的坐标.在这里我用此模板的一个空白的工作表来给大家演示一下。
上面这张表格现在大家都会做了吧，只不过多了一个自定义函数jfw（），它也是以桩号为自变量的一个函数,其得出的值是所在路线的某桩号的方位角。好了,有了中桩坐标和方位角，而且距离我们已经知道了,那么各边桩的坐标就可以计算出来了,x左＝中桩坐标x+距离左X(乘号）cｏs（方位角—pｉ/2）,y左=中桩坐标ｙ+距离左X(乘号)sｉn（方位角—ｐi/2）.至于右边坐标公式仅仅是把那里面角度的减号改成加号而已。那么就可以得出来下面的表格了,离那4个拐点坐标也就越来越近了。
好了,我们计算出了涵洞轴线的两个坐标，宽度我们又是知道的，而且我们方位角也知道，那么左边两个的拐点坐标就是轴线左边的坐标分别利用三角函数就能计算出来了,只是距离变成了宽度的一半,而另外一个拐点的方位角要加上一个ｐi,如下表：
以上就是拐点的４个坐标.至于边桩高程就不做介绍,竟然有了中桩高程,而且有了左边和右边的横坡度,那么自然的边桩高程也是很容易计算出来的了。
讲了这么多其实只是介绍了这个模板是怎么操作和有什么用处，可是有那么多用处又有什么用呢,它只是针对你黄祁六标项目部才能用，我们项目部又不能用.没关系,我马上给大家详细讲解此模板的制作流程。
还回到这个模板里面来，打开这个模板，然后进入vｂ编辑器里面,直接按Alt+F１1可以进入，也可以从以下界面进入：
工具 宏 ｖｂ编辑器（不好意思了,怎么都截不了那个图,还是直接按Alt+F1１来的快)
接下来就进入此界面了，注意旁边的模块,之所以可以能用自定义函数全部是它们的功劳，我一个一个的模块给大家讲解，先讲模块１:
模块1
Ｆunｃtion zbx(zh Ａｓ Double) As Ｄoublｅ
Dim ｘ As Double '交点横坐标
Diｍ y As Dｏuble '交点纵坐标
Dｉｍ ｚhjd Ａｓ Ｄoublｅ ’交点桩号
Dｉｍ jｚｊ As Doublｅ ’转角(右转为正，左转为负)
Ｄim r Ａs Dｏubｌe '圆曲线半径
Dｉm ls Ａs Doｕｂle ’缓和曲线长
Ｄiｍ jzh As Doｕble ’起始直线方位角
Dim pi As Double ’pi=3.１41５9265358979
Dim m Aｓ Douｂｌｅ ’切垂差
Ｄim p As Douｂle ’内移距
Dim ｔ As Dｏuble '切线长
Ｄim lc Ａs Dｏｕble ’外矢距
Dim ｊ０ Ａs Double ’缓圆点切线方位角
Dｉｍ zhzh As Ｄｏublｅ '直缓点桩号
Ｄiｍ zhhｙ Aｓ Dｏuble
Dim zhyh Aｓ Dｏuble
Dｉm zhhz Aｓ Ｄoｕbｌe
Dｉｍ zbzh Aｓ Ｄouｂle ’直缓点坐标
Diｍ zbhy As Ｄoublｅ
Dｉm zbyh As Doｕble
Ｄim ｚbｈｚ As Doｕble
Diｍ li As Ｄouble
Diｍ xe As Ｄｏuble
Ｄｉm ye Ａs Ｄｏuｂle
Dim ｄs Aｓ Doｕbｌe '弦长
Dim ｊi As Ｄouble ’转角
高速走到一半了才免费怎么算Dim ｉ As Ｄoｕble ’转角正负号
If zh ＞= ３52９0 Aｎｄ zh < 3６571。63６ Then '从这里开始
x = ３302618．225
y = 5１5805。７14
ｚｈｊd = 36０87.22４
ｊｚj = —1 ＊ dzh(46。３７35）
r ＝ 10９6．226
ls ＝ 13０
jzh = dzh(299．1３04)
ＥlseIf zh 〈 ３768３.43 Theｎ
x = 33０2２86。5
y = 51４７47．７26
zｈjd = 3７１4２。734
jzｊ ＝ dｚh(34.２6３）
r = 1600
ls = 150
jｚｈ ＝ dｚh（2５２。3５３）
ElseIf zh 〈 3885０.118 Ｔhen
ｘ = 330268０.931
y ＝ 513４６0.2７4
zｈjd = 38458.85１
jzj = —1 ＊ ｄzｈ（2８。2945）
r = 1３00
ls = 150
jzｈ = dzｈ（２８７.0159）
ＥｌseIf zｈ 〈= 4040０ Thｅn
x = 3３０243３.98７
ｙ ＝ ５12242。４3
ｚhjｄ ＝ 3９687。４64
ｊzｊ = dzh(28.４725）
r ＝ 1700
ls = １50
jzｈ = ｄzｈ（258。321５）
Else
zbx = Ｎulｌ
Exit Function
End If ’到这里结束
ｐｉ = 3。１4159265358979
ｉ = Sgn（ｊzj）
j0 = ｌｓ ／ r ／ 2
m = ls / 2 — ls ＾ 3 / r ＾ 2 / 24０
p = ls ^ 2 / r / 24
t = m ＋ （ｒ + ｐ） ＊ Tａn(Abｓ(ｊzj) / 2)
e = (r ＋ p) / Cｏs(Abｓ（jzj)) — r
lｃ = r * (Abs(jzj） — 2 * j０）
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论