AKB48の推しメンをセンターにできちゃうかもしれない!? >>

エクセルで300件ほどの名簿を作りました。

A…ナンバー(1,2,3…)
B…氏名
C…郵便番号
D…住所

こんな感じで下方向に300件ほど入力してあります。

長3封筒横向き、横書きで、エクセルのみを使って1件につき1枚連続印刷したいのですが、マクロを組んだことがなく、どうしたら良いのかわかりません。

-----------------------------------------
 〒○○○-○○○○
   △△市△△町△-△
    □□ □□□ 様

-----------------------------------------

こんな感じに作りたいんです。
ナンバーの印刷は必要ありません。

勉強不足ですみません。
具体的にどうやって作るのか教えていただけませんでしょうか。

ワードで差込印刷を試みたのですが、余白を0にしても1行目から入力しても、印刷プレビューでは枠内に収まっているのに、なぜか上から5センチほどずれて印刷されてしまい、かっこ悪いし全体が表示されないので使えません。

悩んでしまいました。

なお、会社のセキュリティーの関係でフリーソフトや有料ソフトはダウンロードできません。

よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

次のように仮定します。



名簿用シート:シート名=List
   A    B    C    D     E     F
 1  No.  氏名   〒   住所  先頭番号  3
 2  1                  最終番号  7
 3  2
 4  3

封筒印刷用シート:シート名=Print
 1.セルA1の文字色を白にします。
 2.宛先データを表示する各セル(A1以外)にVLOOKUP関数の数式を入力します。
   郵便番号: =VLOOKUP(A1,List!A2:C300,3,0)
   住  所: =VLOOKUP(A1,List!A2:D300,4,0)
   名  前: =VLOOKUP(A1,List!A2:B300,2,0)

マクロ記述
 1.[Alt]を押しながらの[F11]で、Visual Basic Editor を開きます。
 2.開いたウィンドウの[挿入]から、[標準モジュール]を指定します。
 3.標準モジュールに以下を記述して、Visual Basic Editor を閉じます。
  ここでは、テスト用に印刷イメージ表示(最後から6行目)にしています。
  印刷する場合は、.PrintPreview を .PrintOut に書き換えます。
 Sub 印刷開始()
  Dim PrintNB, EndNB, FormStyle
  Application.ScreenUpdating = False
  Worksheets("List").Select
   PrintNB = Range("F1").Value
   EndNB = Range("F2").Value
  Worksheets("Print").Select
   Do Until PrintNB > EndNB
    Range("A1").Value = PrintNB
    ActiveWindow.SelectedSheets.PrintPreview  '印刷イメージ
    PrintNB = PrintNB + 1
   Loop
  Worksheets("List").Select
  Application.ScreenUpdating = True
 End Sub

ボタンにマクロを登録
 名簿用シートを開いてフォームツールバーを表示し、"ボタン"を選択してシート内の
 任意の位置に描画します。
 ここで表示されるマクロの登録画面で、上記マクロを選択して [OK] します。

印刷時は、F1に印刷開始データ番号、F2に最終印刷データ番号(どちらもA列の数字)を
入力してからボタンをクリックします。
 
    • good
    • 6
この回答へのお礼

すごい!! .PrintPreview での確認のみですが、無事できました!!
ありがとうございました。
あーよかったー!本当に助かりました。
マクロってすごく便利ですね。本買って勉強してみます。

あと、質問ですが、上から10行目の『'印刷イメージ』って.PrintOut で印刷を実行するときもこのままでよろしいしょうか?

何のためのものかも教えていただけるとありがたいです。
ネットで検索したのですが、うまく出てきませんでした。

お礼日時:2008/10/26 01:14

#3です。


成功なさったようで、よかったですね。

> 上から10行目の『'印刷イメージ』って.PrintOutで印刷を実行するときもこの
> ままでよろしいしょうか?

そのまま置いておいても影響はありませんが、『'印刷イメージは .PrintPreview』
のようにしておくとよいでしょう。

