这是一个可以计算桩号之差(也就是得到长度)的Excel(或WPS)扩展函数，可以减少工程师在统计工程量时的工作量。

该函数具有一定的通用性。可以在MS Office和金山WPS上使用。

文末会给出使用本函数的简单步骤，关于如何在Excel(或WPS)中自定义函数的较详细介绍请移步这里[1]。

将下面内容复制到模块中去，保存后即可使用自定义的ZH_Len函数计算两个桩号之间的长度。

'函数：ZH_Len

'作用：起终点桩号之差(返回数字)

'作者：@我只是一小小鸟 t5lyg@126.com

'版本： V1.0

'时间：2014.12.09

Function ZH_Len(终点桩号, 起点桩号)

ZH_Len = ToNumber(终点桩号) - ToNumber(起点桩号)

End Function

'去掉字符串中的非数字

'考虑了小数、负数的情况，但是不能处理两个负号的桩号

Function ToNumber(C)

Dim Temp

Temp = ""

For i = To Len(C)

If IsNumeric(Mid(C, i, )) = True Then

Temp = Temp & Mid(C, i, )

ElseIf Mid(C, i, ) = "." Then '考虑小数

Temp = Temp & Mid(C, i, )

ElseIf Mid(C, i, ) = "-" Then '考虑负数

Temp = "-"

End If

Next i

ToNumber = Temp

End Function

说明：-----

1. 事实上，这个函数可以计算任何两个带数字的字符串的数字之差；

2. 可以处理小数、带1个负号这两种特殊桩号，但是不能准确识别带2个负号的桩号。当然，2个负号的桩号很逆天，不大可能出现。

3. 应允许宏运行，并在Excel中允许所有宏运行，并重新打开。

简单步骤(以WPS为例)：

打开WPS，点击开发工具>>VB编辑器→插入一个空模块→将代码粘贴到模块中，保存，关闭VB编辑器→在表格中使用自定义函数

Step 1 打开WPS，点击开发工具>>VB编辑器。

Step 2 插入一个空模块。

Step 3 将函数粘贴到模块中，保存，关闭VB编辑器。

Step 4 在表格中使用自定义函数。

-----

[1]http://blog.sina.com.cn/s/blog_638f98570101fbqn.html

-----

如果您认为本文对您的工作或学习有所帮助，请对作者表示支持(评论、转载或分享)，以使他获得继续写作的动力。如有任何疑问，欢迎联系t5lyg@126.com交流。

-----

版权声明：本文由@我只是一小小鸟创作，采用“知识共享 署名-非商业性使用-禁止演绎 3.0 中国大陆 许可协议”进行许可。除非注明，均为原创文章，转载请注明：转载自这只是一小小鸟窝，并保留本段声明。本文地址：http://blog.sina.com.cn/s/blog_638f98570102vfet.html

Excel VBA 从一个工作簿查找另一个一个工作簿中的一些内容复制到另外一个工作簿

帮朋友来写个Excel VBA 以前写过ASP,所以对vb略微熟悉,但VBA 没有仔细研究过. 以前只研究过 vba 写一个 计算个人所得税的程序. 这次写的功能也算是简单,但也耗费了两天的功夫. 需 ...

C# 获取当前月第一天和最后一天 计算两个日期差多少天

获取当前月的第一天和最后一天 DateTime now = DateTime.Now; DateTime firstDay = ); DateTime lastDay = firstDay.AddMo ...

【转】发布一个基于NGUI编写的UI框架

发布一个基于NGUI编写的UI框架 1.加载,显示,隐藏,关闭页面,根据标示获得相应界面实例 2.提供界面显示隐藏动画接口 3.单独界面层级,Collider,背景管理 4.根据存储的导航信息完成界面 ...

[VBA]用一个简单例子说明如何在Excel中自定义函数

