如何将文本型的数字转换为文字，求老师指导

开开惢惢

如何将01、 02、 03、 04、 05、 06、 07、 08、 09、 10、 11、 12........
转换为一、 二、 三、 四、 五、 六、 七、 八、 九、 十、 十一、 十二.......

求老师指点

我是来讨说法的

能百度到东西没必要发帖吧
有等待的时间，自己就百度出来了吧

=TEXT(A1,"[DBnum1]")

开开惢惢

我是来讨说法的 发表于 2018-8-28 12:43
能百度到东西没必要发帖吧
有等待的时间，自己就百度出来了吧

excel公式我知道怎么操作，那用VBA如何实现呢？

wangweihebtu

开开惢惢 发表于 2018-8-28 14:41
excel公式我知道怎么操作，那用VBA如何实现呢？

不用那么复杂

魂断蓝桥

开开惢惢 发表于 2018-8-28 14:41
excel公式我知道怎么操作，那用VBA如何实现呢？

Sub a()
MsgBox Format("十二", "[DBnum1]")
End Sub

开开惢惢

wangweihebtu 发表于 2018-8-28 15:40
不用那么复杂

问题是我用VBA自动导入表后，需要对某列的数据进行内容替换

开开惢惢

魂断蓝桥 发表于 2018-8-28 15:42
Sub a()
MsgBox Format("十二", "[DBnum1]")
End Sub

如何写入到表中？不知道如何写这段语句 o(╯□╰)o

魂断蓝桥

开开惢惢 发表于 2018-8-28 16:06
如何写入到表中？

你上传表了吗？

开开惢惢

魂断蓝桥 发表于 2018-8-28 16:07
你上传表了吗？

n变量时间格式为“20180722”、“20180811”、“20181113”.......
如何能将07转换为七、08转换为八、11转换为十一
Sub 时间()

     dim n
     n = Mid(s, 5, 2)

End Sub

wangweihebtu

开开惢惢 发表于 2018-8-28 16:06
如何写入到表中？不知道如何写这段语句 o(╯□╰)o

1. Private Sub CommandButton1_Click()
   
2. For i = 1 To [a65536].End(xlUp).Row
   
3. If Cells(i, 1).Value <> "" Then
   
4. m = Cells(i, 1)
   
5. Cells(i, 2) = Application.Text(m, "[DBnum1]")
   
6. End If
   
7. Next
   
8. End Sub
   

复制代码