データはエクセルの複数シートにあります。
A2列に氏名、D4列に出欠、他の列には日付、課題などが入力されています。
欠席者のみに、氏名入りで、欠席した回の課題をお知せする文書を作りたいです。
シートがひとつなら、ワードの差込印刷を使ったことがあります。でも、複数シートからデータをとりたい時は、ワードの差込印刷はできますか?
ワードの差込印刷が無理なら、エクセルの他のシートにお知らせを作って、差込印刷みたいなことができる方法はありますか? エクセルだけでできたら、それはそれで嬉しいのですが。

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

印刷 VBA」に関するQ&A: VBA印刷ページ設定

A 回答 (2件)

こんにちは。


そのやる気が大事です。
先ず、新しいブックでテストしてみましょう。

---------------------------------------------------
【VBAコードの作成方法】

●新しいブックを開く
●メニューバーの「ツール」 > 「マクロ」 > 「セキュリティー」
  表示されるセキュリティーの画面の「セキュリティーレベル」タブをクリック
  高・中・低の「中」を選択(既に選択してあれば無視)し、OKボタン
  これは一度設定しておけば未来永劫さわることはありません
●メニューバーの「ツール」 > 「マクロ」 > 「Visual Basic Editer」
  ここでVBEの画面が表示されます
●VBEのメニューバーの「挿入」 > 「標準モジュール」
  ここで画面右側に白い作業領域が表示されます
  そこに下記プログラムコードをコピーして貼り付けます
●最上段タイトルバーの右の「×」ボタンでVBEを閉じます
  これでVBAコードの作成は終了です。

------------------------------------------------------
【データについて】

Sheet1,2 を氏名等のデータとし、Sheet3を印刷用とする
Sheet1,2 は次のレイアウトとする
  1行目見出し(A列・氏名)(D列:出欠)
  2行目からデータ
  D列出欠データの欠席は、「欠」と1文字入れる

--------------------------------------------------------
【実行内容】

Sheet1,2の出欠欄(D列)が「欠」の人の氏名(A列)を
印刷用シート(Sheet3)のセル「C5」に差込み、印刷する

--------------------------------------------------------
【VBAの実行方法】

●メニューバーの「ツール」 > 「マクロ」 > 「マクロ」
  ここでマクロ画面が表示されますので
  実行したいマクロ(TestPrint)を選択し、
  右上の「実行ボタン」をクリック

---------------------------------------------------------
【VBAのコード】Sub TestPrint ~ EndSub までを貼り付ける
---------------------------------------------------------

Sub TestPrint()
 Dim Sht As Worksheet
 Dim R As Long
 Application.ScreenUpdating = False
 Worksheets("Sheet3").Activate

 For Each Sht In Worksheets
  If Sht.Name <> "Sheet3" Then
   For R = 2 To Sht.Range("A65536").End(xlUp).Row
    If Sht.Range("D" & R).Value = "欠" Then
     Range("C5").Value = Sht.Range("A" & R).Value
     ActiveSheet.PrintPreview
    End If
   Next R
  End If
 Next Sht

Application.ScreenUpdating = True
End Sub

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

