エクセルVBAで画像のような印刷になって、ずれてしまいます。どこを直せばいいか教えてください。

エクセルVBAで添付の画像のように、最右欄（Ｑpecal）の中段から下側の印刷が、ずれてしまいます。
コードは以下の通りようなんですが、どこを直せばいいのでしょうか?
ワークシートで配置で調整すれば、直りますが、VBAだけで処理したいです。
詳しい方、教えてください。

For jj = 1 To Max_count
H = h1 + (jj - 1) * Hp
Call manning_v(H, X, Y, a, q, bb, sb, eb)

d = a / bb
u = 1 / nn * d ^ (2 / 3) * Sin(I) ^ (1 / 2)
q = u * a
'出力
Range("水深").Offset(jj + 1, 0) = H
Range("水深").Offset(jj + 1, 0).NumberFormatLocal = "#,##0.000_ "
Range("流れの幅").Offset(jj + 1, 0) = bb
Range("流れの幅").Offset(jj + 1, 0).NumberFormatLocal = "#,##0.000_ "
Range("河道断面積").Offset(jj + 1, 0) = a
Range("河道断面積").Offset(jj + 1, 0).NumberFormatLocal = "#,##0.000_ "
Range("土石流の水深").Offset(jj + 1, 0) = d
Range("土石流の水深").Offset(jj + 1, 0).NumberFormatLocal = "#,##0.000_ "
Range("土石流の流速").Offset(jj + 1, 0) = u
Range("土石流の流速").Offset(jj + 1, 0).NumberFormatLocal = "#,##0.000_ "
Range("土石流流量").Offset(jj + 1, 0) = q
Range("土石流流量").Offset(jj + 1, 0).NumberFormatLocal = "　#,###,##0.000_ "

Next jj

No.1 回答者： cdrom1 回答日時： 2020/01/04 13:34

Range("土石流流量").Offset(jj + 1, 0).HorizontalAlignment = xlHAlignRi

ght

No.2 回答者： 今チャンス 回答日時： 2020/01/04 13:43

書式が中央になってる所を

右寄せにしたら良いですよ

No.3 ベストアンサー 回答者： t_fumiaki 回答日時： 2020/01/04 13:46

元々の横配置が中央になってるので、標準にセットすれば良いのでは？

Range("土石流流量").Offset(jj + 1, 0).HorizontalAlignment =xlGeneral
を追加する。

この回答へのお礼

早速の回答ありがとうごさいます。助かりました。

お礼日時：2020/01/04 14:39

No.4 回答者： cdrom1 回答日時： 2020/01/04 13:48

Range("土石流流量").Offset(jj + 1, 0).NumberFormatLocal = "　#,###,##0.000_ "

の"　#,###,##0.000_ "の先頭に全角空白が入っているようなのでそれを消せばいいのではないかと思います


Range("水深").NumberFormatLocal = "#,##0.000_ "
Range("流れの幅").NumberFormatLocal = "#,##0.000_ "
Range("河道断面積").NumberFormatLocal = "#,##0.000_ "
Range("土石流の水深").NumberFormatLocal = "#,##0.000_ "
Range("土石流の流速").NumberFormatLocal = "#,##0.000_ "
Range("土石流流量").NumberFormatLocal = "#,###,##0.000_ "

For jj = 1 To Max_count
H = h1 + (jj - 1) * Hp
Call manning_v(H, X, Y, a, q, bb, sb, eb)

d = a / bb
u = 1 / nn * d ^ (2 / 3) * Sin(I) ^ (1 / 2)
q = u * a
'出力
Range("水深").Offset(jj + 1, 0) = H
Range("流れの幅").Offset(jj + 1, 0) = bb
Range("河道断面積").Offset(jj + 1, 0) = a
Range("土石流の水深").Offset(jj + 1, 0) = d
Range("土石流の流速").Offset(jj + 1, 0) = u
Range("土石流流量").Offset(jj + 1, 0) = q
Next jj