
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
電子書籍プレゼントキャンペーン!
最大2万円超分当たる!マンガや小説が読める電子書籍サービス『Renta!』で利用できるギフトコードプレゼント実施中!
-
Excelで氏名を入れ替えながら印刷をしたい。
Excel(エクセル)
-
エクセルから帳票形式に差込印刷したいのですが
Access(アクセス)
-
EXCELで宛名だけ連続変更するには?
Excel(エクセル)
-
4
EXCELで一覧表のデータを個別に印刷したい
Excel(エクセル)
-
5
Excelで連続印刷をするマクロ
Excel(エクセル)
-
6
エクセルの名簿一覧表からすでにエクセルで作られている一人づつのシートに差込印刷
Excel(エクセル)
-
7
エクセルで。
Excel(エクセル)
-
8
タイムカードの氏名所属などプリンターで印刷したいのですがエクセルなど使って出来ますか
プリンタ・スキャナー
-
9
エクセルでマクロを使った連続印刷
Access(アクセス)
-
10
封筒に連続で印刷は、可能でしょうか?
その他(パソコン・スマホ・電化製品)
-
11
エクセルで140人をマクロをつかって連続印刷?
その他(データベース)
-
12
VBAを用いて繰り返し自動的に印刷するにはどうしたら良いのですか
Visual Basic(VBA)
-
13
エクセルで印刷するとき、連番にしたいm(__)m
Excel(エクセル)
-
14
エクセルの表になってる名簿から個人別のカードを印刷するには
Excel(エクセル)
-
15
【相談】Excel(Access) 関数のみで連続印刷を実現できるのでしょうか?
その他(Microsoft Office)
-
16
差し込み印刷で特定のデータだけを印刷したい
Excel(エクセル)
-
17
エクセル 規定のフォーマットに別シートのデータを繰り返し印刷
Excel(エクセル)
-
18
あるセルに特定の文字列を打つと、他のセルに決められた文字が自動入力するように
Excel(エクセル)
-
19
エクセルのドロップダウンリストについて
Windows Vista・XP
-
20
エクセルからエクセルへの差込印刷の方法を教えて下さい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
テプラー:KING JIM SR720 連...
-
5
PDFファイルを印刷すると黒くなる
-
6
PDFの印刷が途中で終わってしま...
-
7
エクセルで複数ページを1枚に...
-
8
PVC(ポリ塩化ビニール)の有害...
-
9
OutLookメールの一部分だけを印...
-
10
Wordで複数枚印刷しようと...
-
11
横向き印刷を固定したいです。
-
12
バックグラウンドとは?何度再...
-
13
手紙で字が汚い時の添え書きは?
-
14
一部ごとの連番印刷の方法を教...
-
15
ExcelでのVBA チェックボック...
-
16
ACCESS レポートの印刷枚数指...
-
17
メールの画像が印刷できません。
-
18
jpegや、gifをきれいに印刷する...
-
19
会社に提出する地図(自宅から...
-
20
エクセルでコメント印刷すると...
おすすめ情報
公式facebook
公式twitter