会社である表にオートフィルタをつけています。
そのオートフィルタのリスト項目ごとに印刷をしたいのですが、
かなり手間がかかってしまうので、マクロをくみたいと考えています。
リストの項目は毎回変わってしまうので、マクロ初心者の私にはとても難しいのです。
お分かりになる方よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

こんばんは!


実際のデータの配置がどのようになっているのか判らないので、方法だけです。

>・・・オートフィルタのリスト項目ごとに印刷をしたいのですが・・・

とありますので、ある列の項目すべてでオートフィルタをしプリントアウトしたい!ということだと解釈してのコードになります。

↓の画像のようにSheet1のD列のすべての項目でオートフィルタをかけて、プリントアウトするようにしてみました。
(Sheet1のD列データをSheet2のA列に重複なしで表示するようにしていますので、Sheet2は使用していないという前提です)

画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)

Sub test() 'この行から
Dim i, j As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1") '←Sheet名は実際のSheet名に!
Set ws2 = Worksheets("sheet2")
ws2.Cells.Clear
For i = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range(ws1.Cells(2, 4), ws1.Cells(i, 4)), ws1.Cells(i, 4)) = 1 Then
ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1) = ws1.Cells(i, 4)
End If
Next i
j = ws1.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
Range(ws1.Cells(1, 1), ws1.Cells(j, 4)).AutoFilter field:=4, Criteria1:=ws2.Cells(i, 1)
ws1.PrintOut
Next i
End Sub 'この行まで

あくまでこちらで勝手に表を作った上でのコードですので、中身は実状に合わせる必要があります。
Sheet1のデータ範囲・オートフィルタの列等々です。m(__)m
「オートフィルタのリストを順番に印刷できる」の回答画像1
    • good
    • 1

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QLサイズで撮影したものをL判で印刷できるか?

私が使っているデジタルカメラ。

デジカメ本体:Canon IXY DIGITAL 800IS
メモリー:1.0GB(ProMaxATP)

私のデジタルカメラの仕様。

撮影サイズ(記録画素数)→ 説明書に書いてある用途

L(2816×2112)→A3サイズに印刷するとき。
M1(2272×1704)→A4サイズに印刷するとき。
M2(1600×1200)→L判やハガキサイズに印刷するとき。
S(640×480)→電子メールで画像を送るとき。

さらに詳しい私のデジカメの仕様(CANONホームページより)

http://www.canon-sales.co.jp/camera/ixyd/800is/spec.html

質問

 【撮影サイズL】で撮影してもメモリーが1Gなので360枚程度撮ることが可能です。そこで、その設定で撮った写真を【L判】に印刷することができますか?

 また、【撮影サイズM1】で撮ったものも【L判】で印刷することは可能ですか?

 要するに、メモリーが1GBと余裕があり、被写体によって1枚ずつ撮影サイズを変更する必要は特にありません。そこで、全て【撮影サイズL】で撮り、ほとんど【L判】で印刷して、必要に応じてさらに大きなサイズで印刷しようと思っています。これは可能ですか?

私が使っているデジタルカメラ。

デジカメ本体:Canon IXY DIGITAL 800IS
メモリー:1.0GB(ProMaxATP)

私のデジタルカメラの仕様。

撮影サイズ(記録画素数)→ 説明書に書いてある用途

L(2816×2112)→A3サイズに印刷するとき。
M1(2272×1704)→A4サイズに印刷するとき。
M2(1600×1200)→L判やハガキサイズに印刷するとき。
S(640×480)→電子メールで画像を送るとき。

さらに詳しい私のデジカメの仕様(CANONホームページより)

http://www.canon-sales.co.jp/camera/ixyd/800is/spec.html

...続きを読む

Aベストアンサー

>【撮影サイズL】で撮影してもメモリーが1Gなので360枚程度撮ることが可能です。そこで、その設定で撮った写真を【L判】に印刷することができますか?

