• 締切済み

エクセルの印刷について

MS office97を使用しています。 エクセルの印刷について 教えて下さい。 「シート2」表を作成しています。 「シート1」の「A1」の入力されている数字が 1 であれば 「シート2」の表を1部印刷 「シート1」の「A1」の入力されている数字が 2 であれば 「シート2」の表を2部印刷 と云うように、指定された通りに 印字出来る マクロなどは 組めないのでしょうか???? 出来るのであれば 教えて下さい。

みんなの回答

  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.1

こんな感じでしょうか。A1に入力された部数、Sheet2を印刷します。 『シート1、シート2』がシート名なら『Sheet1、Sheet2』を変えて下さい。(Excel97で確認) 標準モジュールに貼り付けます。 Sub Insatu()   Dim maisuu As Integer '枚数   maisuu = Worksheets("Sheet1").Range("A1")   If maisuu > 0 Then     Worksheets("Sheet2").PrintOut Copies:=maisuu   Else     MsgBox "枚数を指定して下さい。"   End If End Sub

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • エクセル・・・・印字部数の任意指定について

    毎度・毎度 申し訳ありません。エクセルでの質問です よろしくお願いします。 「シート1」の(A1)に数字 1 が入っていて、マクロされたボタンを押下したら、シート2の内容が1部印刷される、(A1)に数字 2 って入っていたら、シート2の内容が2部印刷されるという、印字部数を任意で変えれる、マクロ作成方法を教えて頂きたいのですが・・・ツール→マクロ→新しいマクロの作成であれば、印字部数が固定される為、よろしくお願い致します。

  • エクセルの印刷指定

    お世話になります。 エクセルのシートが10枚あるとします。 Sheet1の名前は「指定表」Sheet2以降は「1枚目・・・9枚目」と変更してあります。 VBAで「指定表」のA1に「1」と入力しマクロの登録ボタンを押すと、「1枚目」が出力され、以下「2」と入力し登録ボタンを押すと「1枚目」と「2枚目」が出力される、「3」なら「1~3枚目」が出力される。 と言うように入力された数値の値のシートの枚数が出るようなマクロをご教示ください。

  • Excelで1部印刷する毎に連番を2箇所つけたい

    Excelで1ページに同じ表を2つ作成し、それぞれに連番を振って印刷した後に切り離して利用したいと考えています。 連番の位置の都合上、ヘッダーやフッターの機能では対応できません。 例えば、表1、表2を1ページに作成し、表1内のセルA1に「1」、表2内のセルA10に「2」と入力し、10部印刷したとします。 1部目は表1のA1の場所に「1」、表2のA10の場所に「2」と印刷され、2部目は表1に「3」、表2に「4」と印刷される、といった具合で、10部目は表1に「9」、表2に「10」となります。 また、A1に「5」、A10に「6」と入力した状態で印刷した場合は、1部目は表1に「5」、表2に「6」、2部目は表1に「7」、表2に「8」となりようにしたいです。 解決策を検索すると、マクロを開いて印刷部数を直接記述する方法がありますが、その作業ができない人も印刷するため、単純に表1、表2にスタート時の番号を入れておけば、後は印刷した部数分、自動で番号が1ずつ増えていくようにしたいです。 ボタンを設置してマクロを実行する形は問題ないと思います。 環境はExcel2010、Windows7です。 説明がややこしくなりましてすみません。 どなたかご教示のほど、よろしくお願いします。

  • Excelのプログラムについて

    "Excel エクセル"で添付画像のようなプログラムの作成は可能でしょうか? (1)Sheet1の入力欄に数字を入力すると、(2)Sheet2にある総当たり表を参照して、(3)Sheet1に入力した数字で新しく総当たり表を作成する ※入力欄に入れる数字を変えれば自動で出力される総当たり表の内容も変わる 私は、エクセルのマクロとか関数の初心者で詳しいことが分からなくて困っています。 これを機に勉強しようと考えておりまして 〇エクセルでこのプログラムが書けるのか 〇どの関数を勉強すればよいのか を教えていただければと思います。 よろしくお願いいたします。

  • Excelで連続印刷をするマクロ

    Excelでデータベース的な使い方をしています。 「データ」シートにたくさんのデータがあり, 「レポート」シートのA1セルに入力した数字に該当するデータをVLOOKUP関数で読み込んでいます。 それを連続印刷するときに, 現在は For n = 1 To 135 Range("A1").Select ActiveCell.FormulaR1C1 = n ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next n End Sub というマクロで実行させています。 (ちなみにマクロの知識がほとんどなく 「新しいマクロの記録」を利用して作ったため,ほとんど意味は分かっていませんが・・・) このマクロでも印刷できるのですが, このままだとデータが 1 ~ 135に固定されてしまいますよね。 実際はデータ数が変動するので,そのたびにマクロの数字を変えています。 そこで考えているのが 新たに「設定」シートを作成して そこのiとjのセルに数字を入力することで,自動的に マクロが n = (iに入力した数字) To (jに入力した数字) となるようにした方が便利だと考えています。 あまりマクロについての知識がないくせに ほんのちょっとの工夫でできるような気がして・・・ あれこれ試してみたけどできません。 できれば今のマクロを根本的に変えるのではなくて 少しの変更とか追加とかでできるようにしたいのですが可能でしょうか? ぜひ 教えてください。よろしくお願いします。

  • エクセルの印刷について

    エクセルで、ある名簿を作成し、それを印刷したのですが、 その表が中央にあり、上下にスペース(余白というのでしょうか?)が 空きすぎています。 表自体は中央にあるので位置的には問題ないのですが、表を 縦長にして印刷することはできないのでしょうか?? 印刷用紙はA4ですので、A4いっぱいにその表が写し出されるように 印刷したいです。 office2007のエクセルを使用しています。 基本的なことかもしれないですが、どうかご教示下さいませ。

  • エクセル2010で印刷

    エクセル2010で作成した表(数字記入)を範囲を指定して 印刷ができません。印刷したいところマウスで範囲指定しファイルより 印刷をクリックしてもプリンタ画面が表示されないので、選択対象が できません。以前(2000)のエクセルではできていたのですが。Windowz7 です。教えて下さい。宜しく。

  • エクセルの印刷

    エクセルで2頁の資料を作成し、毎月数値のみ入力しなおして使っています。 その資料の印刷ですが、最初に誤って2部印刷してしまいました。 それからは毎月、印刷設定画面を開くと2部になっているので、1部にして印刷しなければならなくなってしまいました。マクロも組んでいない資料なのにです。 どうしたら1部になおるでしょうか?

  • エクセルのマクロで、印刷設定をしたいのですが可能でしょうか?

    エクセルのマクロで、印刷設定をしたいのですが可能でしょうか? お世話になっています。 会社での作業を少しでも効率よく出来ないものかと、以下のようなことを考えています。 エクセル2003を使用していますが、下記のような動作をするマクロを組むことは可能でしょうか? よろしくご教授ください。 Sheet1は、入力用のシートとして使っています。 Sheet2は、Sheet1に入力された商品データなどから、必要な箇所のみ反映されるように設定しています。 このシートは、罫線などが存在し表形式になっており、全てを印刷するとA4用紙6枚分になります。 そこで、Sheet1(入力用のシート)のJ18セルに文字が入力された場合は、Sheet2(印刷用のシート)の1ページだけを印刷したく、Sheet1のj27セルに文字が入力された場合は、Sheet2の2ページまで・・・ Sheet1のJ36に文字が入力された場合は、Sheet2の3ページまでという風に印刷範囲を設定しなくても印刷出来るようにしたいのです。 よろしくお願いします。

  • excelで非表示シートを印刷する方法

    excelで非表示シートを印刷する方法 いつもありがとうございます。 タイトルの件について質問させていただきます。 エクセルで保護をかけ非表示にしたシートを 別のアクティブシートから印刷する方法は ありますでしょうか。 印刷用シートが多数となってしまうため、 必要ないシートは非表示にしておきたいのですが、 非表示にすると印刷ができずに困っています。 やりたいこととしては、  入力用と印刷用1、印刷用2、印刷用3などのシートを作成  入力用のシートには各シートの印刷を設定したマクロのボタンを作成  入力用シートからボタン一つで各印刷用シートを印刷 ということがしたいです。 マクロでなくてもいいのですが、何らかの方法があればご教示ください。 宜しくお願いいたします。

打たれ弱さを克服する方法
このQ&Aのポイント
  • 私は職場での打たれ弱さに悩んでいます。体育会系の部署に異動してきたことで、言葉遣いや怒気のある態度に傷つき、自信を失ってしまいました。緊張や滑舌の問題もありますが、どうすれば打たれ強くなれるでしょうか。
  • 最近異動してきた職場で、自身の打たれ弱さに悩んでいます。同じ作業をする席の人からは怒気のある態度で言葉を投げかけられ、それが原因で緊張して言葉が詰まり赤面してしまいます。どのようにすれば打たれ強くなれるのでしょうか。
  • 職場での打たれ弱さに悩んでいます。新しい部署に異動してきたばかりで、同じ作業をする人からは厳しい言葉遣いで接されることがあります。自分の緊張や滑舌の問題もありますが、打たれ強くなる方法はありますか?
回答を見る

専門家に質問してみよう