文字数の違うデータが100行もあった場合、
書式→行→自動調整で、
画面上は100行それぞれの行に合ったセルの高さになりますよね。
この自動調整後に、「プラス10pt」とすることは可能ですか?
印刷時に途切れていない状態で表示したいのですが、
自動調整を利用すると、画面上は収まっていても
印刷したら途切れていることがあります。
要は、セル内の文字数が変わる100行のデータを、
その行の文字数に合わせて一括で調整し、印刷したいのですが、
何か良い方法がございましたら、教えてください。
No.1ベストアンサー
- 回答日時:
>何か良い方法がございましたら、教えてください。
これは手作業がNGなのであれば、マクロしか手はないと思います
以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。
マクロの実行はワークシート画面に戻って適当なセル範囲を選択した後ALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。(選択されている範囲に対してのみ実行します)
Sub Macro1()
Dim idx As Integer
Selection.EntireRow.AutoFit
For idx = Selection.Row To Selection.Row + Selection.Rows.Count - 1
Rows(idx).RowHeight = Rows(idx).RowHeight + 10
Next
End Sub
もし行の高さを変更する処理があくまで印刷用で、元のシートには手をつけたくないならマクロは以下になります(元のシートをコピーしてから処理してます)
Sub Macro2()
Dim idx As Integer
Dim adr As String
adr = Selection.Address
ActiveSheet.Copy after:=ActiveSheet
Range(adr).EntireRow.AutoFit
For idx = Range(adr).Row To Range(adr).Row + Range(adr).Rows.Count - 1
Rows(idx).RowHeight = Rows(idx).RowHeight + 10
Next
End Sub
この回答への補足
マクロの実行で試してみましたら出来ました。
本当にありがとうございます。
10行~100行(その日によって行数は変動)のデータを
取り込む際にすでにマクロを利用しております。
選択範囲を指定して「マクロの実行」ではなく、
変動するその日の行数すべてを一発で
「取り込みと同時に行幅も調節」することは出来ますでしょうか?
Editorに元々書いてあった「取り込みマクロ」の一番下に
Sub Macro1()
Dim idx As Integer
Selection.EntireRow.AutoFit
For idx = Selection.Row To Selection.Row + Selection.Rows.Count - 1
Rows(idx).RowHeight = Rows(idx).RowHeight + 10
Next
End Sub
を挿入させて頂いたのですが、
範囲を選択していないからなのか、
教えていただいた「行幅」だけ動作しませんでした。
行数もその日によって変わってしまうので、選択範囲に悩みました。
No.4
- 回答日時:
#01です
>10行~100行(その日によって行数は変動)
であれば「Selection」の部分を「取り込んだデータ範囲」に書き換えれば良いのですが、「どうすれば良いか」を再回答する材料は補足に何も書かれていませんね。それを想像して回答しなければなりませんか?
例えばA列で最終データを判断すればよいなら
Range(Range("A1"), Range("A65536").End(xlUp)).Select
Selection.EntireRow.AutoFit
でもよいでしょう。後はご自身で実際のシートにあわせて色々試してみてください。(再々回答は遠慮します)
No.3
- 回答日時:
たぶんセルのフォントが問題なのでしょう。
プリンターに用意されているトゥルーフォントとの相性で
一部のフォントは表示時と印刷時で文字幅が変わります。
そのために表示で行の高さで丁度いいケースでも、
印刷時には列幅が変わって結果的に、行方向で改行を起こして
印刷文字切れになるのです。
単行の場合は、文字幅一杯で横方向に文字切れます。
試しにフォントを変えて印刷してみてください。
種類によっては+10Pしないで済むフォントもあると思います。
No.2
- 回答日時:
100行でも60000行でも全ての行の高さをすぐ簡単に高さを変えることは簡単です又列の幅も簡単にすべての行かえることも出来ます。
しかし文の内容から見ると列幅のことですね。
印刷範囲も余白の修正、改ページビューで調整すると1ページにA3をB5に印刷することも出来ます
もう一度質問修正ください
私には質問が理解できませんでした。すみません
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/12/26 12:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/01/06 08:39
- Excel(エクセル) Excel VBAで、行の高さを、上下1文字分程度高くしたい 3 2023/04/23 00:17
- Word(ワード) ワード(2013)行間設定について 3 2023/08/08 09:27
- フリーソフト 倍率自動調整して全画面表示できるフリーの画像ビューアー 1 2023/08/24 10:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/12/26 14:27
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- 日用品・生活雑貨 テプラで定長印刷って無くなったのでしょうか? 2 2023/02/16 16:55
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel2007で、太字にした行のみ...
-
Excelで連続印刷をするマクロ
-
条件に応じて特定の行を非表示...
-
「マクロ」の足し算の式を教え...
-
Excel(VBA)データ入力に応じて...
-
エクセルで全ての数字間にカン...
-
区切り文字以降を16進数を10進...
-
Excelでセル内の数式は残し値だ...
-
エクセル マクロ オートシェ...
-
エクセル 列データは買えずに...
-
Excel にて非表示行を探すワー...
-
エクセル VBA 小数点を含む数字...
-
エクセルで連番をマクロで
-
エクセル2003でマクロをおこな...
-
エクセルで一行おきに空白行を...
-
任意の1行を選択していないと...
-
エクセルで色のついたセルを数...
-
yyyy/mm/ddの日付に一括変換す...
-
オートフィルマクロで作り、パ...
-
エクセルで指定セル範囲内の画...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelでセル内の数式は残し値だ...
-
Excel2007で、太字にした行のみ...
-
Excelで連続印刷をするマクロ
-
「マクロ」の足し算の式を教え...
-
エクセル VBA 小数点を含む数字...
-
エクセルで全ての数字間にカン...
-
Excel(VBA)データ入力に応じて...
-
Excel にて非表示行を探すワー...
-
値貼り付けをしても書式も貼り...
-
エクセルで、行ごとの並び替え...
-
Excel2007 セルを右方向に削除...
-
wordのvbaでハイパーリンク設定...
-
VBA コピーを有効行までループ...
-
並べ替えのマクロで対象行の範...
-
Excelで周期的に列を削除する方法
-
100行のセルの高さを一括で調整...
-
yyyy/mm/ddの日付に一括変換す...
-
エクセルで連番をマクロで
-
エクセル2003でマクロをおこな...
おすすめ情報