|
▼bykin さん、Asakiさん:
今晩は、色々とご心配をかけています。
本当に失礼しています。
宛名印刷シートはvlookup関数を使っています。
E1のセルを使ってリストを表示させています。
古いリスト(氏名・住所・電話などなど)は一旦非表示にさせて、
表示リストのみを差込印刷の対象にしようと、作り出したのですが
こんなに、皆様にご迷惑をかけてしまい申し訳御座いません。
この下のコードを使って、一度させていただきます。
>たぶん・・・でっけど、YN61はんの宛名印刷シートではVLOOKUP関数を使って
>住所録シートのリストから参照させてるんやと思います。
>で、VLOOKUPの第一引数(=検索値)が入ってるセルがE1なんやないかな?
>
>E1の数値をインクリメントすることで、リストから順番に表示させて
>印刷する・・・ってのをループでやってるんやと思います。
>
>で、この推測が正しいとして・・・
>Asakiはんのコードやったら、隠れてるセルの数値をクリアしてへんから
>全部?出てくるってことなんかなー?(わからんけど)
>Asakiはんのコードの
>
> Set r = Range(Cells(2, 1), Cells(65536, 1).End(xlUp)).SpecialCells(xlCellTypeVisible)
>
>を
>
> With Range(Cells(2, 1), Cells(65536, 1).End(xlUp))
> Set r = .SpecialCells(xlCellTypeVisible)
> .ClearContents
> End With
>
>ってやってみたらどうかな?
>
>ま、あくまで推測でっけど。
>
>>YN61はん
>
>もーちっと詳しい内容をAsakiはんに伝えんと、答え出えへんと思うよ。
>ほな。
失礼しました。なかなか表現が難しくって、皆様にご迷惑をかけました
これからもよろしくお願いします。・・・・・・YN61
|
|