Excel VBA 質問スレ Part71

[586 デフォルトの名無しさん (ﾜｯﾁｮｲ 3f01-EKdG) 2021/06/28(月) 05:55:00.62 ID:Zc0gwfde0]

数値であることを生かすなら


Sub teeeee()
Dim source As Double
Dim result As String

source = 12345

result = Replace(CStr(source / 1000), "0.", ".")

MsgBox result
End Sub