如何解决UserForm中Excel文本格式的解决方法
我正在使用用户窗体并计划在我的用户窗体中执行计算。 为了以“正确的方式将数字显示为文本”,我使用了文本格式功能。
我使用以下语法:FORMAT(xxxx,"#'###")
。
一切都好,但是,当 xxxx
不幸的是,当发生这种情况时,我无法使用字符串 'xxx 进行后续计算。因此 CDbl('xxx)
不起作用。
有什么建议可以规避这个问题吗?
解决方法
仅用于显示目的:
Sub ForDisplayPurposes()
Dim xxxx As Long,s As String
xxxx = 123456
s = Replace(Format(xxxx,"#,###"),Find:=",",Replace:="'")
MsgBox s
End Sub
要转换回数字:
num = CDbl(Replace(s,"'",""))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。