モジュール内に「'」を書くと、その位置から右は無視されますので、コメント等を
書くときなどに使用できます。
先頭に「'」を置いて、
'印刷処理(以下5行)
のような内容の行を書いておくと、コマンドの流れがわかりやすくなりますね。
    • good
    • 2
この回答へのお礼

ありがとうございます。
お礼が遅くなり申し訳ございませんでした。

なるほどー!わかりました。

職場でプリントアウトも成功しました。
misatoanna様様です。

今までマクロって自分には敷居が高くて挑戦できなかったんですが、
使えたらすごく便利ですよね!

これをきっかけに勉強してみようと思います。

色々ご丁寧に教えていただきありがとうございました。

お礼日時:2008/10/29 16:44

この質問重複送信されたようです。

ダブってませんか?
早急に1本化の処理を。
    • good
    • 2
この回答へのお礼

ご指摘ありがとうございます。

しかし、ダブってはいませんでした。
もしかすると、ワードの差し込み印刷のやり方を聞いた質問のことでしょうか?

この質問はエクセルのみでマクロを使った宛名印刷の方法を質問し、
もう一方の質問では、エクセルの名簿を使って、ワードで差し込み印刷をする方法を質問しております。

結果的にやりたいことは同じ(封筒に宛名印刷すること)ですが、
方法が違うので重複してないのではないかと思っています。

当方初心者のため、質問を統一すると回答がごっちゃになってしまいそうなので、このまま2本仕立てで質問を継続いたします。

どちらも読んでいただけたようで嬉しいです。
今後もよろしくお願いします。

お礼日時:2008/10/25 23:57

ちょっと気になり調べてみました。



エクセルから直接宛名印刷が出来るアドオン(筆まめ)とかあるみたいですが、

>会社のセキュリティーの関係でフリーソフトや有料ソフトはダウンロードできません。

となると、下記リンク掲載のように作るしかなさそうですね。
下記リンクのサンプルファイルを見ましたが、マクロは使わず比較的簡単な関数のみで作られているようです。
入力された住所録データを一度に印刷は関数だけでは厳しそうですが…。まあその場合も簡単なマクロを追加するだけで事済みそうです。

また、私的にはWordよりExcelの方が思い描いた印刷に苦労しています(苦笑)

参考URL:http://www.kcc.zaq.ne.jp/dfbpl606/atena/
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。

便利なサイトを教えていただきありがとうございました。

sayopさんはワードがお得意なんですね。すごくうらやましいです。
1つ1つ勉強して、ワードもエクセルも使いこなせるようになりたいです。

お礼日時:2008/10/26 00:04

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルで作った住所録で封筒の宛名印刷がしたい

エクセルで住所録を作ったのですが、年賀状ソフトなどを使わずに封筒の宛名を印刷できないでしょうか?
その場合、住所録に登録されている方をジャンル別に数種類グループ化してニーズに合う者のみを印刷したいのですが可能ですか?

Aベストアンサー

> 年賀状ソフトなどを使わずに封筒の宛名を印刷できないでしょうか?

Wordの差し込み印刷機能を使用すれば可能です。

下記URLのページの「●[差し込み印刷]ツールバーを使って差し込み印刷する]の項がご参考になると思います。

「差し込み印刷を活用しよう」
http://sharp-pcstudio.com/disp.asp?cno=5&tbno=0&dno=120

> 住所録に登録されている方をジャンル別に数種類グループ化してニーズに合う者のみを印刷したいのですが可能ですか?

予め、住所録で同じグループのメンバーが連続するように並べ替えしておけば、差し込むレコードの範囲を指定できます。

住所録の作成には注意が必要です。下記URLのページをご参照ください。

「Excel住所録 作成の落とし穴--こんな住所録作っちゃイカ~ン」
http://kokoro.kir.jp/know/meibo.html
「4つの落とし穴 正解」
http://kokoro.kir.jp/know/meibo2.html