これは実際の印刷ではなく印刷プレビューが表示されます。
どうですか? 簡単でせう?(^^;;;

実際のお知らせもVBAでやりたくなったら、そのレイアウトを提示してください。
A列(氏名)B列(日付)C列(項目1)・・・
見出しは、何行目にあるか、データは何行目からか。
印刷用シートを作成するわけですが、そのシート名。
印刷用シートのどのセルにデータを差込むか等。

以上です。

この回答への補足

 お試しコードありがとうございました。VBA すごいです! もし自由に使いこなせたら なんでもできちゃいそうで夢が(?!)ふくらみますね。
 どんなVBAを組んで、どんな作業をしようか、わくわくしながら考えちゃいました。っで、あんまり複雑なものを教えていただくと、そのコードを読み取って後々自分で加工していくのが難しそうなので、まずは手はじめにVBAでリストを作って、リストからワードに差込印刷というパターンでやってみようかと思うのですが、そういう方法はどうなのでしょうか?
 【データ】
●シート1からシート20まで、同じ配列でデータがあります。
●1行目は見出しです。2行目から1人づつのデータです。(多くても65行までと思っています。)
●A列に到達度、B列に出欠をいれました。
●C列からM列が氏名、課題、その他のデータです。
●リストはシート21にあります。
 【VBAでやってみたい作業】
●シート1から20で A列が「C」または「D」ならば その行のA列からM列をコピーして シート21のA列からM列に形式を値にして張り付ける
●シート1から20で B列が「欠」ならば その行のA列からM列をコピーしてシート21のA列からM列に形式を値にして張り付ける

っというのが、私が乏しい知識で考えたリストの作り方なのですが。。。これじゃ、不具合がでるかもしれなくて、こんなかんじの作業かなという程度です。
こんなVBAってできるものでしょうか?
それとも、こういう作業はVBAではなく、他のやり方がいいのでしょうか?

補足日時:2005/04/20 16:04
    • good
    • 0

こんにちは。


残念ながら複数シートから差込みはできません。
で、代案としては。

(1)差込む度に差込みシートを代える
(2)シート毎に差込み文書を作成
(3)シートを増やしそこに全てのシートをコピーし差込む

上記はシートが多いとちょと面倒ですよね。
で、あと考えられるのはエクセルのみでやる場合です。
それにはVBAを使うことになります。
VBAにトライしてみますか?
なら簡単なコードをアップしますが・・・。

以上です。

この回答への補足

VBAってマクロを組むとか、そういうやつですか?
エクセル初心者なので、マクロはまったくやったことがありません。・・・でも、やってみたいなあ。(頭が良くなくてもできるでしょうか?)
できるかどうか、ぜんぜん自信無いのですが、手ほどきお願いいたします。

補足日時:2005/04/17 19:42
    • good
    • 0

このQ&Aに関連する人気のQ&A

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

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

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

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

Qシートベルトの固定解除

チャイルドシートを取りはずそうとして,(シートベルトの固定機能が作動しているときに)誤って,チャイルドシートの固定する金具の軸に引っかけてしまい,そのためチャイルドシートが取り外せなくなってしまいました。つまり引っ張っても,固定されてしまってシートベルトが伸びずにはずせなくなってしまったのです。
一度,シートベルトを巻き戻すほかに,シートベルトの固定を解除する方法はないのでしょうか。
車屋さんに頼むしかないのでしょうか。

Aベストアンサー

最近の車のリアシートの、最後までシートベルトを引き出すとカチカチカチカチと引き込まれるタイプですね?

探してもないかとは思いますが、お車によってはどこかをどうにかするとシートベルトが、チャイルドシート固定機構が外れる構造になっているかもしれません。その場合は、お車の取扱説明書に書かれている場合もあると思いますので、まずは探してみて下さい。(外車や高級車ですと、電気的に、裏コマンドで、例えば“どこかのスイッチを何回繰り返し押すとチャイルドシート固定機構が外れる。”なんてことになっているかもしれませんので、)無理に何かをやってみる前に、その辺(取扱説明書や、ディーラーに電話 問い合わせ)をまずよく確かめてみて下さい。

次に、“知恵の輪”的にやってみるしかないです。まず、反対側のシートベルトで、どこまで引き込めばチャイルドシート固定機構がフリーになるのかを確認し、その長さまで何とか引き込めないかを、知恵の輪の様にやってみるのです。これでしばらくやってみても無理でしたら、もう無理です。


次に、どこかを外し始めることになりますが、セダンですと、取扱説明書に、リアシートの外し方が載っている場合が多いです。これは、最近のリアシートは、シートカバーを付けたり外したりしやすいように、工具なしで簡単にリアシートが外れる場合が多いのです。リアシートが外れれば、その分すき間ができますので、その分引き込めてチャイルドシート固定機構がフリーになるかもしれません。
これも、シートを外す前に、反対側ベルトで長さを確認してから作業を始めたほうが良いですね。


フロントシートベルトに付いているアンカー(肩の上にある、肩ベルトの高さを調節する部分。)のようなものがリアシートベルトにも付いておりましたら、最後の手段があります。

(上記が全てが不可でしたら、)“最後の手段”、シートベルトの一番上のアンカーのところのボルトだけを外します。自転車の車輪が外せる程度のDIYが出来るかたがおられましたら、可能な作業ではありますが、100%の自信がある場合以外は、専門家に頼んで下さい。
ラチェットハンドル(http://www.koken-tool.co.jp/img/products/tec/ratchet/3753n.jpg)と ソケットレンチ(http://www.koken-tool.co.jp/catalog/img/main/h4/4400m.jpg)といった工具を必ず使って下さい。

決してこんな モンキレンチ(http://www.kyototool.co.jp/products/catalog/nepros/nwm.jpg)や スパナ(http://www.kyototool.co.jp/products/catalog/nepros/ns2.jpg)は使ってはいけません。

どこのボルトを緩めるかといいますと、リアシートベルトを支えてる、一番上の部分てありますよね?座った時に肩より上に来る部分です(アンカーといいます。)。これは、ボルト1本で取り付けられているのですが、きっとプラスチックの めくらぶた が付いていると思いますが、まずこれを外し、 ボルトを緩める前に、油性マジックインキなどでボルトの頭の一番上に印を付けておくと、あとで締め付けるときの目安になります。
その後、ソケットレンチにて、反時計回りにじわっと緩めます。この時注意して頂きたいのは、緩んだ瞬間に工具がリアガラスに当たって割れないように充分に気を付けて下さい。

ボルトが緩みさえすれば後は簡単です。手でボルトをクルクル緩め、完全に外れる前に、アンカー内にあるスペーサーやワッシャーをなどを なくさないように気を付けて、付いてる順番などを覚えながら外して下さい。

これでかなりの量のベルトが引き込めるようにはなるのですが、これを外したところで、必ずチャイルドシート固定機構が外れるかどうかは分からないというのが実際です。なぜなら、お車が、どの程度ベルトが引き込まれれば固定機構が外れるかや、チャイルドシートがどの程度ベルトを消費(巻き付き)しているかによって、変わってくるのです。

(リアシートの方は、アンカーが内装トリムの中に隠れているタイプの車もあり、その場合は、トリムを外すといったことは、出来そうな気がしても、お勧めできません。  トリムはなれない人が外すと割れてしまったりします。)


リアシート座面を外して、腰より下の部分のシートベルト(左シートなら腰の左側)の取り付け部を外す方法もありますが、ここまでやる場合は、よほど自信がある場合だけにして下さい。
(車をいじくるのが好きでいつもやっているかたですと簡単な作業ですが、そうでない場合は、工具を使う作業については専門家に頼んで下さい。)

最近の車のリアシートの、最後までシートベルトを引き出すとカチカチカチカチと引き込まれるタイプですね?

探してもないかとは思いますが、お車によってはどこかをどうにかするとシートベルトが、チャイルドシート固定機構が外れる構造になっているかもしれません。その場合は、お車の取扱説明書に書かれている場合もあると思いますので、まずは探してみて下さい。(外車や高級車ですと、電気的に、裏コマンドで、例えば“どこかのスイッチを何回繰り返し押すとチャイルドシート固定機構が外れる。”なんてこと...続きを読む

Qワード+エクセルで差込印刷は別ファイルは可能?

 ワードでエクセルからのデータを差込印刷したいと思っています。

 Q1 一度に複数のエクセルファイル(ブック)から、差込をすることは可能でしょうか。実際には、2つ目の差込ファイルを指定すると、1つ目のファイルも2つ目に変えられてしまうようです。

 Q2 では、同じファイル(ブック)の別シートでは、上記のことは可能でしょうか?

 Q3 B5用紙に3人分ずつ差込印刷をしたいのですが、きちんと計算しても、3枚目、4枚目あたりになると、微妙にずれてきて、3人目が次のページにまたがるようになります。解決法はありますか?
 1枚一人では、紙がもったいないもので・・

 よろしくお願いします。
 

Aベストアンサー

Word2003で試しましたが、おっしゃるとおり出来ませんでした。
Q2もです。

Q3は、B5用紙1枚に3人分ということですね。
それならば、
(1)はがきと差し込み印刷で文書の種類に「ラベル」を選択し、次へ。
(2)「ラベルオプション」をクリック、「新しいラベル」をクリック。
(3)用紙サイズをB5に変更。列数1、行数3に変更。
(4)用紙サイズから計算し、ラベルの高さ・幅を変更。(例:80と160)
(5)残りの半分位を上余白・横余白にあてる。(例:10と10)
(6)ラベル名を記入し、「OK」「OK」「新規文書」をクリック。
(7)後ではさみ等で切るのなら、罫線メニューから罫線網掛け設定で、「すべて」をクリック、「OK」
(8)ラベル1枚目に文を入力し、2枚目と3枚目にコピー。
4枚目以降もある時は、B5文書1位枚分ずつコピー。
不要なラベルが出来たら、ラベル1枚分選択して、BackSpaceで消える。
(9)差し込みフィールドの挿入後、「すべてのラベルの更新」をクリックし、次へ。

Qチャイルドシートの固定金具

チャイルドシートを固定するときに使う、固定金具(ロッキングクリップ)はどこで売っているのでしょうか。
ご存知でしたら教えてください。よろしくお願いします。

Aベストアンサー

お近くのオートバックス、イエローハット、ジェームスなどで売ってます。
シートベルトだけでなく、補助ベルトも使ってつけるとしっかり固定できます。

Q差込印刷 表に左列終了後右列に差し込みしたい

Word2013です
表に差込印刷をするとき、左列終了後右列に入れたい。

画像のように
Wordの1番にExcelの1番
Wordの6番にExcelの2番と
Wordへの差し込み印刷は、左右、左右と入ってしまいます

差込印刷でWordの表の2列に名簿を入れるとき
Excel名簿の番号順にWordの表にも入れたいのですが
できますでしょうか

Aベストアンサー

1番です。

ダメですか・・・。

では、Excel表に作業列を設けて奇数番号5個と偶数番号5個を交互に振り、ソートをかけて1,6,2,7,3,8,4,9,5,10・・・みたいに並べ替えるってのはどうでしょう?
(素人的なアイデアで申し訳ないです。下手くそな考えしか出ませんので、これで撤退させていただきます。)

Qシート下にサブウーハー固定

シートの下にサブウーハーを設置したいのですが、何か良い固定方法はあるでしょうか?

Aベストアンサー

軽量化でマットをはずしたりしていないのであれば、
マジックテープの硬いほうをマットに触れる面に両面テープで
付けると、車のマットがマジックテープのやわらかいほうの役割を
するので、固定しやすいです。

Qワード差込印刷のアドレス帳→エクセル

ワードの差込印刷で作ったアドレス帳がマイデータソースにあるのですが、プリントアウトするためエクセルのデータに変換?する方法が思い出せません。よろしくお願いします。

Aベストアンサー

度々申し訳ありません。
私の解釈が間違っていた模様です。

開きたいフォルダを右クリック。
この場合はマイデータソースにあるアドレス帳を右クリックして
プログラムから開く→エクセルを選択
というような作業で開くのはいかがでしょうか?

Qお腹で固定するチャイルドシートについて

 12月に第二子が誕生する予定です。第一子は,ベビーシートとチャイルドシートが兼用になっているもの(寝かせられるタイプ)を使っていました。
 第二子の誕生に合わせて,当然もう一つ購入を考えていますが,兼用のものは高いので,下の子はお下がりを使ってもらって,上の子に新しいものを買おうと思っています。
 いまのところ,プリムキッズのようなお腹の部分で固定するタイプを考えています。ただ,肩からベルトで股まで固定するタイプに比べて,お腹のみの固定の方が,事故のときに力を受け止める場所が少ないので,体に負担がかかるのではないかと心配しています。
 国土交通省の実験サイトでは,「良」となっているので大丈夫なのでしょうが,みなさんはどう思われますか?
 また,みなさんは第二子誕生のときはどのように対応されていましたか。よろしくお願いします。

Aベストアンサー

お子さんはおいくつでしょうか?
うちの子は今3歳で、今使ってるチャイルドシート↓
http://www.coscojuvenile.com/product.asp?productID=38のベルトが目イッパイになってきた
(股下カッチンの為)事、最近お友達を乗せてあげることが増えた事等の理由からいずれ使うであろう
(最近使ってますが)ジュニアシートを購入しました。
いわゆる一般的な座台だけのジュニアシートは子供の体に直接シートベルトを装着するので、
・シートベルトが体を圧迫しないか?
・3歳の座高では微妙にシートベルトが首をかすめるのではないか?
・寝てしまった時に・・不安。
と言う不安材料があったのと、寝た時に前の台を抱えて枕代わりにしたりしてたので、前の台は必要だと
思いました。なので今まで使ってたのと同じ形(前台付)のジュニアシートにしました。
考えてらっしゃるプリムキッズも同じような前台付ですよね?

参考までに、うちの購入したジュニアシートです。↓

参考URL:http://www.coscojuvenile.com/product.asp?productID=34

お子さんはおいくつでしょうか?
うちの子は今3歳で、今使ってるチャイルドシート↓
http://www.coscojuvenile.com/product.asp?productID=38のベルトが目イッパイになってきた
(股下カッチンの為)事、最近お友達を乗せてあげることが増えた事等の理由からいずれ使うであろう
(最近使ってますが)ジュニアシートを購入しました。
いわゆる一般的な座台だけのジュニアシートは子供の体に直接シートベルトを装着するので、
・シートベルトが体を圧迫しないか?
・3歳の座高では微妙にシートベルトが首を...続きを読む

Q年賀状の宛名をワードの差込印刷機能を使って印刷したいのですが、印刷をするとプログラム言語の様なものが印字されます。

こんにちは。

年賀状の宛名をワードの差込印刷機能を使って印刷したいのですが、トラブルにより困っています。

差込印刷のデータ元はエクセルのファイルです。

ワードの「はがき宛名印刷ウィザード」画面を進めて、最後の「完了」ボタンを押すと、エクセルのファイル通りの宛名が表示されます。

しかし、「印刷プレビュー」をすると、宛名が、プログラム言語の様なアルファベットと記号の羅列になります(添付ファイルを参照下さい)。

差出人欄は、正常に表示されます。

実際に印刷すると、やはり「印刷プレビュー」通りに印刷されます(アルファベットと記号の羅列)。

エクセルの住所録ファイルは昨年も同じものを使用しており、変更もしていません。

昨年も同じ方法で差し込み印刷の作業をしており、トラブルはありませんでした。

大変困っておりますので、どうか解決方法を教えて下さい。

返信お待ちしております。

Aベストアンサー

Wordのツール→オプションで表示されたダイアログの表示タブ
表示項目の中のフィールドコードにチェックが入っていたら外してください。
駄目だったらごめんなさいね。

Q【エクセル2003】シート保護でズームとスクロールを固定させる方法。

連続投稿すみません。お世話になってます。

シートを保護した後、シートの表示(ズーム)を変えられないようにしたいのですがどのようにすれば良いのでしょうか。70%で固定させて使ってもらいたいのです。

また、スクロールさせないようにする方法も知りたいです。

ご教示のほどよろしくお願いします。

Aベストアンサー

こんにちは。

>シートを保護した後、シートの表示(ズーム)を変えられないよう
本来、表示(ズーム)は、相手のPC環境に依存しているので、ユーザーオプションとして固定する方法はありません。

ですから、以下のように、マクロで行う方法しかありません。

標準モジュールの Auto_Open() や
ThisWorkbook モジュールの Private Sub Workbook_Open()
に、以下の中身をそっくり入れると良いです。


Sub TestZoomFixed()
'-----------------------
  '最初にシートの選択を必ずすること
  Worksheets("Sheet1").Select
  With ActiveWindow
    If .Zoom = 100 Then
      .Zoom = 70
    End If
  End With
  With Application.CommandBars.FindControls(, 925).Item(2)
    .Enabled = False
  End With
'----------------------
End Sub

終了時などに、
標準モジュールに、Sub Auto_Close() や

ThisWorkbook モジュールに
Private Sub Workbook_BeforeClose(Cancel As Boolean)
で、以下の中身を入れてあげます。

その反対は、
ズームは保存されますから、必要がなければ、コメントブロックのままにしてよいです。ただ、他のシートも同時に開いていたブックも、メニューからズームが使えなくなっています。(解決方法はあります)
'---------------------------
  Worksheets("Sheet1").Select
  'With ActiveWindow
  '  .Zoom = 100
  '  End If
  'End With
  With Application.CommandBars.FindControls(, 925).Item(2)
    .Enabled = True
  End With
'---------------------------

>スクロールさせないようにする方法

意味がはっきり分からないというか、取り違えているかもしれませんが、スクロールさせないという意味そのものは、スクロールロックをしてしまうことになるので、たぶん違うと思います。

例えば、使わない行や列を下や右端列まで選択し、

 書式-行-非表示、
 書式-列-非表示

としてしまう方法があります。その後で、

他にも、マクロで、シート・プロパテイのScrollArea というものがあって、その範囲を設定させてしまうと、範囲から外にはスクロールが出来なくなります。

例:
ThisWorkbook モジュールなどに入れてあげます。
Worksheets("Sheet1").ScrollArea ="A1:E10"

こんにちは。

>シートを保護した後、シートの表示(ズーム)を変えられないよう
本来、表示(ズーム)は、相手のPC環境に依存しているので、ユーザーオプションとして固定する方法はありません。

ですから、以下のように、マクロで行う方法しかありません。

標準モジュールの Auto_Open() や
ThisWorkbook モジュールの Private Sub Workbook_Open()
に、以下の中身をそっくり入れると良いです。


Sub TestZoomFixed()
'-----------------------
  '最初にシートの選択を必ずすること
  W...続きを読む

Qエクセルのデータからワードの文書への差込印刷について

エクセルのデータとして1つのセルに「S.34.10.5」という風に生年月日が入っているのをワードの文書に差込印刷したいのですが、まとめてそのまま差し込むのではなく、印刷元の用紙にはもうすでに「 年 月 日生」が印刷されていて、この空欄に生年月日の数字だけを差込たいのですが、可能でしょうか?もし、可能ならばどうすればよいのか教えていただけませんか?

Aベストアンサー

必要な文字のみ抽出は可能です。
Excelに入力されたデータの形式が分からないので確実な方法はかけませんが。。。
Excelの文字列操作関数などを利用して「年」と「月」と「日」のセルに分けてデータ差し込みすればOKでしょう。

ただ、印刷先の用紙への位置合わせは試行錯誤するしかありません。。。コレが一番大変です。。。


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

人気Q&Aランキング