エクセル 印刷について。

教えてください。

エクセル2016で
①Sheet1のA1セルにMonday
②Sheet1のA2セルにTuesday
③Sheet1のA3セルにWednesday
④Sheet1のA4セルにThursday
⑤Sheet1のA5セルにFriday
⑥Sheet1のA6セルにSaturday
⑦Sheet1のA7セルにSunday
と入力しておいて
印刷時①～⑦を指定すると
Sheet2のA2セルにMonday
Sheet2のA2セルにTuesday
Sheet2のA2セルにWednesday
Sheet2のA2セルにThursday
Sheet2のA2セルにFriday
Sheet2のA2セルにSaturday
Sheet2のA2セルにSunday
と印刷されるようにしたいです。
印刷時③,⑤,⑦を指定すると
Sheet2のA2セルにWednesday
Sheet2のA2セルにFriday
Sheet2のA2セルにSunday
と印刷されるようにしたいです。

指定の数字はセルに入力でもポップアップ表示の画面でも構いません。

よろしくお願いいたします。

質問者からの補足コメント

• 分かりにくい質問ですみません。
  画像を添付します。
  年賀状ソフトで住所録から決まった位置に転記されるようなイメージです。
  よろしくお願いいたします。

  
    補足日時：2019/04/22 15:56

• tom04様
  回答ありがとうございます。
  とてもうまくいきました。
  先のA列含め、B列も同様にしたい場合どうすればよいでしょうか？
  ①Sheet1のB1セルに月曜日
  ②Sheet1のB2セルに火曜日
  ③Sheet1のB3セルに水曜日
  ④Sheet1のB4セルに木曜日
  ⑤Sheet1のB5セルに金曜日
  ⑥Sheet1のB6セルに土曜日
  ⑦Sheet1のB7セルに日曜日
  と入力しておいて
  印刷時①～⑦を指定すると
  Sheet2のB2セルに月曜日
  Sheet2のB2セルに火曜日
  Sheet2のB2セルに水曜日
  Sheet2のB2セルに木曜日
  Sheet2のB2セルに金曜日
  Sheet2のB2セルに土曜日
  Sheet2のB2セルに日曜日
  
  ③,⑤を指定すると
  Sheet2のB2セルに水曜日
  Sheet2のB2セルに金曜日
  と印刷されるようにしたいです。
  すみませんが、よろしくお願いいたします。

    補足日時：2019/04/25 10:26

No.5 ベストアンサー 回答者： tom04 回答日時： 2019/04/23 21:54

こんばんは！

＞指定の数字はセルに入力でもポップアップ表示の画面でも構いません。

VBAでの一例です。
Sheet1のA1～A7セルの印刷したいセルを範囲指定し、マクロを実行する方法ではどうでしょうか？
（飛び飛びの場合はCtrlキーを押しながらセルを選択してみてください）
一例です。

Sub Sample1()
　Dim c As Range, wS As Worksheet
　　Set wS = Worksheets("Sheet2")
　　　For Each c In Selection
　　　　If Not Intersect(c, Range("A1:A7")) Is Nothing Then
　　　　　wS.Range("A2") = c
　　　　　wS.PrintPreview '//★//
　　　　End If
　　　Next c
End Sub

※　必ずSheet1のセル選択後マクロを実行してください（Sheet1がアクティブになっている状態で！）

※　印刷プレビューでやめています。
すぐに印刷したい場合は「★」の行を
＞wS.PrintOut

に変更してみてください。m(_ _)m

No.6 回答者： tom04 回答日時： 2019/04/25 13:21

No.5です。

Sheet1のA1～B7セルに関して同じ動きになれば良いのですね。
↓のコードに変更してみてください。

Sub Sample2()
　Dim c As Range, wS As Worksheet
　　Set wS = Worksheets("Sheet2")
　　　For Each c In Selection
　　　　If Not Intersect(c, Range("A1:B7")) Is Nothing Then
　　　　　If c.Column = 1 Then
　　　　　　wS.Range("A2") = c
　　　　　　wS.Range("B2").ClearContents '//★//
　　　　　Else
　　　　　　wS.Range("B2") = c
　　　　　　wS.Range("A2").ClearContents '//★//
　　　　　End If
　　　　　　wS.PrintPreview
　　　　End If
　　　Next c
End Sub

※　ループ順は　A列　→　B列　→　A列　→　B列・・・
範囲指定セルを横にそして上から順にループします。

※　該当列がA列の場合はSheet2のB2セルをクリア、B列の場合はSheet2のA2セルをクリアするようにしています。
Sheet2のA2・B2セルの値をそのまま残しておきたい場合は
コード内の「★」の行を削除してください。m(_ _)m

この回答へのお礼

回答ありがとうございます。
うまくいきました。

お礼日時：2019/04/29 17:53

No.4 回答者： mike_g 回答日時： 2019/04/22 20:40

「補足日時：2019/04/22 15:56」の添付図、判読できません！

No.3 回答者： mike_g 回答日時： 2019/04/22 15:12

[No.1お礼]へのコメント、

[補足する]
http://oshiete.goo.ne.jp/guide/question/more/
を読まれたい。
》 3 補足内容を入力
》 ￣￣補足本文（質問の内容）を入力（必須）後、「確認する」ボタンを
》 ￣￣クリック。
》 →動画・画像を添付する

No.2 回答者： 銀鱗 回答日時： 2019/04/22 14:39

「補足」に画像添付ができます。

「お礼」に画像添付はできません。

No.1 回答者： mike_g 回答日時： 2019/04/22 10:11

意味がサッパリポンなので、

印刷した結果として、[印刷プレビュー]画面をスクリーンショットにして見せてください。
「Sheet2のA2セルに…と印刷されるようにしたい」ですと？
「Sheet2のA2」という文字も印刷されるゥ～！？どのシートであろうと、一般に印刷するとシート名とかセルアドレスは出て参らない、というのが私の理解です。

この回答へのお礼

すみません、新規質問ではない場合の画像添付の仕方がわかりません。
方法を教えていただけないでしょうか？

お礼日時：2019/04/22 14:03