マクロで、指定した条件の結果によって印刷をしたい

質問

excelで作成している出勤簿の印刷なのですが、マクロについてお詳しい方、ぜひ教えてください。

出勤簿は”出勤簿”というシート名にあり、
氏名や社員番号等の欄へはvlookupにより、
”出勤簿”のセルL1を検索値として、
”名簿”というシートのA2:F51に検索をかけた結果が表示されるようにしています。

そして検索値に指定してある”出勤簿”のセルL1には、1から50まで、1ずつ数字が足され、
氏名欄が空白の場合は出力しない、という単純なマクロを組んであります。

これに今度は、”名簿”シートの6列目に”×”が入力されている人については出力しない、
逆に言えば6列目に”×”がない人のみ印刷するというマクロを追加したいのです。

いろいろ試してみましたが、どうしてもエラーが出てしまい、実行できません。
あちこちのホームページを探してみましたが、私のしたいことと合致しているものが見つからず、
こちらへ相談させていただきました。

わかりにくい文章かと思いますが、よろしくお願いします。

回答No.2

MackyNo1 · ベストアンサー

>仰る通りの方法なら簡単にいくのは私も承知なのですが、マクロについて現在勉強中なので、実践の中でさらに一つでも新しいことを覚えたい、という意図があり、あくまでマクロでの方法を教えていただけるよう、相談にまいりました。

私の提示した方法が簡単にできるなら、その方法でどの部分に問題あるのかわからないのですが（一般にワークシート関数を利用した方がパフォーマンスが良い）、単純に1つのセルを使いたくないということでしょうか？

もしVLOOKUP関数などを使用してセルに「×」を表示したいくないということでしたらWorksheetFunctionを使用するだけですが・・・

以下のページを参考にしてVLOOKUP関数などで対応する６列目のデータを取得してこの値が×、または氏名欄のデータが空白ならという条件文に変更すればよいと思います。

http://www.excel.studio-kazu.jp/kw/20041202093153.html

#もし回答者から具体的なコードを希望されるなら、現在使用しているコードを提示されたほうが良いと思います。

お礼

＞私の提示した方法が簡単にできるなら、その方法でどの部分に問題あるのかわからないのですが（一般にワークシート関数を利用した方がパフォーマンスが良い）、単純に1つのセルを使いたくないということでしょうか？

いえ、そういうことではなくて、単純にマクロの勉強の為に、というだけのことです。

こんなにすぐにまたご回答いただけて本当にありがたいです。
教えていただいたＨＰを拝見しましたところ、
私の探していたものとかなり似ていたのでそれを参考に再度挑戦してみたところ、
見事一発で成功しました！

本当に助かりました。そして勉強になりました。

ありがとうございました。

回答No.1

MackyNo1

＞そして検索値に指定してある”出勤簿”のセルL1には、1から50まで、1ずつ数字が足され、氏名欄が空白の場合は出力しない、という単純なマクロを組んであります。

このコードをそのまま利用するなら、どこか空白セルに6列目の×を抽出しておき（印刷しないのだからそのままでもOKですが気になるならフォント色を白にする）、このセルの値が「×」の場合は印刷しないという条件を1行追加するだけで良いと思います。

補足

早々の回答、ありがとうございます。
一つ、説明不足で申し訳ありませんでした。

仰る通りの方法なら簡単にいくのは私も承知なのですが、
マクロについて現在勉強中なので、
実践の中でさらに一つでも新しいことを覚えたい、という意図があり、
あくまでマクロでの方法を教えていただけるよう、
相談にまいりました。

MackyNo1さんがマクロにお詳しい方でしたら、
上記のような私の事情を踏まえて、
今一度、マクロでの実行方法をご教授願えればと思います。

よろしくお願いします。