format函数指定小数位数，末位为0，不显示

loveisles

想用实现保留三位有效数字，写了以下代码。现在对于需要保留小数位数的数字，如果四舍五入后末位为0，则末位的0不显示，例如输入12.99，则输出的为13，而不是需要的13.0。使用了format指定输出的格式，这个问题依然不能解决。不知道原因是啥，求助！
Function yxsz(sz As Double) As Double
If sz >= 100000 And sz <= 999999 Then
yxsz = Round(sz / 1000, 0) * 1000
ElseIf sz >= 10000 Then
yxsz = Round(sz / 100, 0) * 100
ElseIf sz >= 1000 Then
yxsz = Round(sz / 10, 0) * 10
ElseIf sz >= 100 Then
yxsz = Round(sz / 1, 0) * 1
ElseIf sz >= 10 Then
yxsz = Format(Round(sz, 1), "0.0")
ElseIf sz >= 1 Then
yxsz = Format(Round(sz, 2), "0.00")
ElseIf sz >= 0.1 Then
yxsz = Format(Round(sz, 3), "0.000")
ElseIf sz >= 0.01 Then
yxsz = Format(Round(sz, 4), "0.0000")
ElseIf sz >= 0.001 Then
yxsz = Format(Round(sz, 5), "0.00000")
ElseIf sz >= 0.0001 Then
yxsz = Format(Round(sz, 6), "0.000000")
Else
yxsz = sz
End If
End Function

zxsea_7426

As Double决定了你的输出类型，这个类型肯定是遵守excel定下来的要求，除非输出的不是数字，而是数字型的字符串
x比如去掉As Double

loveisles

非常感谢，去掉定义数据类型后，确实就解决了这个问题。然后又优化了对于类似99.99，取三位有效数字后位100.0的问题。但是总感觉我的这个函数太过冗长，而且处理的数据范围仅仅是0.00001-9999999之间的数字，有没有更简便的写法呢，而且还能处理任意大小的数据。
Function yxsz(sz)
If sz >= 1000000 And sz <= 9999999 Then
yxsz = Round(sz / 10000, 0) * 10000
ElseIf sz >= 100000 And sz <= 999999 Then
yxsz = Round(sz / 1000, 0) * 1000
ElseIf sz >= 10000 Then
yxsz = Round(sz / 100, 0) * 100
ElseIf sz >= 1000 Then
yxsz = Round(sz / 10, 0) * 10
ElseIf sz >= 100 Then
yxsz = Round(sz / 1, 0) * 1
ElseIf sz >= 10 Then
If Round(sz, 1) = 100 Then
yxsz = 100
Else
yxsz = Format(Round(sz, 1), "0.0")
End If
ElseIf sz >= 1 Then
If Round(sz, 2) = 10 Then
yxsz = Format(Round(sz, 2), "0.0")
Else
yxsz = Format(Round(sz, 2), "0.00")
End If
ElseIf sz >= 0.1 Then
If Round(sz, 3) = 1 Then
yxsz = Format(Round(sz, 3), "0.00")
Else
yxsz = Format(Round(sz, 3), "0.000")
End If
ElseIf sz >= 0.01 Then
If Round(sz, 4) = 0.1 Then
yxsz = Format(Round(sz, 4), "0.000")
Else
yxsz = Format(Round(sz, 4), "0.0000")
End If
ElseIf sz >= 0.001 Then
If Round(sz, 5) = 0.01 Then
yxsz = Format(Round(sz, 5), "0.0000")
Else
yxsz = Format(Round(sz, 5), "0.00000")
End If
ElseIf sz >= 0.0001 Then
If Round(sz, 6) = 0.001 Then
yxsz = Format(Round(sz, 6), "0.00000")
Else
yxsz = Format(Round(sz, 6), "0.000000")
End If
ElseIf sz >= 0.00001 Then
If Round(sz, 7) = 0.0001 Then
yxsz = Format(Round(sz, 7), "0.000000")
Else
yxsz = Format(Round(sz, 7), "0.0000000")
End If
Else
yxsz = sz
End If
End Function

zxsea_7426

一、将数字先格式化为字符型
二、确认是否含小数点.
三、分别对小数点前后进行处理，如果小数点前处理超过三位有效数字，小数点后面略去不够再对小数点后面进行处理进行补位

准提部林

Function yxsz_a1(sz)
If sz >= 10 ^ 7 Then yxsz_a1 = sz
For i = 6 To -5 Step -1
    If sz >= 10 ^ i Then
       yxsz_a1 = Application.Round(sz, 2 - i)
       Exit For
    End If
Next i
End Function

准提部林

format//文本格式//
有特殊狀況時...最好上傳完整模擬結果

Function yxsz_a1(sz) As String
Dim TT$
If sz < 0.00001 Then yxsz_a1 = "": Exit Function
If sz > 10 ^ 7 Then yxsz_a1 = sz: Exit Function
For i = 6 To -5 Step -1
    If sz >= 10 ^ i Then
       TT = Application.Round(sz, 2 - i)
       If i < 2 Then TT = Format(TT, Left("0.000000", 3 - i) & "#")
       Exit For
    End If
Next i
yxsz_a1 = Trim(Replace(TT & " ", ". ", ""))
End Function