常に最高画質(サイズL、ファイン)で撮影して下さい。(後でファイルサイズを変更する事は可能です。)
大は小を兼ねても、小は大を兼ねる事は出来ないからです。

>【撮影サイズM1】で撮ったものも【L判】で印刷することは可能ですか?

可能です。

Qエクセルの表に複数枚印刷したときに連番をつけたい

Sub NumberPrint()
Dim idx As Integer
Dim frmPage, toPage
frmPage = Application.InputBox("連番を挿入して印刷します" & Chr(13) _
& "開始番号を入力してください", Type:=1)
toPage = Application.InputBox("終了番号を入力してください", Type:=1)
If frmPage > 0 And toPage >= frmPage Then
For idx = frmPage To toPage
Range("AW3").Value = idx
ActiveSheet.PrintOut
Next idx
Else
MsgBox "開始番号、終了番号が不適切です。印刷は行いません"
End If
End Sub過去の質問をみて上記マクロを使用して印刷できましたがスタートの番号は3000001番からスタートさせたいのですがエラーが出てしまいます。どのようなコードにしたらいいのか分からないため教えて下さい。素人で今まで使用したことがないのですいません

Sub NumberPrint()
Dim idx As Integer
Dim frmPage, toPage
frmPage = Application.InputBox("連番を挿入して印刷します" & Chr(13) _
& "開始番号を入力してください", Type:=1)
toPage = Application.InputBox("終了番号を入力してください", Type:=1)
If frmPage > 0 And toPage >= frmPage Then
For idx = frmPage To toPage
Range("AW3").Value = idx
ActiveSheet.PrintOut
Next idx
Else
MsgBox "開始番号、終了番号が不適切です。印刷は行いません"
End If
End Sub過去の質問をみて上記マクロを使用して印...続きを読む

Aベストアンサー

こんにちは!

おそらく変数の宣言部分でエラーになっていると思われます。

>Dim idx As Integer

>Dim idx As Long
と長整数型にしてみてはどうでしょうか?

整数型の Integer は -32,768 ~ 32,767 の範囲しか格納できないはずです。

※ 長整数型だと -2,147,483,648 ~ 2,147,483,647 の範囲の格納が可能です。m(_ _)m

Q2Lサイズの写真のトリミングの取り方を教えて

デジカメの写真を、Lサイズだけでなく、2Lサイズにプリント出来る機械があったので、写真(JPEGファイル)を2Lサイズにプリントしたところ、出来上がった紙の写真のトリミングが適切でなく、写真の端のほうの写っていて欲しい部分がプリントからはみ出して印刷されませんでした。
どうすればこの機械で2Lサイズの写真で、好みのトリミングが出来るのでしょうか。

Aベストアンサー

デジカメ画像のアスペクト比は普通、2:3か3:4。
2Lサイズは、5:7
端が写っていないなら、画像のアスペクト比は、2:3。
通分すると、10:15の画像を10:14にプリントするので左右が切り取られるのです。
ですから、左右がトリミングされないようにプリントすれば良いのです。
その場合、当然、上下に余白ができます。

どんなプリンタをお使いか書いていないので、具体な設定は回答出来ません。
必要なら、使用カメラ、プリンタの機種を補足して下さい。

Qエクセルのオートフィルタについて

今、エクセルを使っているのですが、
リストの抽出で、オートフィルタを使っています。

それで、あるフィールドAでまず条件を一つ抽出し、
次にフィールドBで条件を抽出するのと、
フィールドBで条件を抽出してから、
フィールドAで条件を抽出するのとでは、
結果は同じでなのですか?

Aベストアンサー

フィールドA フィールドB それぞれ条件を入れる場合は
ORではなくANDで抽出となりますので 結果は同じのはずですよ。

Q卵のMとLサイズについて

ケーキを作ろうと思ってLサイズの卵を
買ったつもりがMサイズでした><
レシピはLサイズ3個分なんです・・・(T。T)
Mサイズの卵を計ってLサイズ分に
して作りたいのでLサイズの
卵白と卵黄の教えてください。

