| |
▼ｂｙｋｉｎ さん、Asakiさん：
今晩は、色々とご心配をかけています。
本当に失礼しています。
宛名印刷シートはvlookup関数を使っています。
E1のセルを使ってリストを表示させています。
古いリスト（氏名・住所・電話などなど）は一旦非表示にさせて、
表示リストのみを差込印刷の対象にしようと、作り出したのですが
こんなに、皆様にご迷惑をかけてしまい申し訳御座いません。
この下のコードを使って、一度させていただきます。
>たぶん・・・でっけど、YN61はんの宛名印刷シートではVLOOKUP関数を使って
>住所録シートのリストから参照させてるんやと思います。
>で、VLOOKUPの第一引数（＝検索値）が入ってるセルがＥ１なんやないかな？
>
>Ｅ１の数値をインクリメントすることで、リストから順番に表示させて
>印刷する・・・ってのをループでやってるんやと思います。
>
>で、この推測が正しいとして・・・
>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
|
|
YN61
- 04/10/24(日) 23:11 -
