Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

73615 / 76732

←次へ　｜　前へ→


	【7591】Re:バッチリです

どらちゃん - 03/9/9(火) 10:31 -


	引用なし

	パスワード

▼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
>
>試してみて下さい。

0 hits

▼

【7576】セル内の文字の位置 どらちゃん 03/9/8(月) 20:58