Q長3の封筒への宛名印刷(郵便番号も)

お世話になります。完全に同じ条件では、ネット上にわかりやすい回答を探せなかったため質問させていただきます。
費用の都合上、宛名シールの印刷ではなく、長3の封筒に縦書きで直に宛名を印刷しようとしているのですが、郵便番号枠が元々書いてある封筒のため、枠内に郵便番号をうまく入れて印刷することができません。
エクセル2007の住所録をワード2007で差し込み印刷しようとしていたのですが…。
フリーソフトではなく、ワードやエクセルのみで可能な方法があれば教えていただけないでしょうか。よろしくお願いいたします。

Aベストアンサー

Wordの差し込み印刷には縦書きの封筒の書式が用意されていませんが、ハガキの宛名印刷の機能を利用し(ハガキと郵便番号の位置が同じ)、以下のような手順で長形3号の封筒に変更すれば、定型の書式で郵便番号付きで簡単に差し込み印刷をすることができます。

まず、「差し込み印刷」「はがき印刷」「宛名面の作成」で必要なフィールドを差し込んでおきます。
次に、画面左の垂直ツールバーをダブルクリックしてページ設定ダイアログを出して、用紙タブで「長形3号」を選択します。

次に、郵便番号の部分をいったんクリックして最後にその周囲をクリックしてCtrlキーを押しながら→キーで郵便番号の部分を水平ルーラーの右余白の境目までドラッグします(郵便番号の位置は封筒サイズに関係なくハガキと同じ位置にありますので必要に応じて微調整してください)。

最後に住所や名前の枠を封筒の大きさとバランスが取れるサイズに適当に拡大し、それたの部分のフォントサイズも適当なサイズに変更してください。

背景のハガキの郵便番号欄などが目障りなら(印刷はされませんが)、ヘッダー部分をダブルクリックしてその画像を削除してください。

Wordの差し込み印刷には縦書きの封筒の書式が用意されていませんが、ハガキの宛名印刷の機能を利用し(ハガキと郵便番号の位置が同じ)、以下のような手順で長形3号の封筒に変更すれば、定型の書式で郵便番号付きで簡単に差し込み印刷をすることができます。

まず、「差し込み印刷」「はがき印刷」「宛名面の作成」で必要なフィールドを差し込んでおきます。
次に、画面左の垂直ツールバーをダブルクリックしてページ設定ダイアログを出して、用紙タブで「長形3号」を選択します。

次に、郵便番号の部分をいっ...続きを読む

Qワードの差込印刷で、郵便番号を封筒の枠内にキレイに印刷する方法は??

こんにちは。お世話になります。
会社規定の封筒には、郵便番号枠がもともと書き込んであります。
ここに、きれいにエクセルのデーターから、差込印刷するには、どうしたら良いのでしょうか??

Aベストアンサー

No2です。
フリーソフトなら、KOKUYOの「合わせ名人2簡易版」
というフリーソフトを使用しては。
http://www.sapulife.com/dnload2/awase.html

過去ログのzenjeeさんが詳しく書いています。参考に。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1677859

Q長3形封筒宛名印刷 横向き横書きについて

長3形の封筒に宛名印刷で横向き横書きをしたいのですが会社のパソコンではフリーソフトが使えませんので良い方法があれば教えてください。
よろしくお願いいたします。

Aベストアンサー

Wordの差し込み印刷の例です。

「ページ設定」:
「用紙のサイズ」 --- 長形3号封筒
「用紙の向き」 --- 横長
「余白」 --- 随意に設定ください。

差出し相手のデータは郵便番号を含めて、すべて「横書きテキストボックス」に、1×1の表を挿入して「差し込みフィールド」を挿入します。

差出し人のデータはすべて「横書きテキストボックス」に入力します。

なお、「テキストボックス」および「表」は、印刷されない「線なし」に設定します。
(添付図は分かりやすいように線を表示しています。)

郵便番号のフォントは英字系のフォントを使うことで右に90度回転させて表示させます。
「OCBR」がよいと思います。

