[原创]：[原创]：利用公式达到桩号自动书写，提高录入速度

dguohong · 发表于 2005-8-17 16:53:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

附件中是利用公式（2种思路），达到将数字转化为桩号的方法，供用的着的同行参考。

aichong · 发表于 2005-8-17 17:34:57

用round函数处理一下即可。

蔡钰林 · 发表于 2005-8-17 20:43:59

用ROUND函数好象不能解决这个问题。

aichong · 发表于 2005-8-17 23:04:53

经我研究，改为：B2=IF(ISBLANK(A2),"",CONCATENATE("K",TEXT(TRUNC(A2/1000),"G/通用格式"),"+",IF((A2-TRUNC(A2/1000)*1000)<10,CONCATENATE("00",TEXT(A2-TRUNC(A2/1000)*1000,"G/通用格式")),IF((A2-TRUNC(A2/1000)*1000)<100,CONCATENATE("0",TEXT(A2-TRUNC(A2/1000)*1000,"G/通用格式")),TEXT(A2-TRUNC(A2/1000)*1000,"G/通用格式")))))，往下复制。

蔡钰林 · 发表于 2005-8-18 00:11:06

最初由 aichong 发布
[B]经我研究，改为：B2=IF(ISBLANK(A2),"",CONCATENATE("K",TEXT(TRUNC(A2/1000),"G/通用格式"),"+",IF((A2-TRUNC(A2/1000)*1000)<10,CONCATENATE("00",TEXT(A2-TRUNC(A2/1000)*1000,"G/通用格式")),IF((A2-TRUNC(A2/10... [/B]

这个方法不错，学习中...

ken2000 · 发表于 2005-8-18 02:18:30

我的办法是这样的。

蔡钰林 · 发表于 2005-8-18 08:28:02

我是这样做的：
=IF(A2=FALSE,"","K"&INT(A2/1000)&"+"&(IF((A2-INT(A2/1000)*1000)=0,"00"&(A2-INT(A2/1000)*1000),(IF((A2-INT(A2/1000)*1000)<10,"00"&(IF((A2-INT(A2))=0,A2-INT(A2/1000)*1000,FIXED((A2-INT(A2/1000)*1000),3,TRUE))),(IF((A2-INT(A2/1000)*1000)<100,"0"&(IF((A2-INT(A2))=0,A2-INT(A2/1000)*1000,FIXED((A2-INT(A2/1000)*1000),3,TRUE))),(IF((A2-INT(A2))=0,A2-INT(A2/1000)*1000,FIXED((A2-INT(A2/1000)*1000),3,TRUE))))))))))

不过还是6楼的简单方便实用。

scmsp · 发表于 2005-8-18 08:47:57

6楼ken2000 的办法不错，我平时也是这样处理的。看来ken2000 是搞道路的了，我是搞铁路线路的，对你的贴图感兴趣，是填挖表吗？

userty72 · 发表于 2005-8-18 11:50:02

6楼，把你的表格传上来共享以下好吗？

lcx12345 · 发表于 2005-8-18 12:30:47

6楼的方法简单易行，好！

ken2000 · 发表于 2005-8-18 21:12:03

来了,是竖曲线标高计算的

zbweixkj · 发表于 2005-8-18 22:57:51

平常也想到这个桩号输入挺麻烦，但就是没想过用这么小巧的程序来解决它，看来心动不如行动，感谢各位。

scmsp · 发表于 2005-8-19 20:24:47

ken2000 ，我已下载“设计竖曲线”。非常感谢！

lygd · 发表于 2005-8-24 15:38:48

六楼的,强!看了很有心得哦.

wangdwd · 发表于 2005-8-27 22:55:11

世上无难事,只怕有心人!

账号		自动登录	找回密码
密码			立即注册

[原创]：[原创]：利用公式达到桩号自动书写，提高录入速度

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子