|
▼ichinose さん:
できました!
本当にありがとうございました。
今後もなにかありましたらよろしくお願いしますm(_ _)m
>'================================
>Sub main()
> Dim 桁数 As Long
> Dim 書式 As String
> 桁数 = get_小数点以下の桁数(Range("G7:G36"))
> 書式 = "#,##0"
> If 桁数 > 0 Then
> 書式 = 書式 & "." & String(桁数, "0")
> End If
> Range("G7:G36").NumberFormat = 書式
>End Sub
>'==========================================================
>Function get_小数点以下の桁数(rng As Range) As Long
>'get_小数点以下の桁数 は、正の値のとき、意味を持つ
> With rng
> get_小数点以下の桁数 = Application.Evaluate("=MAX(LEN(TEXT((ABS(" _
> & .Address & "-TRUNC(" & .Address & "))),""@"")))") - 2
> End With
>End Function
>
>試してみて下さい。
|
|