ページ設定は横長ですが、印刷時は封筒の底から印刷が始まるようにセットします。
プリンタードライバーによって用紙を封筒に指定すると合、天地が自動的に180度回転して印刷されますが、自動的に回転されない場合は、プリンターのドライバー側で180度回転を設定する必要があります。

Qexcelからexcelへの差し込み印刷

お世話になります。

excelでwordへの差し込み印刷をよく利用するのですが、
同様に、
excelのデータをexcelに流し込んで印刷する方法はありますでしょうか。

excelの名簿のデータを
excelの表のフォーマットに流し込んで
1人づつ印刷したいのですが。

お分かりの方いらっしゃいました教えてください。
どうぞ宜しくお願い致します。

Aベストアンサー

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

上記の品をお送り申し上げます。
ご査収ください

以上
Xの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,2,FALSE)
Yの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,3,FALSE)
Zの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,4,FALSE)

---
結果

送り状

住所山田 三郎
氏名東京都江東区

品物かばん

上記の品をお送り申し上げます。
ご査収ください

以上
ここで
VBE画面で標準モジュールに
Sub test01()
For i = 1 To 2 '人数分
Range("H1") = i
Range("A1:G20").PrintOut '印刷範囲は各人同じとする
Next i
End Sub
を張り付け、実行する。
山田、植田分の紙が2枚印刷されました。
これは質問者はVBAの経験も無いでしょうと、最低限にしてあります。
VBAを勉強してください。
別ブックにある名簿を対象などは複雑になるので避けています。

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

...続きを読む

Qエクセルの住所録から封筒に印刷

エクセルで作成した住所録があります。
それを利用して横書きの封筒に住所と名前を印刷したいのですがどうすればまとめて簡単にできるでしょうか?

Aベストアンサー

初めての人は不安なものです。しつこいようですが、エクセル2000での操作ステップを記します。
まず住所録をエクセルのSheet1に当たる1シートだけのシートに作ります。
1行目は氏名、郵便番号、住所などの「見だし語句」とした方が良いようです。2行目から、宛名氏名住所行です。
(例)
氏名郵便番号住所
平野 次郎311-2345倉敷市岸町3-4-6
近藤 三郎245-2345姫路市城町4-23-3
山田 太郎531-2345岡山市旭町3-4-5
ファイル名を「住所録2」と仮にします。
●ワードの操作(以下殆んどクリック操作です。カッコしているのは、場面を確認することを意味します)
ツール
差し込み印刷ヘルパー
(メイン文書)
作成
宛名ラベル
作成中のウインドウ
(データファイル)
データファイルの指定
データファイルを開く
*ファイルの種類を*.XLSに指定しておく
エクセルワークシート
住所録2
ワークシート全体
OK
メイン文書
(ラベルオプション)
(ラベル製品記号番号を選ぶ)
OK
差し込みフィールドの挿入
「氏名」クリック、その後、改行
差し込みフィールドの挿入
郵便番号クリク、その後、改行
差し込みフィールドの挿入
住所をクリック
(*ここで改行やスペースやTABで、ラベル1枚の中の項目相対的レイアウトを整える。住所部が2つ3つあるときは
それだけ指定と位置指定操作が増える)
OK
(データの差し込み)
差し込み
(差し込み)
「すべて」となっていることを確認
差し込み
ワード文書画面上に具体的住所等が入ったラベルのイメージが出る
プリンタにラベル用紙をセット
後はワードの通常文書印刷と同じ

