|
こんばんわ。
>Asakiはん
たぶん・・・でっけど、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はんに伝えんと、答え出えへんと思うよ。
ほな。
|
|