极度难解决的工程桩号问题！(衷心感谢zldccmx帮助解决）

wsq7668 · 发表于 2008-10-30 18:42

在工作中经常要输入里程桩号，手工解决太慢了，是否有高人用VBA解决此问题呢？
1、能否实现在A2、B2(均为变数）中输入相应数据，在表中桩号拦里自动按C2（为变数）的间隔设置生成桩号文件；
2、生成的桩号文件填满一张表后自动进入下一张表接着上张表桩号继续往后填桩号；
3、所有表生成桩号到按B2给定的终止桩号自动结束填充
4、填满一张表格后自动复制表格继续往后填
附件：

[ 本帖最后由 wsq7668 于 2008-11-3 18:11 编辑 ]

biaotiger1 · 发表于 2008-10-30 19:33

你的文件我下了
不过可能太专业了没看明白
你能不能举一个例子呢

wsq7668 · 发表于 2008-10-30 19:42

感谢楼上朋友关心，我的问题就是在A1中输入桩号也就是表示公里的数字，K0+000就是某路的起点，K0+600就是600米，K1+060就是1.06公里，现在起点和终点都为不定的数字，我想生成按C2里设置的间隔数生成桩号文件（即，在C2中输入20桩号就是每隔20米一个，输入30就是间隔30米一个）比如，C2输入30，生成桩号就是K0+000，K0+030，K0+060。。。。C2输入20生成桩号就是K0+000，K0+020，K0+040。。。。附件里的表格只有一张表格做摸板，如果第一张填满桩号后就复制一张继续往下填，知道填完A2-B2中设置的长度为止。

[ 本帖最后由 wsq7668 于 2008-10-30 19:46 编辑 ]

zldccmx · 发表于 2008-10-30 19:46

晕哦 K0+000 至 K1+600 是不是相隔1600m?如果间距是20的话，是不是801个桩号？

wsq7668 · 发表于 2008-10-30 19:49

楼上的朋友，在我们工程上有几十公里的桩号都有，所以手工输入复杂容易错，1.6KM算很少了，里面的K1+600只是个变数

wsq7668 · 发表于 2008-10-30 20:17

我也想知道！期待高人出手解决！

northwolves · 发表于 2008-10-30 20:40

Sub macro1()
On Error Resume Next
Dim a As Long, b As Long, i As Long, n As Long, arr()
a = Val(Replace(Replace([a2], "K", ""), "+", ""))
b = Val(Replace(Replace([B2], "K", ""), "+", ""))
n = (b - a + 20) \ 400
Application.ScreenUpdating = False
For i = 0 To n
[D1:H31].Copy Cells(31 * i + 1, 4)
ReDim arr(19, 0)
For J = 0 To 19
If a + i * 400 + J * 20 <= b Then arr(J, 0) = "K" & (a + i * 400 + J * 20) \ 1000 & "+" & Right("000" & (a + i * 400 + J * 20) Mod 1000, 3)
Next
[D8].Offset(31 * i, 0).Resize(20) = arr
Next
Application.ScreenUpdating = True
MsgBox "OK"

End Sub

zldccmx · 发表于 2008-10-30 21:56

桩号问题_by_zldccmx.rar (15.72 KB, 下载次数: 97)
给你做了一个双列的！
见附件！问题倒是挺简单，关键是算法！

zldccmx · 发表于 2008-10-30 22:03

使用单元格格式："K0+000"
假如桩标ZB为"柘",即令ZB="柘",然后
Range(　地址 ).NumberFormatLocal = ZB & "0+000"
之后，只要在以上单元格中输入100，即自动变成柘0+100
输入600000，则自然为柘600+000

zldccmx · 发表于 2008-10-30 22:05

对楼主所从事的工程，老朽略知一二！
输变电公司　外线部　的吧

		自动登录	找回密码
密码			免费注册