Excel中的函数无疑是强大的,但是再强大的战士也有他脆弱的脚后跟[1].这两天在使用Excel的时候遇到了一个需求,要在某一个单元格里面自动计算今天是星期几(如显示 Today is Tuesday ...

使用gitbook 发布一个教程文档网站

gitbook是一个好用的发布电子书的项目:使用gitbook 可以在本地写好文档再远程推送到库:也可以在gitbook提供的在线平台上制作电子书:要想在自己的服务器上使用gitbook 发布一个网站 ...

给定桩号获取纵断面中的高程值(c# for civil3d)

通过civil3d提供的api,也就是纵断面Profile类提供的方法---public double ElevationAt(double station),就可以很轻松的获取纵断面对象某桩号处的高 ...

教你一步步发布一个开源库到 JCenter

今天想来分享下,如何一步步自己发布一个开源库到 JCenter 这方面的博客网上已经特别多了,所以本篇并不打算仅仅只是记录流程步骤而已,而是尽可能讲清楚,为什么需要有这个步骤,让大伙知其然的同时还知其 ...

发布一个PHP包到Packagist, 然后使用Composer安装

Composer 能够方便的进行项目的依赖管理,  当我们发布一个包并且希望别人通过Composer安装的时候, 就需要将包发布到Composer的包仓库Packagist上面. 下面进行详细的说明一 ...

微信小程序发布一个月，世界并没有什么不同

从某种意义上说,在张小龙身上,最可怕的事情莫过于微信小程序发布一个月,一开始的大红大紫居然渐归沉寂,曾经的风光无限已无人谈起,世界并没有什么不同. 这真像一场噩梦,一切都可怕地颠倒了.一款微信的战略级 ...

随机推荐

【原】nodejs全局安装和本地安装的区别

来微信支付有2年多了,从2年前的互联网模式转变为O2O模式,主要的场景是跟线下的商户去打交道,不像以往的互联网模式,有产品经理提需求,我们帮忙去解决问题. 转型后是这样的,团队成员更多需要去寻找业务的 ...

Java中的垃圾回收

关于垃圾回收,主要是两个步骤: 垃圾对象的判断 垃圾对象的回收 垃圾对象的判断方法 引用计数算法:给对象中添加一个引用计数器,每当有一个地方引用它时,计数器值就加1:当引用失效时,计数器值就减1:任何 ...

SQL Server优化器特性-隐式谓词

我们都知道,一条SQL语句提交给优化器会产生相应的执行计划然后执行输出结果,但他的执行计划是如何产生的呢?这可能是关系型数据库最复杂的部分了.这里我为大家介绍一个有关SQL Server优化器的特性- ...

python 通过urllib模块在svn中下载文件

#_*_coding:utf-8_*_ import urllib def Schedule(a,b,c): ''' a:已经下载的数据块 b:数据块的大小 c:远程文件的大小 ''' per = 1 ...

NoSQL--非关系型的数据库是什么？

NoSQL,指的是非关系型的数据库.NoSQL,意即反SQL运动,是一项全新的数据库革命性运动,早期就有人提出,发展至2009年趋势越发高涨.NoSQL的拥护者们提倡运用非关系型的数据存储,相对于目前 ...

环链表相关的题目和算法[LeetCode]

这篇文章讨论一下与链表的环相关的题目,我目前遇到的一共有3种题目. 1.判断一个链表是否有环(LeetCode相关题目:https://leetcode.com/problems/linked-lis ...

Hibernate入门这一篇就够了

前言 本博文主要讲解介绍Hibernate框架,ORM的概念和Hibernate入门,相信你们看了就会使用Hibernate了! 什么是Hibernate框架? Hibernate是一种ORM框架,全 ...

消息中间件之一：RabbitMQ

RabbitMQ 是一个实现了AMQP(高级消息队列协议)的消息队列,最初起源于金融系统,主要用来实现应用程序间的异步和解耦,可用于在分布式系统中做消息的存储转发 相比于传统的队列服务概念(消息发送者 ...

flask-数据库模型设计2

3.数据库模型设计 3.1构建蓝图项目目录 1.前后台项目目录分析   2.蓝图构建项目目录 蓝图:一个应用中或跨域应用制作组件和支持通用模式. 蓝图的作用:将不同的功能模块化 构建大型应用 优化项目 ...

Linux ulimit和动态修改MySQL最大线程数限制

ulimit是限制进程对资源的使用但软件资源限制变化不大,特别是process/file,分别对应nproc和nofilenproc可用 ulimit -u 查询:nofile可用 ulimit -n ...