No.1ベストアンサー
- 回答日時:
もう少し名簿がどのシートにどのような状態であるとか、印刷用のシートは別シートであるとか、
マクロの知識はありますとか、詳細な情報を質問に入れた方が、回答を得易いと思いますよ。
で、Sheet1のセルAに以下のように名簿が並んでるとします。
氏名(これはタイトル)
宛先 氏名1
宛先 氏名2
宛先 氏名3
宛先 氏名4
宛先 氏名5
宛先 氏名6
宛先 氏名7
宛先 氏名8
宛先 氏名9
印刷は別のシート、例えばSheet2に印刷するとした場合は以下のマクロで行えます。
なお、Sheet2の印刷範囲は仮にA1:D7の範囲としています。
Sub Pri_Name()
Range("A2").Activate
Do While ActiveCell.Text <> ""
Worksheets(2).Range("A1").Value = ActiveCell.Text
Worksheets(2).Range("A1:D7").PrintOut
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
上記のマクロはAltキーを押しながらF11キーを押して表示されるマクロのエディタでF7キーを
押して出てきたところに貼り付けます。
印刷を実行する場合はAltキーを押しながらF8キーを押して表示されるマクロの実行指示画面で
「Sheet1.Pri_Name」が選択されている事を確認して、同画面にある「実行(R)」ボタンを押します。
早速のご回答、ありがとうございます!
まさに、希望通りにできます!
sheet1の名前を、sheet2の指定セルに入れる方法についてお聞きしたかったんです。
ありがとうございました。
No.3
- 回答日時:
印刷はラベル用紙等にするのですか?
それでしたら、Wordの「ツール」→「差込印刷ヘルパー」でデータファイルにExcelの該当ファイルを指定すれば連続印刷できますが・・・。
No.2
- 回答日時:
どんな用紙に印刷したいのか、名簿がどうなっているのかがさっぱり分かりませんが、勝手に次のような意味ではないかと推測し、とりあえずお答えしておきます。
意味が違っていたら補足説明してください。
仮に名簿のA1~A10に氏名が10人分入っているとします。
印刷する用紙は例えばハガキとし、ハガキ1枚に一人づつの氏名を印刷するとします。
ハガキのどの位置に印刷したいかは分かりませんが、とりあえず印刷可能な最上部の真ん中付近とします。
A1~A10を選択して印刷範囲を設定します。
そして印刷プレビューを開き、氏名一人分しか表示されないようになるまで余白を拡大します。これだけでOKです。「次ページ」をクリックする毎に一人分づつの氏名が現れますので、そのままハガキ10枚をセットして印刷すれば連続印刷が可能でしょう。
何も別シートのA1に1回1回入れる必要もありません。
ただし、ピックアップという言葉を使っておられたのでもしかすると、10人の中から必要分を取りだして……という意味なら、それはその氏名の検索と抽出をどうするかという問題ですから、その場合はVLOOKUPなど必要に応じて数式を使い、ピックアップして新たに名簿化すればいいことで、印刷の問題じゃなくなりますね。
なお、印刷用紙が一人1枚の単票じゃないということなら、質問にある連続云々はあてはまらないので、いずれにしてもその辺を具体的に説明してください。
この回答への補足
sheet1には、名前が縦に並んでいる状態。sheet2は、お知らせ文になっていて、そのお知らせ文の中の1つのセル(例えばA1)に、sheet1の名前を一人一人個別に入れていき、連続印刷していくようにしたいのです。
補足日時:2005/10/04 02:31お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- 財務・会計・経理 青色申告での帳票保存について 2 2023/02/23 10:53
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- フリーソフト 写真の一覧印刷ソフト 2 2023/07/28 16:48
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) Excelへのデータ入力作業 4 2023/07/01 18:21
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- プリンタ・スキャナー 印刷開始までに時間がかかります 5 2022/05/13 13:17
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excelで氏名を入れ替えながら印刷をしたい。
Excel(エクセル)
-
エクセルから帳票形式に差込印刷したいのですが
Access(アクセス)
-
EXCELで一覧表のデータを個別に印刷したい
Excel(エクセル)
-
-
4
EXCELで宛名だけ連続変更するには?
Excel(エクセル)
-
5
エクセルの名簿一覧表からすでにエクセルで作られている一人づつのシートに差込印刷
Excel(エクセル)
-
6
Excelで連続印刷をするマクロ
Excel(エクセル)
-
7
エクセルで。
Excel(エクセル)
-
8
エクセルで140人をマクロをつかって連続印刷?
その他(データベース)
-
9
エクセルの表になってる名簿から個人別のカードを印刷するには
Excel(エクセル)
-
10
エクセルで一行毎、一枚づつ自動でプリントアウトしたいです。
Excel(エクセル)
-
11
(Excel)あるセルに文字を入力しただけで、同じブック内のほかのワークシートにも、同じ文字が自動的に入るようにするには?
Excel(エクセル)
-
12
エクセル連番自動印刷について
Excel(エクセル)
-
13
「amp;」ってどういう意味?
HTML・CSS
-
14
印刷用紙の中央に点線をいれたい●エクセル
Excel(エクセル)
-
15
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
16
セル背景や文字を点滅させる方法
Word(ワード)
-
17
VBAを用いて繰り返し自動的に印刷するにはどうしたら良いのですか
Visual Basic(VBA)
-
18
エクセルで印刷するとき、連番にしたいm(__)m
Excel(エクセル)
-
19
Excelで、年だけの「西暦」から、「西暦(和暦)年」に変換する方法は?
Excel(エクセル)
-
20
EXCELで作成した案内状を名前を入れて連続印刷したいのです。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
国語辞典が第10版が第12版にな...
-
PDFファイルがカラー印刷できない
-
【EXCEL】【VBA】空欄は飛ばし...
-
特定のファイルのみ印刷がされ...
-
PDFファイルを印刷すると黒くなる
-
メールの画像が印刷できません。
-
テプラー:KING JIM SR720 連...
-
PDFの印刷が途中で終わってしま...
-
会社に提出する地図(自宅から...
-
バックグラウンドとは?何度再...
-
エクセルで複数ページを1枚に...
-
OutLookメールの一部分だけを印...
-
Windows Media Player画面の印刷
-
PDF印刷 一枚だけカラーにする方法
-
VLOOKUPとVBAを使っての複数の...
-
横向き印刷を固定したいです。
-
土日祝を省いた印刷
-
Webページの印刷時、必要な部分...
-
エクセルを使って名簿を連続印...
-
印刷する時に出るファイル名を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のファイルのみ印刷がされ...
-
PDFファイルがカラー印刷できない
-
会社に提出する地図(自宅から...
-
パソコンが壊れて肝心なときに...
-
【EXCEL】【VBA】空欄は飛ばし...
-
PDFファイルを印刷すると黒くなる
-
テプラー:KING JIM SR720 連...
-
メールの画像が印刷できません。
-
エクセルを使って名簿を連続印...
-
手紙で字が汚い時の添え書きは?
-
Twitterの投稿を印刷コピーしたい
-
PDF印刷 一枚だけカラーにする方法
-
PDFの印刷が途中で終わってしま...
-
バックグラウンドとは?何度再...
-
印刷の行間が飛んで印刷される
-
PVC(ポリ塩化ビニール)の有害...
-
Wordで複数枚印刷しようと...
-
エクセルで複数ページを1枚に...
-
Windows 10 印刷出来ない
-
エクセルでコメント印刷すると...
おすすめ情報