Aベストアンサー

MもLも気にする事無く、そのままレシピでMサイズの3個使って作って下さい。
これがSとLだったらかなりの差になるけど、MとLなら気にする必要は皆無です。
基本的には黄身はほとんど変わらずに、大きくなるにつれて白身の割り合いが増えていきます。

Mサイズ:58~64g未満
Lサイズ:64~70g未満
で殻も全部ひっくるめて重さです。
MとLの差は平均6g、黄身の量にいたっては1gくらい、つまり白身だと5gくらい違うか違わないかです。

0.1gでも気になる超神経質な方なら、白身を15gだけ足して下さい。

よく作るけど、卵3個程度のケーキのレシピなら卵のMとLの違いで失敗する事はないですね。
牛乳大さじ1入れて調整する程度です。
失敗するのは他の要因(粉を混ぜ過ぎとか)です。

Qエクセル・オートフィルタについて

エクセルでオートフィルタの使い方について質問です。
2000ほどの行があるデータをひとつづつオートフィルタで同じデータがかぶっていないかチェックしています。
以前まではオートフィルタの逆三角を開くと、開いた列のデータがバーっと一覧で出るので
一つ選んで、データを見る。確認したらまた、逆三角を開いて矢印キーで一つ降りて、データを見る。
というのをやっていたのですが、
今回データチェックをしようとしたらうまくいきませんでした。
というのも、オートフィルタの逆三角を開くとその列のデータの一覧が出るのですが、
選択して確認し、また逆三角を開き矢印キーで降りる。というのを5回ほど連続でやると、
なぜか、データの一覧の一番上のデータに選択が戻ってしまうのです。
データ自体が似たような数字の一覧なので、気付かない内に、一番上のデータに戻っていたり、
一番上に戻ったあと、どこまで調べたのかがわからなくなり、困っています。
以前のようにオートフィルタで一つづつ下がっていくやり方で全部確認をしたいのですが、
どうしたら元に戻りますでしょうか?
PC初心者なので、説明もままならない状態で申し訳ありませんが、
わかる方いらっしゃましたら回答よろしくお願いいたします。

・Microsoft Windows XP
・Microsoft Office Excel 2003 を使用しています。
よろしくお願いします。

エクセルでオートフィルタの使い方について質問です。
2000ほどの行があるデータをひとつづつオートフィルタで同じデータがかぶっていないかチェックしています。
以前まではオートフィルタの逆三角を開くと、開いた列のデータがバーっと一覧で出るので
一つ選んで、データを見る。確認したらまた、逆三角を開いて矢印キーで一つ降りて、データを見る。
というのをやっていたのですが、
今回データチェックをしようとしたらうまくいきませんでした。
というのも、オートフィルタの逆三角を開くとその列のデータの...続きを読む

Aベストアンサー

ANo.1です。

> 実際やってみたのですが、2以上を削除したところ
> 2000行近くあったものが22行になってしまいました。

オートフィルタでC列が2以上の物を表示したとき、表示されたのは確かに重複したデータでしたか?
重複したデータでなければ、C列の式が正しくないか、オートフィルタの条件が正しくない可能性があります。

Q携帯でLサイズ写真

「携帯で撮影したLサイズ以上の写真」

というのは、100万画素を超えるもの(640×480以上)のことでしょうか?

でもそれより小さいものでもLサイズにのばせるしなあ、と考えると
「」内の言葉の意味がよくわからなくて・・・・(^^;)

この言葉の意味は「Lサイズにのばしたときに画像としてきちんと見られるもの」
ということでしょうか?

Aベストアンサー

Lサイズの定義がなんとも曖昧なので断言はできませんが、私の推測は、例えば今時の携帯内蔵カメラは200万画素クラスを備えており、撮影した画像をそのままメールに添付しようとした場合は、携帯キャリアごとに定められている添付容量制限のためにリサイズせねばなりません。(200万画素のフォトサイズは1600×1200でおよそ700KB前後)
リサイズして640×480に変換したものは100KB前後でなんとかギリギリで添付できるかなというところです。(auの場合)

