[已解决]数字如何转化为字符

songdg

请教如何将4转化为="000004"，999转化为="000999"

最佳答案

月排行榜 / 总排行榜

爱疯

2016-7-4 10:18

Sub Click()
    Dim i
    For i = 1 To 2
        Cells(i, 2).Formula = "=""" & Format(Cells(i, 1), "000000") & """"
    Next i
End Sub

999_2.rar (8.37 KB, 下载次数: 6)

2016-7-4 10:17 上传

点击文件名下载附件




这样有什么好处吗，觉得看着麻烦

跳转到最佳答案楼层

baksy

=TEXT(A1,"000000")

爱疯

是问VBA代码？

yorkchenshunan

选中4所在的单元格，按ctrl+1调出“设置单元格格式”对话框，选择“数字”、“自定义”，在类型下面的输入栏输入000000，确定

或者用公式法：

=TEXT(A1,"000000")

songdg

爱疯 发表于 2016-7-4 09:19
是问VBA代码？

是用代码怎么写。

爱疯

Sub Click()
    Dim x
    x = 4
    MsgBox Format(x, "000000")
End Sub


根据情况，你自己改

songdg

爱疯 发表于 2016-7-4 09:50
Sub Click()
    Dim x
    x = 4

前面还有一个等号

dsmch

1. Sub Macro1()
   
2. [b:b] = ""
   
3. ar = Range("a1").CurrentRegion
   
4. For i = 1 To UBound(ar)
   
5.     ar(i, 1) = "=" & Chr(34) & Right(String(6, "0") & ar(i, 1), 6) & Chr(34)
   
6. Next
   
7. Range("b1").Resize(UBound(ar)) = ar
   
8. End Sub

复制代码

爱疯

Sub Click()
    Dim i
    For i = 1 To 2
        Cells(i, 2).Formula = "=""" & Format(Cells(i, 1), "000000") & """"
    Next i
End Sub

999_2.rar (8.37 KB, 下载次数: 6)

2016-7-4 10:17 上传

点击文件名下载附件




这样有什么好处吗，觉得看着麻烦

suye1010

Range("A3").Formula = "=""" & Format(Range("A1"), "000000") & """"