データはエクセルの複数シートにあります。
A2列に氏名、D4列に出欠、他の列には日付、課題などが入力されています。
欠席者のみに、氏名入りで、欠席した回の課題をお知せする文書を作りたいです。
シートがひとつなら、ワードの差込印刷を使ったことがあります。でも、複数シートからデータをとりたい時は、ワードの差込印刷はできますか?
ワードの差込印刷が無理なら、エクセルの他のシートにお知らせを作って、差込印刷みたいなことができる方法はありますか? エクセルだけでできたら、それはそれで嬉しいのですが。
No.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ではなく、他のやり方がいいのでしょうか?
No.1
- 回答日時:
こんにちは。
残念ながら複数シートから差込みはできません。
で、代案としては。
(1)差込む度に差込みシートを代える
(2)シート毎に差込み文書を作成
(3)シートを増やしそこに全てのシートをコピーし差込む
上記はシートが多いとちょと面倒ですよね。
で、あと考えられるのはエクセルのみでやる場合です。
それにはVBAを使うことになります。
VBAにトライしてみますか?
なら簡単なコードをアップしますが・・・。
以上です。
この回答への補足
VBAってマクロを組むとか、そういうやつですか?
エクセル初心者なので、マクロはまったくやったことがありません。・・・でも、やってみたいなあ。(頭が良くなくてもできるでしょうか?)
できるかどうか、ぜんぜん自信無いのですが、手ほどきお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルの複数シートから、差込み印刷の方法
その他(Microsoft Office)
-
ワード差込ファイルで複数エクセルシートのデータを差込みたいのですが?
Excel(エクセル)
-
差し込み印刷・複数のリストを参照したい
Word(ワード)
-
-
4
WORDファイルに複数のシートを差し込み印刷したい
Word(ワード)
-
5
差し込み印刷の元データファイルの探し方
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
excel・VBAで奇数・偶数の分岐...
-
【条件付き書式】countifsで複...
-
エクセル 月のデータを週ごとに...
-
VBA 抽出後、別シートにコピー
-
エクセルの列の限界は255列以上...
-
Excelで、ファイル名、シート名...
-
エクセル マクロ 標準モジュー...
-
EXCEL VBAのコンボボックスに取...
-
"りんご"と"みかん"というシー...
-
エクセルで、チェックボックス...
-
A列をK列に変更
-
Excelで条件別にシートを振り分...
-
【VBA EXCEL データ有無 行 判...
-
検索に引っ掛からない文字行を...
-
【マクロ】あいうえお順のシー...
-
エクセル関数について、特定の...
-
エクセルVBAで、検索・抽出の仕...
-
エクセルのマクロで複数条件に...
-
VBA 元データに上書きする 列番...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
Excel の複数シートの列幅を同...
-
VBAで繰り返しコピーしながら下...
-
【条件付き書式】countifsで複...
-
エクセル マクロ 標準モジュー...
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
エクセルで、チェックボックス...
-
エクセルマクロを教えてほしい...
-
SUMPRODUCTにて別シートのデー...
-
Excel VBA ピボットテーブルに...
-
エクセルのブック分割マクロを...
-
【VBA】複数のシートの指定した...
-
excel 複数のシートの同じ場所...
-
Excelに自動で行の増減をしたい...
-
スプレッドシートでindexとIMPO...
-
エクセルで横並びの複数データ...
-
エクセル複数シートのデータを...
おすすめ情報