Excel VBA在孔斜计算中的应用.pdf

《Excel VBA在孔斜计算中的应用.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第5期矿山测量NO．52013年lO月MINESURVEYINGOct．2O13doi：10．3969／j．issn．1001—358X．2013．05．19ExcelVBA在孔斜计算中的应用才向军(唐山开滦林西矿业有限公司河北唐山063104)摘要：笔者用ExcelVBA编写了三个函数，解决了60进制的角度与弧度的互换和真方位角计算。并根据孔斜计算的实际需要，用Excel编制了孔斜计算成果表。该方法在实际工作中可行，有一定参考价值。关键词：Excel；VBA；孔斜计算中图分类号：P209文献标识码：B文章编号：100

2、1—358X(2013)05—0058—03由于地质条件、钻探技术和钻进工艺等方面原上式中：因，常会使钻孔发生歪斜(简称孔斜)。孔斜的测量、0、Y0、Zo——孔口坐标；计算是钻孔勘探技术工作中的一个重要环节。准确Ax、Ay、Az——坐标增量；计算孔斜可以得知钻孔内各点的空间位置，及时指、Yi、Zi——孔内任意一点的坐标；’、、——导钻孔施工，为后期矿产资源开发利用提供依据。、天顶角、磁方位角、真方位角、磁传统用手工计算钻孔斜度速度慢、易出错。Excel的偏角；计算功能很强大，目前广泛应用于各计算领域。由L——孔段间距。

3、于Excel不支持60进制角度，所以孑L斜计算中应用1．2定制60进制的角度与弧度互换和方位角计算三角函数时，必须先解决60进制角度与弧度互换问函数题。笔者用ExcelVBA编写了三个函数，解决了60打开Excel，在菜单上依次点击[工具]一>进制的角度与弧度的互换和方位角计算。并根据孔[宏]一>[VisualBasic编辑器]或按Alt+F11即进斜计算的实际需要，用Excel编制了孔斜计算成果入VBAIDE。表1．2．1定制60进制的角度与弧度互换下面定义两个函数，利用它们来解决60进制的1孔斜计算准备角度与弧度互

4、换问题。在菜单上依次点击[插入]一用Excel进行孔斜计算应先研究孔斜计算公式、>[模块]，然后在代码窗口中输入如下代码：解决60进制的角度与弧度互换、方位角计算与判断PublicConstpi=3．14159265359三个问题：Rem定义pi值1．1孔斜计算公式PublicFunctionDEG(ByValXAsDouble)As孔斜计算是依据孑L斜测量数据，计算出待测点Double的三维坐标，即：(，l，，z)。其主要计算公式为：Rem转换60进制的角度为弧度DimDAsDouble=’+or(磁偏东为正，磁偏西

5、为负)D=Abs(X)+0．000O00O0000001Ax：Lsin0：l：cosdd=Int(D)Ay=Lsin0sintpmm=Int((D—dd)$100)Az=Lcos0(垂深向下为负)i：nSS=D—dd—mm／100。：0+∑Ax。DEG=Sgn(X)(dd+mm／60+ss／inY。：Y0+∑Ay0．36、pi／180EndFunctioni：n。=zo+∑AziPublicFunctionRAD(ByValXAsDouble)As58第5期才向军：ExcelVBA在孔斜计算中的应用2013年l0月Do

6、ublecro$oftExce1]，即可返回Excel。可以调用函数检验Rem转换弧度为60进制的角度一下是否正确。如果单元格中出现#NAME?那就要DimDAsDouble设置一下安全设置。依次点[工具]一>[宏]一>D=Abs(X180／pi[安全性]，在安全级选项卡上选择“中”或者“低”，dd=Int(D)然后关闭后重新打开就可以了。mm=Int((D—aa)jIc60)2孔斜计算成果表定制ss=(D—dd)％3600一mm：l：60Rem完成60进制进位问题2．1孔斜计算成果表中各部分定义Ifss+0．01>6

7、0Then孔斜计算成果表由表头和表内数据两个部分组ss=0成，表内数据可分为用户输的数据和通过公式或函mmmm+l数计算所得的数据。EndIfExcel中各列定义如下：4列为测点号，列为计Ifmm=60Then算点深，c列为天顶角，D列为磁方位角，列为计算mm=0间距，F列为真方位角，G列为坐标增量，列为l，dd=dd+l坐标增量、，列为z坐标增量、．，列为坐标，K列为EndIfy坐标、列为z坐标。RAD=Sgn(X)(dd+mm／100+ss／下图1中1～3行为表头，A～D列(表头部分除10000)外)和D4、J4、

8、K4、L4单元格为用户输入的数据，其EndFunction它单元格为运用公式和函数计算所得的数据D41．2．2方位角计算与判断单元格为钻孔所在地磁偏角，J4、K4、／．4单元格为孔真方位角应在0～360。之间，恒为正值，当方位口坐标。角计算值大于360。时，须减去360。，当方位角计算值2．2孔斜计算成果表中公式定制。出现负值时，