ここから本文です

Excelのマクロについて質問です。 いつもお世話になっております。 Excel一括...

アバター

ID非公開さん

2018/2/1217:09:22

Excelのマクロについて質問です。
いつもお世話になっております。

Excel一括印刷を行うためにマクロを使用したいのですが
組み方がわかりません。
初心者です。以下内容となります。

・日付を一日ずつ変更して連続印刷をしたい
・印刷をしたいシート数は合計9枚
・前半4枚を一束、後半5枚を一束で印刷したい

今までの質問等から検索し、組んでみた式は以下です。

Sub insatsu()
For i = "Y5" To "Y6"
Range("Q2") = DateSerial(2018, "W5", i)
ActiveWorkbook.PrintOut From:=1, To:=4, Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next

For i = "Y5" To "Y6"
Range("Q2") = DateSerial(2018, "W5", i)
ActiveWorkbook.PrintOut From:=5, To:=8, Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

Y5、Y6にはもともと数字を入れていましたがここも自動化できればと思い
対象のエクセル欄に日付(数字のみ)をいれています。
W5には月(数字のみ)を入れております。

これを実行しようとすると「型が一致しません」となります。
上に入れた月日が問題でしょうか。直し方を教えてください。

また、何か印刷のいい方法がありましたら、どうぞご教授の程お願いいたします。
ご回答お待ちしております。

閲覧数:
109
回答数:
1
お礼:
500枚

違反報告

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

プロフィール画像

カテゴリマスター

aka********さん

2018/2/1415:01:58

まず VBA では
For i = "Y5" To "Y6" "Y5","Y6"では 数値でも セル名にもなりません。
只の文字です。
"Y5","Y6"が セルアドレスなら

For i = RANGE("Y5") To RANGE("Y6") と する必要があります。
以下すべてがそうです。


DateSerial(2018, RANGE("W5"), i)

  • アバター

    質問者

    ID非公開さん

    2018/2/1514:41:44

    解決です!ありがとうございました!

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

  • 取り消す
  • キャンセル

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

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

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

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

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

閉じる

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

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

閉じる