EXCEL中如何快速输入桩号,和桩号相加减的问题。
发布网友
发布时间：2022-04-29 07:50
共4个回答
热心网友
时间：2022-06-19 20:06
你好：你这个或以把数字设成10位，不足的位上补0。构成"K两位码+三位码“格式。
如：K12+334～K13+244，可以写成1233413244；K02+345～K03+432 可以写成0234503432
单元格格式设成自定义：!K00+000"～"!k00+000
右边的890怎么得到的，得有相关的逻辑公式，你可提供一下。
更多WPS办公软件教程，请访问：http://bbs.wps.cn或者http://e.weibo.com/wpswfw
追问千米桩号后面不能有0 K2不能写成K02 这个怎么实现？追答
你好：找到好办法了。就是条件格式：
完全适合你的要求，还不用辅助列！
更多WPS办公软件教程，请访问：http://bbs.wps.cn或者http://e.weibo.com/wpswfw
热心网友
时间：2022-06-19 20:06
用vba的话，楼主只要在A列中输入桩号即可，格式和B列中的距离都将自动给出。
我先将这个方法说一下，不过在此之前，楼主得先将A列的格式设为常规或文本。
（1）在打开excel的情况下，同时按下Alt和F11，这样将打开visual basic编辑器
（2）双击visual basic编辑器左上角的sheet1（这里是假设你的表格在sheet1中，如果在其他的sheet中，双击相应的sheet即可）
（3）粘贴以下代码，然后关闭visual basic编辑器即可。
代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Mid(Target, 1, 1) <> "K" Then
s = Target.Value
s1 = Mid(s, 1, Len(s) / 2)
s11 = Mid(s1, 1, Len(s1) - 3)
s12 = Mid(s1, Len(s1) - 2, 3)
s2 = Mid(s, Len(s) / 2 + 1, Len(s) / 2)
s21 = Mid(s2, 1, Len(s2) - 3)
s22 = Mid(s2, Len(s2) - 2, 3)
ss = "K" & s11 & "+" & s12 & "～" & "K" & s21 & "+" & s22
Target = ss
Target.Offset(0, 1) = s2 - s1
End If
End If
End Sub
希望对你有帮助！
热心网友
时间：2022-06-19 20:06
="K"&LEFT(A1,INT((LEN(A1)-6)/2))&"+"&MID(A1,INT((LEN(A1)-6)/2)+1,3)&"～K"&MID(A1,INT((LEN(A1)-6)/2)+4,ROUNDUP((LEN(A1)-6)/2,0))&"+"&RIGHT(A1,3)
C1桩距：
=--RIGHT(A1,ROUND(LEN(A1)/2,0))---LEFT(A1,INT(LEN(A1)/2))
热心网友
时间：2022-06-19 20:07
B1输入公式=LEFT(A1,5)*1-RIGHT(A1,5)*1下拉公式
如果认为空格显示错误不好看的话，IF进行判断也行。
公式改为=IF(A1="","",LEFT(A1,5)*1-RIGHT(A1,5)*1)下拉公式
