Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8673 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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を使っています。
現在　関数、Ｖ−ＬＯＯＫＵＰを多用し
あるセルに”１”を入れ、印刷し、次に”２”を入れ印刷。
ワンクリックに１枚のシートを印刷し、
それを繰り返し、１〜１００までの印刷を繰り返しています。
それを、ＶＢＡ？をつかって、簡潔に印刷することはできませんか？
【31877】Re:教えて下さい。
発言  ponpon  - 05/12/1(木) 19:02 -
引用なし
パスワード
   こんにちは。

>現在　関数、Ｖ−ＬＯＯＫＵＰを多用し
>あるセルに”１”を入れ、印刷し、次に”２”を入れ印刷。
１や２をどこに入れると何がどうなるのでしょうか？

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

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

For　i = 1 To 100
　WorkSheets("シート何とか").Range("どこかのセル").Value = i
　 ActiveSheet.PrintOut
Next
【31885】Re:教えて下さい。
質問  mako E-MAIL  - 05/12/1(木) 20:55 -
引用なし
パスワード
   ▼ponpon さん：
>こんにちは。
>
>>現在　関数、Ｖ−ＬＯＯＫＵＰを多用し
>>あるセルに”１”を入れ、印刷し、次に”２”を入れ印刷。
>１や２をどこに入れると何がどうなるのでしょうか？
>
>ブックの構成やシートのレイアウトがわからないし、
>１や２を入れるとどうなるかわからないので、
>アドバイスのしようがありません。
>
>たぶんあるシートのどこかのセルに１〜１００までの数字を入れてそのシートを
>印刷するのだとは思いますが・・・
>
>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

早々、ありがとうございました。
早速やってみます。
今後ともよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8673 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free