【ﾕｰｻﾞ定義関数】有効数字２桁

◆構文

　有効2桁( number )

◆解説

　引数 number には、有効数字２桁に変換する数字を指定します。

◆ソースコード

Function 有効2桁(myVal)
    Dim tmp
    Dim n As Long
    If IsError(myVal) = True Then
        tmp = 0
    Else
        If myVal = 0 Then
            tmp = 0
        Else
            tmp = Abs(myVal)
            n = Int(Log(tmp) / Log(10))
            
            tmp = Application.Round(myVal, 1 - n)
        End If
    End If
    有効2桁 = tmp
End Function

◆補足
有効数字３桁にしたい場合は、
tmp = Application.Round(myVal, 1 - n)
を
tmp = Application.Round(myVal, 2 - n)
にする

◆登録方法