エクセルマクロVBA サンプルコード辞書
トップページ（目次）172.数字小数点以下の表示桁数を増やす
＜実行前後＞
→
Sub 小数点以下の表示桁数を増やす()
Range("A1").NumberFormatLocal = "0.0000"
End Sub
0.0000 の 0 を増減させれば調整可能
→
Sub 小数点以下の表示桁数を増やす()
Range("A1").NumberFormatLocal = "0.0000"
End Sub