質問: range("社員番号") loop end sub ------------------------- 本題ですが質問は以下の通りです。 社員番号は欠番もあるので、 自1 至5 と入れると 社員番号4も#n/aというデータでプリントされてしまいます。 たとえばリストに社員番号がない場合 (印刷範囲内に含まれる欠番)は プリントアウトしないようにしたいのですが 可能でしょうか。 尚、初心者なので何とか作ったものの これ以上どうしていいか行き詰ってしまいました。 ワードで差し込み印刷すれば・・・とも思ったのですが 可能なら何とか完成させたいです。 質問内容が十分かどうかも 分からないため、このほかにも必要な情報がありましたら ご指摘ください。 どうぞよろしくお願致します。
回答: よく内容の分らない質問ですそして以下のように作りました。 sub 個人通知票印刷() range("社員番号") = range("自") do while range("社員番号") <= range("至") sheets("個人票").printout range("社員番号") = range("社員番号") loop end subこれで本当に処理されますか? もろもろ、ありますが面倒なので 結局は赤い数字が変化すればよいだけと解釈しました 質問者さん的に書くとこんな感じですかね sub test() dim i for i = range(開始ページ).value to range(終了ページ).value if range(表の社員番号列 & i + 1).value = i then range(赤の数字).value = i next end sub たったこれだけです まあ、解釈が合ってればの話ですがね 自分で見ても解かり難い シート名やセルアドレスは明確にね できればexcelやwindowsのバージョンも 回答しにくいので