[已解决]单元格文本格式转数字格式的问题

syong

请教高手一个问题，我现在做UG标准件库，上传的档案为UG标准件的参数驱动文档，能不能将如图所示的单元格文本格式转数字格式的问题。图片所示单元意思是选取范围从5到100以递增加1的方式，现在能不能用什么函数将我们选取后的值转为数字格式 shcs_auto.rar (8.29 KB, 下载次数: 24)

2011-12-2 17:57 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

happym8888

2012-2-4 01:57

根据楼主6楼补充的图纸，我估猜你的意思是10~100+n里面的n要加到100里去，如果n是10，就是单元格要变成10~110，那么如果用工作表函数，应该是这样：
=LEFT(B26,FIND("~",B26,1))& LEFT(RIGHT(B26,LEN(B26)-FIND("~",B26,1)),FIND("+",RIGHT(B26,LEN(B26)-FIND("~",B26,1)),1)-1)+RIGHT(B26,LEN(B26)-FIND("+",B26,1))
另外，建议楼主改用VBA代码解决，比较方便。方法是在工具栏上添加个图标（这个要你自己在你的电脑上操作），选中拟转换的单元格，单击图标、激活转换VBA代码，代码我帮你编好如下：

1. Sub huansuan()
   
2. Dim x As String, Qw As Integer, Qe As Integer, QianMian As String, QianMian1 As String
   
3. Dim HouMian As String, HouMian1 As Integer
   
4. On Error GoTo 100
   
5. x = Selection.Value
   
6. Qw = InStr(x, "~")
   
7. Qe = InStr(x, "+")
   
8. QianMian = Left(x, InStr(x, "~"))
   
9. HouMian = Right(x, Len(x) - Qw)
   
10. QianMian1 = Left(HouMian, InStr(HouMian, "+") - 1)
    
11. HouMian1 = Right(HouMian, Len(HouMian) - InStr(HouMian, "+"))
    
12. Selection.Value = QianMian & (Val(QianMian1) + Val(HouMian1))
    
13. 100:
    
14. End Sub

复制代码

以上代码是一个一个单元格转换的，如您需要批量转换(选中拟转换区域)，我另外再帮你改代码。附件如下：



shcs_auto.rar (14.25 KB, 下载次数: 7)

2012-2-4 02:01 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

10~100+1 这种格式无法求和

happym8888

啥叫“图片所示单元意思是选取范围从5到100以递增加1”？图中所选单元格明明是10~100递增1啊？
另外，你先把计算结果告诉我们，看看你这个意思到底是个啥！

wuhairong2011

这是不是你要的

syong

happym8888 发表于 2011-12-2 19:01
啥叫“图片所示单元意思是选取范围从5到100以递增加1”？图中所选单元格明明是10~100递增1啊？
另外，你先 ...

不好意思，是10到100

syong

可能是我没有说清楚，这是一个UG标准件的驱动表，我想利用5~100+1（是UG中的一个输入值如图）得出的结果再跟其它的数进入运算，而这个值在UG标准件的格式中必须是文本格的，我希望把它转为数字格式，运算完再转为文本格式

syong

wuhairong2011 发表于 2011-12-2 19:03
这是不是你要的

不是这个意思，谢谢

syong

那么的帅 发表于 2011-12-2 18:07
10~100+1 这种格式无法求和

拉动的时候肯定会产生一个值，有没有什么函数能把这个值求出来

happym8888

syong 发表于 2011-12-5 14:49
可能是我没有说清楚，这是一个UG标准件的驱动表，我想利用5~100+1（是UG中的一个输入值如图）得出的结果再跟 ...

你先说一下5~100+1的数学运算答案是多少，是5~101还是6~101？

happym8888

根据楼主6楼补充的图纸，我估猜你的意思是10~100+n里面的n要加到100里去，如果n是10，就是单元格要变成10~110，那么如果用工作表函数，应该是这样：
=LEFT(B26,FIND("~",B26,1))& LEFT(RIGHT(B26,LEN(B26)-FIND("~",B26,1)),FIND("+",RIGHT(B26,LEN(B26)-FIND("~",B26,1)),1)-1)+RIGHT(B26,LEN(B26)-FIND("+",B26,1))
另外，建议楼主改用VBA代码解决，比较方便。方法是在工具栏上添加个图标（这个要你自己在你的电脑上操作），选中拟转换的单元格，单击图标、激活转换VBA代码，代码我帮你编好如下：

1. Sub huansuan()
   
2. Dim x As String, Qw As Integer, Qe As Integer, QianMian As String, QianMian1 As String
   
3. Dim HouMian As String, HouMian1 As Integer
   
4. On Error GoTo 100
   
5. x = Selection.Value
   
6. Qw = InStr(x, "~")
   
7. Qe = InStr(x, "+")
   
8. QianMian = Left(x, InStr(x, "~"))
   
9. HouMian = Right(x, Len(x) - Qw)
   
10. QianMian1 = Left(HouMian, InStr(HouMian, "+") - 1)
    
11. HouMian1 = Right(HouMian, Len(HouMian) - InStr(HouMian, "+"))
    
12. Selection.Value = QianMian & (Val(QianMian1) + Val(HouMian1))
    
13. 100:
    
14. End Sub

复制代码

以上代码是一个一个单元格转换的，如您需要批量转换(选中拟转换区域)，我另外再帮你改代码。附件如下：



shcs_auto.rar (14.25 KB, 下载次数: 7)

2012-2-4 02:01 上传

点击文件名下载附件