excelで印刷用のマクロを作りたい。

質問

お世話になります。
excelでわからない事があり、困っています。

　　 A 　　　　　　　　　　　B 　　　　　　 C
1　書類ナンバー　　　担当者　　　部署名
2　　　１ 　　　 　　　　　 田中　　　　総務部
3　　　２　　　　　　　　　鈴木　　　　人事部
4　　　３　　　　　　　　　大山　　　　営業部
5　　　４　　　　　　　　　西田　　　　マーケティング部

この様な表があり、A列の書類ナンバーで範囲を指定して、その範囲だけを印刷できるようにしたいです。
範囲指定方法は、指定したセルに入力する、またはポップアップに入力する、どちらかにしたいと考えています。
この様にしたいのですが、やり方を教えて頂けないでしょうか。
よろしくお願い致します。

回答No.3

hallo-2007 · ベストアンサー

マクロの記録実行してみると、手がかりが出てきますよ。
Sub Macro1()
Range("B2:E2").Select'2行目に項目がある
i = InputBox("最初の番号を入れてください")
j = InputBox("最後の番号を入れてください")
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=" & i, Operator:=xlAnd, _
Criteria2:="<=" & j
With ActiveSheet.PageSetup
.Zoom = 70'印刷の設定の部分
End With
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter
End Sub
試していませんが、大丈夫かと、内容理解して応用してください。

お礼

ありがとうございます。
できました！！

回答No.2

imogasi

指定した範囲を印刷する、普通の印刷する操作が、エクセルの印刷にある。
これをマクロの記録をとっって、良く見てから質問すること。
その場その場で変える場所は何処か、それを実現するコードを作るのは全く歯が立たないのか、考えてからのここへ質問してこそ、この質問コーナーを生かせる。
この質問ではやりたいことを丸投げしただけ。
ーー
推測では
番号体帯ーー＞セル範囲を割り出すのが課題かな？
それより、別シートへ印刷したい行を抜き出し、別シート全行印刷という考えも取れるかもしれない。
それと初心者のうちは、使用者とのインターフェイス（＞ポップアップに入力するのようなことに）に凝らないようにしたほうが良い。
他人に使ってもらうものを作るのはVBAに熟練した相当先だと思う。

お礼

ありがとうございます。
お二人の答えを参考にしてなんとか思い通りの動きになりました！

補足

すみません。excelは、ほとんど使った経験が無いのですが、急に上からこんな物を作ってくれといわれたので・・・
別シートに抜き出す印刷方法も良いかもしれませんね。
おっしゃるとおり、セル範囲の選択方法がわからないです。
上記のVBAを参考にして、ある程度は出来ました。

Sub Macro1()
Range("A2:I65536").Select
i = InputBox("番号を入れてください")
k = InputBox("番号を入れてください")
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=2", Operator:=xlAnd, _
Criteria2:="<=5"
With ActiveSheet.PageSetup
.Zoom = 70
End With
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter
End Sub

ここまで書きましたが、範囲の指定方法がわかりません。
6行目のCriteria1:=">=2"の部分の数字の2を、iのInputBoxに入れた任意の数字に、Criteria2:="<=5"の5をkのInputBoxに入れた任意の数字に変更したいです。どこを直せば良いのでしょうか？

回答No.1

hallo-2007

マクロの記録で
１　A～C列選択　オートフィルター
２　適当に２でフィルターかける
３　印刷プレビュー　
４　オートフィルター解除

以下で記録されたVBAにINPUTBOXと　iという変数使用しました。

Sub Macro1()
Range("A:E").Select
i = InputBox("番号を入れてください")
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=i
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter
End Sub

補足

回答ありがとうございます。
まだ少しわからない事があるので、教えて頂ければと思います。

このマクロですと、一列目の書類ナンバーや担当者、部署名はそのまま印刷されますが、これらが二列目にあった場合同じよう同じ様に印刷するには、どう変更すればよろしいのでしょうか？？
また、書類ナンバーの２～４まで等、複数範囲を指定したい場合はどうすれば良いのでしょうか？
それと、印刷倍率を70％になる様に出来ればと思うのですが可能でしょうか？？
よろしくお願い致します。