初めての人は不安なものです。しつこいようですが、エクセル2000での操作ステップを記します。
まず住所録をエクセルのSheet1に当たる1シートだけのシートに作ります。
1行目は氏名、郵便番号、住所などの「見だし語句」とした方が良いようです。2行目から、宛名氏名住所行です。
(例)
氏名郵便番号住所
平野 次郎311-2345倉敷市岸町3-4-6
近藤 三郎245-2345姫路市城町4-23-3
山田 太郎531-2345岡山市旭町3-4-5
ファイル名を「住所録2」と仮にします。
●ワードの操作(以下...続きを読む

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む

Qエクセルを使って名簿を連続印刷するには

名簿の名前だけを一人一人ピックアップして、A1のセルに入れて、連続して自動印刷はできますか。
使っているソフトは、EXCEL2003です。
宜しくお願いいたします。

Aベストアンサー

もう少し名簿がどのシートにどのような状態であるとか、印刷用のシートは別シートであるとか、
マクロの知識はありますとか、詳細な情報を質問に入れた方が、回答を得易いと思いますよ。

で、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のセルAに以下のように名簿が並んでるとします。

氏名(これはタイトル)
宛先 氏名1
宛先 氏名2
宛先 氏名3
宛先 氏名4
宛先 氏名5
宛先 氏名6
宛先 氏名7
宛先 氏名8
宛先 氏名9

印刷は別のシート、例えばSheet2に印刷するとした場合は以下のマクロで行えます。
なお、Sheet2の印刷範...続きを読む

Q印刷方向を逆向きにしたい

パソコンを使って封筒に印刷したいと考えています。封筒のサイズは「角2」です。印刷機は封筒印刷が出来るようになっていますが、サイズは長形三号など小さい物です。現在は普通の印刷で封筒に印刷していますが、印刷方向の関係で封筒の口を折って印刷しています。ときどき、紙送りが上手く行かないので印刷機の故障が心配です。印刷方向を全くの逆向きにする方法をご存じの方いませんか。

Aベストアンサー

封筒下部に差出人欄を印刷されていると思います。プリンタのプロパティの「ページ設定」タブに「180度回転」があれば、チェックを入れることで天地を逆に印刷することができます。

プリンタに「180度回転」がない場合は、差出人の欄を180度回転させたデータを作成する必要があります。

普通には文字は回転できませんので、以下のように操作します。

1) 差出人欄を選択して「コピー」します。
2) 「編集」→「形式を選択して貼り付け」→「図(拡張メタファイル)」を選んで「OK」を押します。

3) 貼り付けられた「図」を選択して「図形描画」ツールバーの「図形の調整」→「回転/反転」→「90度回転」を2回操作して180度回転させます。
4) 180度回転させた図をページの上部に配置します。

5) コピー元の差出人欄を削除します。
以上で、封筒の下部を下にしてプリンタにセットすれば、安定した印刷が可能になります。

なお、貼り付けられた図を他のサイズの封筒にコピーして、拡大/縮小すれば、他のサイズの封筒にも相似形で印刷が可能です。

封筒下部に差出人欄を印刷されていると思います。プリンタのプロパティの「ページ設定」タブに「180度回転」があれば、チェックを入れることで天地を逆に印刷することができます。

プリンタに「180度回転」がない場合は、差出人の欄を180度回転させたデータを作成する必要があります。

普通には文字は回転できませんので、以下のように操作します。

1) 差出人欄を選択して「コピー」します。
2) 「編集」→「形式を選択して貼り付け」→「図(拡張メタファイル)」を選んで「OK」を押します。

3) 貼り付...続きを読む

Qエクセル2013でラベル印刷の方法が判りません

エクセル2010ではアドインのダイアログ設定から「ラベル印刷ウィザード」を有効にして
ラベル印刷をしていました。

パソコンをWindows7に変えた為、エクセル2013を使うことになりましたが
アドインの設定から「ラベル印刷ウィザード」を見つける事が出来ません。

エクセル2013でラベル印刷をする方法をご存知の方、ご面倒な事と思いますが
どうぞ教えて下さい。

エクセル初心者です。

Aベストアンサー

差し込み印刷を覚えると色々便利ですので頑張って下さい。
多分・・・色々手順が違うと思います。

下記リンク参考にして下さい。

http://www.becoolusers.com/word/mail-merge-wizard-labels.html


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング