A列はひらがなのイニシャル(例.あ)
B列は整理番号(例.112)
C列は氏名
が入力されているシートがあります。
入力行は対象者の増減で毎回変わりますが、約150行です。
これは、氏名の五十音早見表です。対象者が何番の整理番号かを調べるのに利用しています。
例えば、鈴木一郎さんは、下の表では23番だと見つけ出せます。
す 11 鈴木アリサ
す 23 鈴木一郎
す 86 砂川太郎
こんな感じで約150人分が上から下へ一列に並んでいるのですが、印刷時にはなるべく一枚に印刷したいので、印刷時の指定で3列になるような指定方法はあるでしょうか?
例
あ 50 朝田真央 た 89 田仲真紀 ま 16 丸井陽一
い 12 池田千鶴 た 57 田宮沙希 み 88 宮田信治
い 44 石田真一 た 13 田村幸一 み 77 宮村ミク
・ ・ ・
・ ・ ・
ちなみに、現在は印刷シートとデータシートを分けて、印刷シートはデータシートからリンクさせるようにして、画面上も3列に並ぶようにして、それを印刷しています。
印刷シートのセルE2に、=Sheet1!A51 として、表示させる方法です。
そうじゃなくて、データシートを印刷するときの指定方法で、3列になる = 1ページにおさまるような印刷指定方法はないものでしょうか?
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
(A)VBA向きの問題ですね。
(B)関数で氏名欄列に注目して1列のものを他シートに3列に変える事はできます。
(A)
VBEの標準モジュールに、下記を貼り付け、実行。
Sub test01()
For j = 1 To 3
For i = 0 To 15
Worksheets("Sheet1").Cells(Int(i / 3) + 1, (i Mod 3) * 3 + 4 + j) = Worksheets("Sheet1").Cells(i + 1, j)
Next i
Next j
Range("E1:M6").PrintOut
End Sub
例データ A1:C15で
a1あ
b2い
c3う
d4え
e5お
f6か
g7き
h8く
i9け
j10こ
k11さ
l12し
m13す
n14せ
o15そ
の場合、実行後E1:M5に
a1あb2いc3う
d4えe5おf6か
g7きh8くi9け
j10こk11さl12し
m13すn14せo15そ
実用には
(1)データ最下行数を捉えるコード
(2)2列に折りたたんだ後の、印刷領域の最後行を捉えるコード
が必要ですが、Range(・・).End(xlUP).RowでWEB照会デモしてみてください。
(2)Sheet2のA1に
=INDEX(Sheet1!$A$1:$C$15,((ROW()-1)*3)+((COLUMN()-1)/3)+1,MOD(COLUMN()-1,3)+1)
と入れて、I1まで式を横方向に複写。
次にA1:I1を下方向に式を5行複写。
結果Sheet2にA1:I5に
a1あb2いc3う
d4えe5おf6か
g7きh8くi9け
j10こk11さl12し
m13すn14せo15そ
No.1
- 回答日時:
印刷補助用のツールを使用すると、何も考えなくて良いです。
FinePrint5
http://www.nsd.co.jp/share/fineprint/
Excelから1列で印刷するよう、FinePrint宛てに印刷。
FinePrintでNアップ指定してプリンタ宛てに印刷実施。
--
> データシートを印刷するときの指定方法で、
ってのは厳しいかと。
質問者さんのように参照形式で印刷用のシートを作るのが無難。
>参照形式で印刷用のシートを作るのが無難。
ですか、ないものねだりだったようですね。
紹介の製品も参考にさせていただきます
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- Excel(エクセル) エクセルシートのPDFでの保存 2 2022/09/06 13:05
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの問題です。絶対値の...
-
西暦和暦
-
エクセルで上位バイトのセルと...
-
非表示列の再表示に失敗
-
エクセルの関数の勉強の仕方
-
エクセルはエクセレントに難しい
-
xlsxファイルを保存する際にPDF...
-
エクセルの入力データと図形の...
-
Excelに詳しい方お願いいたしま...
-
ピボットテーブルという機能に...
-
半角カタカナをヘボン式ローマ...
-
Excel PowerQueryで日付の列が...
-
pdfの表をexcelにはりつけて計...
-
エクセル おすすめフォント
-
UNIQUE関数が使えないバージョ...
-
棒グラフの縦軸目盛線の間隔変更
-
(マクロ)vlookupの元データを同...
-
エクセルで特定のセルに入力が...
-
CSVファイルについて質問です。
-
Excelの数式について教えてくだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報