Excel VBA質問箱 IV

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

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


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

5310 / 76732

←次へ　｜　前へ→


	【77035】Re:０の表示←訂正

マナ - 15/5/9(土) 14:32 -


	引用なし

	パスワード

こんな感じで考えていました。
深く考えていませんので、問題ないか試してみてください。

Function ROUND2J(aa, nn) '数値を任意の有効桁数に四捨五入する
　　Dim k As Long

　　k = -Int(Application.Log(Abs(aa))) - 1 + nn

　　ROUND2J = ROUNDJ(aa, k)
　　If k > 0 Then
　　　　ROUND2J = Format(ROUND2J, "0." & String(k, "0"))
　　End If
End Function

255 hits

▼

【77031】０の表示 BSESU 15/5/9(土) 12:03