質問: range("個人番号イ") + 1 loop end sub というマクロがあり「個人票」を印刷してから、裏面に「個人票裏」を印刷している状態です。 今回教えていただきたいのは「個人票」と「個人票裏」を両面印刷するマクロです。 上記マクロを使わずに「個人番号」「個人番号イ」に同じ番号を手動で入力して両シートを選択して両面印刷はできています。 関連情報でも構いません。よろしくお願いします。
回答: >上記マクロを使わずに「個人番号」「個人番号イ」に同じ番号を手動で入力して両シートを選択して両面印刷はできています。 で、出来るのなら、これをマクロの記録で記録し コードをアレンジすればよろしいのでは? '試してませんが、こんな感じになるのでは?と思います sub 票印刷() sheets("個人票").range("個人番号") = sheets("個人票").range("自") sheets("個人票裏").range("個人番号イ") = sheets("個人票裏").range("自イ") do while sheets("個人票").range("個人番号") <= sheets("個人票").range("至") sheets(array("個人票", "個人票裏")).printout sheets("個人票").range("個人番号") = sheets("個人票").range("個人番号") + 1 sheets("個人票裏").range("個人番号イ") = sheets("個人票裏").range("個人番号イ") + 1 loop end sub 当方、両面印刷できる環境が無いので、あくまでサンプルです