vba:format

こちらのサイトが見やすい!

kosapi.com

Public Function ConvertNumberFormat(ByVal num As Long, ByVal formatNo As Long) As String
   
    Select Case formatNo
    
        Case 1
            ConvertNumberFormat = format(num, "General Number")
            ' 10000 --> 10000
            
        Case 2
            ConvertNumberFormat = format(num, "Currency")
            ' 10000 --> \10,000
            
        Case 3
            ConvertNumberFormat = format(num, "Fixed")
            ' 1235.678 -- > 1235.68
            
        Case 4
            ConvertNumberFormat = format(num, "Standard")
            ' 1235.678 --> 1,235.68
            
        Case 5
            ConvertNumberFormat = format(num, "Percent")
            ' 0.123456 --> 12.35%
            
    End Select

End Function