文本转换

1吧吧

文本转换数值

比如自定义后显示是 016053 实际是16053
  如何转化成数值016053
求助代码

limonet

format(16053,"000000")

ykcbf1100

2楼是正解。表1[b1]单元格中的值是假文本。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.8
   
2.     st = Format(CStr(Sheet1.[b1]), "000000")
   
3.     Sheets("Sheet2").[b1].NumberFormatLocal = "@"
   
4.     Sheets("Sheet2").[b1] = st
   
5. End Sub
   
6. 
   

复制代码

1吧吧

Sub ykcbf()  '//2024.5.8
    st = Format(CStr(Sheet1.[b1]), "000000")
    Sheets("Sheet2").[b1].NumberFormatLocal = "@"
    Sheets("Sheet2").[b1] = st
End Sub
代码只是对B1吗?
整个表1 单元格是实数的不变，假文本的转换成数值

1吧吧

ykcbf1100 发表于 2024-5-8 09:02
参与一下。。。

Sub ykcbf()  '//2024.5.8
    st = Format(CStr(Sheet1.[b1]), "000000")
    Sheets("Sheet2").[b1].NumberFormatLocal = "@"
    Sheets("Sheet2").[b1] = st
End Sub
代码只是对B1吗?
整个表1 单元格是实数的不变，假文本的转换成数值

1吧吧

是B列   不仅仅是b1   
老师代码要如何改写呢？

1吧吧

ykcbf1100 发表于 2024-5-8 09:02
参与一下。。。

本帖最后由 1吧吧 于 2024-5-9 12:07 编辑


是B列   不仅仅是b1   
老师代码要如何改写呢？

ykcbf1100

1吧吧 发表于 2024-5-9 12:08
本帖最后由 1吧吧 于 2024-5-9 12:07 编辑

重新上附件。

1吧吧

是B列。。。   不仅仅是b1   
老师代码要如何改写呢？