ここから本文です

印刷のマクロを入れたいです。 エクセルのシートが二種あります。 「社内」「社外」 ...

kir********さん

2019/6/1818:53:49

印刷のマクロを入れたいです。
エクセルのシートが二種あります。
「社内」「社外」
とあり、「社内」のシートのA1セルに【外注】と入力あれば「社内」「社外」の印刷をし、
A1に何も入力がなければ、

「社内」のシートのみ印刷するようにしたいです。

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

閲覧数:
24
回答数:
1

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tra********さん

2019/6/1820:46:41

Sub 一例です()
With Worksheets("社内")
If .Range("A1").Value = "【外注】" Then
Worksheets(Array(.Name, "社外")).PrintOut
Else
Worksheets(.Name).PrintOut
End If
End With
End Sub

試してみてください。

  • 質問者

    kir********さん

    2019/6/1821:01:45

    ありがとうございます!
    明日、早速試してみます!

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2019/6/19 17:13:20

今日試してみたら、うまくいきました!
とても便利になりました。ありがとうございます。

あわせて知りたい

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる