[[20251228191726]]　『セルの文字を変更して印刷』（ジージョ）　ページの最後に飛ぶ

『セルの文字を変更して印刷』（ジージョ）

A1のセルに1と入力し印刷します。
それを、2、3と数を変えたものも印刷したいです。
現在はシートをそれぞれ作って一つ一つ印刷していますが、他にもっと簡潔にできる方法があれば教えていただきたいです。

＜使用 Excel：unknown、使用 OS：unknown ＞

1と入力したらシート１、2と入力したらシート2・・・と言うことでしょうか。
（?） 2025/12/28(日) 19:35:38

はい。
そのように作られているため、現在はそれを利用しています。
（ジージョ） 2025/12/28(日) 19:45:58

 >そのように作られている
 何かのマクロか何かですか？
 そうであれば、そのコードを示してみたらどうですか？
（xyz） 2025/12/28(日) 19:52:06

いえ。マクロではなくただ複数のシートが作られています。
私自身も作成した方もパソコンに詳しくないため、うまく説明できずすみません
（ジージョ） 2025/12/28(日) 20:02:24

＞A1のセルに1と入力し印刷します。
そのシート名は何ですか。
（?） 2025/12/28(日) 20:20:17

シート1→製品名まる1
シート2→製品名まる2
となっています。

（ジージョ） 2025/12/28(日) 20:33:04

製品名まる2以降のシートに

=製品名まる1!A1+1

とか、単に＋1する数式を書いとけばいいんじゃないですかね
（気分） 2025/12/28(日) 23:23:55

 現在のシートでは、A1セルの値をもとに他のセルの値が連動して変更されるようになっており、
 A1セルを規則的に変えていったものを、それぞれ印刷していきたいのです、
 ということですか？

 そうした繰り返し作業を省力化できないか、ということなら
 普通は「マクロの利用」という方法を検討することになると思います。

 もちろん、数件レベルの話なら、シートを増幅しておくという現在方式でも構わないでしょう。
 また、ブックのサイズが増えても問題ないなら、
 一度全シートを作っておけば、印刷したいシートをまとめて選択状態にしたうえで、
 一括して印刷することができます。

 それでマクロの話ですが、
 例えば、こんな風なコード（プログラムと同義です）を書いて利用します。

 Sub 繰返し印刷()
     Dim k As Long
     For k = 1 To 3      '1から3までということにしています。必要に応じて変更します。
         Range("A1") = k                     ' A1セルに値を入力する
         ActiveSheet.PrintPreview            ' 印刷プレビュー表示(テストのため実際に印刷せずプレビューだけ）
         ''' Worksheets("Sheet1").PrintOut    ' 単に印刷ならこちら （現在はコメントにしているので実行されません）
     Next
     Range("A1") = 1                         '元に戻しておく
 End Sub

 マクロなんて知らないし、使いたくもありません、ということなら捨てて下さい。
 地道にひとつひとつ手作業でやって下さい。

（xyz） 2025/12/29(月) 06:21:50

マクロ教えていただきありがとうございます。
そうです‼︎繰り返し作業の省略化‼︎
教えていただいたマクロ使わせていただき、できるようにやってみます。
本当にありがとうございました。
（ジージョ） 2025/12/29(月) 08:57:08

コメント返信：

[ 一覧(最新更新順) ]

[[20251228191726]] 『セルの文字を変更して印刷』（ジージョ） ページの最後に飛ぶ

[[20251228191726]]　『セルの文字を変更して印刷』（ジージョ）　ページの最後に飛ぶ