Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8671 / 13644 ツリー ←次へ | 前へ→

【31875】教えて下さい。 mako 05/12/1(木) 18:21 質問[未読]
【31877】Re:教えて下さい。 ponpon 05/12/1(木) 19:02 発言[未読]
【31885】Re:教えて下さい。 mako 05/12/1(木) 20:55 質問[未読]
【31887】Re:教えて下さい。 ponpon 05/12/1(木) 21:14 発言[未読]
【31909】Re:教えて下さい。 mako 05/12/2(金) 7:46 お礼[未読]

【31875】教えて下さい。
質問  mako E-MAIL  - 05/12/1(木) 18:21 -

引用なし
パスワード
   excelを使っています。
現在 関数、V−LOOKUPを多用し
あるセルに”1”を入れ、印刷し、次に”2”を入れ印刷。
ワンクリックに1枚のシートを印刷し、
それを繰り返し、1〜100までの印刷を繰り返しています。
それを、VBA?をつかって、簡潔に印刷することはできませんか?

【31877】Re:教えて下さい。
発言  ponpon  - 05/12/1(木) 19:02 -

引用なし
パスワード
   こんにちは。

>現在 関数、V−LOOKUPを多用し
>あるセルに”1”を入れ、印刷し、次に”2”を入れ印刷。
1や2をどこに入れると何がどうなるのでしょうか?

ブックの構成やシートのレイアウトがわからないし、
1や2を入れるとどうなるかわからないので、
アドバイスのしようがありません。

たぶんあるシートのどこかのセルに1〜100までの数字を入れてそのシートを
印刷するのだとは思いますが・・・

For i = 1 To 100
 WorkSheets("シート何とか").Range("どこかのセル").Value = i
  ActiveSheet.PrintOut
Next

【31885】Re:教えて下さい。
質問  mako E-MAIL  - 05/12/1(木) 20:55 -

引用なし
パスワード
   ▼ponpon さん:
>こんにちは。
>
>>現在 関数、V−LOOKUPを多用し
>>あるセルに”1”を入れ、印刷し、次に”2”を入れ印刷。
>1や2をどこに入れると何がどうなるのでしょうか?
>
>ブックの構成やシートのレイアウトがわからないし、
>1や2を入れるとどうなるかわからないので、
>アドバイスのしようがありません。
>
>たぶんあるシートのどこかのセルに1〜100までの数字を入れてそのシートを
>印刷するのだとは思いますが・・・
>
>For i = 1 To 100
>  WorkSheets("シート何とか").Range("どこかのセル").Value = i
>  ActiveSheet.PrintOut
>Next

ありがとうございます。
説明不足で申し訳ありません。
お答え頂いたその通りなのです。
もう一つ教えて頂けますか?
その数式を、
>For i = 1 To 100
>  WorkSheets("シート何とか").Range("どこかのセル").Value = i
>  ActiveSheet.PrintOut
>Next
どこに、どのように入れればよいのでしょうか?

【31887】Re:教えて下さい。
発言  ponpon  - 05/12/1(木) 21:14 -

引用なし
パスワード
   こんばんは。

こんな感じにして、標準モジュールに貼り付けてください。
実行するには、フォームのボタンに登録すればよいと思います。

Sub 連続印刷()
  Dim i As Integer

  For i = 1 To 100
    Worksheets("シート何とか").Range("どこかのセル").Value = i
    ActiveSheet.PrintOut
  Next
End Sub

【31909】Re:教えて下さい。
お礼  mako E-MAIL  - 05/12/2(金) 7:46 -

引用なし
パスワード
   ▼ponpon さん:
>こんばんは。
>
>こんな感じにして、標準モジュールに貼り付けてください。
>実行するには、フォームのボタンに登録すればよいと思います。
>
>Sub 連続印刷()
>  Dim i As Integer
>
>  For i = 1 To 100
>    Worksheets("シート何とか").Range("どこかのセル").Value = i
>    ActiveSheet.PrintOut
>  Next
>End Sub

早々、ありがとうございました。
早速やってみます。
今後ともよろしくお願いします。

8671 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free