エクセルVBAで添付の画像のように、最右欄(Qpecal)の中段から下側の印刷が、ずれてしまいます。
コードは以下の通りようなんですが、どこを直せばいいのでしょうか?
ワークシートで配置で調整すれば、直りますが、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.4
- 回答日時:
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) いつもお世話になります 下記のコード実行すると エラーになります わかるかた教えてくれませんでしょう 6 2022/12/17 15:01
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで画像のような印刷...
-
パワーポイントで7分の発表があ...
-
本の一番最後のページはなんて...
-
アダルト本の処分方法
-
雑誌の表記、種類について アマ...
-
シスコのL2とL3の見分け方...
-
日本語の「~ということではな...
-
人に見られたくない本の処分の...
-
タブレットの解像度での使用感...
-
コンビニのエロ本の 購入 に...
-
折り紙のクジャクの折り方
-
「またとなけめ」の文法的解釈
-
出版社のデスクと編集長はどち...
-
雑誌の発売日が日曜の場合、書...
-
wordでセクションを区切ってい...
-
再来年の次?教えて!
-
創価学会のママ友に灯台という...
-
CPU換装
-
ペーパバックとは何ですか?
-
小説の賞って落選したら権利は...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで画像のような印刷...
-
パワーポイントで7分の発表があ...
-
本の一番最後のページはなんて...
-
アダルト本の処分方法
-
コンビニのエロ本の 購入 に...
-
小説の賞って落選したら権利は...
-
パスポートのbiographical page
-
再来年の次?教えて!
-
参考文献の著者の書き方
-
雑誌読み放題てえらく安いけど...
-
出版社のデスクと編集長はどち...
-
雑誌の表記、種類について アマ...
-
背表紙が糊で製本されている雑...
-
ワープロ検定の文書作成の1級、...
-
シスコのL2とL3の見分け方...
-
神保町の古本屋さんに詳しい方...
-
ジャンプって毎週何曜日に発売...
-
チューボーやクリームと言う雑...
-
1冊400gの雑誌で20kgを超えな...
-
影ができないようにスキャンす...
おすすめ情報