Lサイズ以上がダメということならば、Lサイズ=640×480の予測どおりに違いないと思います。
Lサイズ以上が欲しいということであれば何の問題もないわけですし…。

QEXCELのオートフィルタ解除について教えてください

エクセルで表を作り、オートフィルタを使っています。

A:西暦
B:月日(9月10日とか12月31日などと入力)
C:会社名
D:訪問内容

いずれも文字列入力です。
月日別に分けようと思い、Bでオートフィルタを使用。
昇順で並び替えをしてみました。
すると、月日を4桁で入力していないので10月が頭に
出てきてしまいました。
それだと意味がないので戻そうとしたところ、
それができません。
表示を「すべて」にしてもフィルタを解除しても、
10月がずっと冒頭にきています。。。
元に戻そうと思っても、編集のタブには
「元に戻せません」の文字が・・・

昇順、降順で並び替えてしまったあとには、
最初の順に戻すことはできないのでしょうか?
知ってる方がいたら教えてください。

Aベストアンサー

この質問をされた質問者には3つの心配な点を感じます。的外れであれば、良いんですが。
(1)特に日付について、文字列と日付け数値(日付シリアル値)との区別が意識されているか。
(2)書式で見えている見た目と、値(数式バーで見える値)と区別
できているのか
(3)コンピュターでの並べ替えの基礎的な、原理。むしろエクセルを離れて(エクセルは便利な機能を提供しすぎの面あり)。
(1)は自分が入力するなら、日付は半角で2005/11/23のよう入力し、書式設定で11月23日とか見せましょう。そうすると、最近に近い日付けは日付けシリアル値が大になります。
(2)は現在は12月31日のように文字列で入っているのではないかと思いますが、これは扱いにくいです
(3)は文字列も数値も左の方から文字コードの大小を見てゆきます
。数値の場合は桁がないところは0を補って考えれば良いでしょう。
>昇順、降順で並び替えてしまったあとには
一般論で言えばソートしてしまうと、Undo以外は、元に戻せないので
当初の順に、連番でも振っておかないとダメです。

QLサイズ以上のミニバンを購入する理由って何ですか?

Lサイズ以上のミニバンを購入する理由って何ですか?

できれば、実際にLサイズミニバンを所有されている方にお聞きしたいです。
Lサイズミニバンを購入した理由は何ですか?

※ここで言う「Lサイズミニバン」とは、
(1)アルファード(ヴェルファイア)
(2)エスティマ
(3)エルグランド
(4)エリシオン
(5)他(ラグレイト、プレサージュ、マークXジオなどの3500cc搭載車)
を指します。

Aベストアンサー

必要だからです。

ACR40W エスティマ2.4 4WD所有です。

家族が自分を含め6人、さらに自分の親を加えると8人。
全員で移動する場合も考えての理由です。

また、自営で商売をしてますので配達にも使います。

都市部であれば、公共交通機関が発達してますので移動手段が選択できますがこちらは北海道の片田舎。
マイカーが主たる移動手段です。

家族で長距離移動もしますので、Lサイズミニバンを選択というか、それしか選択肢がありません。

QWebの表組みページを表線を入れて印刷するには?

明けましておめでとうございます

質問はずばり、タイトルの通り
『Webの表組みページを表線を入れて印刷するには?』です。

Webの表組みページを印刷すると表線が印刷されず、
とても見づらくなってしまいます。
表線を印刷できるようにするにはどうすればいいのでしょうか?

よろしくお願いします。

Aベストアンサー

どのサイトのページか書かれていないので違うかもしれませんが。

線表が背景になっている場合は、ツール→インターネットオプション→詳細設定を開き、下方にある印刷「背景の色とイメージを印刷する」にチェックをいれてください。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報