|
▼Asaki さん:
こんばんは。
早速ご返事ありがとう御座いました。
いただきました非表示部分の連番が付けられました。→(住所録のNoに使用しました)
例えば、20行の内、3行を非表示にして、連番の打ち直しをすると1〜17まで
綺麗にでました。
その連番を使い、次のようなコードで差込印刷を試みましたが、
非表示部分が、再度出てきます。
どの部分が問題でしょうか。
分かりましたら、教えてください。
Sub 宛名差込印刷()
Dim 番号 As Integer
Dim i As Integer
Worksheets("住所録").Select
Range("A65536").End(xlUp).Select
Range(Selection, Selection.End(xlUp).Offset(1, 0)).Select
i = Selection.SpecialCells(xlCellTypeVisible).Count
Worksheets("宛名印刷").Select
For 番号 = 1 To i
Sheets("宛名印刷").Range("E1").Value = 番号
' Sheets("宛名印刷").PrintOut
Next 番号
Range("A1").Select
End Sub
|
|