Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61995 / 76732

←次へ　｜　前へ→


	【19347】Re:非表示部分の連番の付け方

ｂｙｋｉｎ - 04/10/28(木) 20:04 -


	引用なし

	パスワード

こんばんわ。

オートフィルタの絞り込みは、どこかの列に○×とか付けてるって
ことなんかな？

まず前提として、「連番の付け直しはしない」ってことに
したほうがええと思います。

１．住所録を全行再表示させて、連番を振りなおす。
２．オートフィルタで印刷対象のデータのみを表示させる。

ここまでは手動でやっておいて・・・

３．宛名印刷用のコードを次のようにする。

Sub 宛名差込印刷()
　　Dim Target As Range
　　Dim r As Range

　　With Worksheets("住所録")
　　　　Set Target = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
　　　　If Target.Row = 2 Then
　　　　　　With Worksheets("宛名印刷")
　　　　　　　　For Each r In Target
　　　　　　　　　　If Not r.EntireRow.Hidden Then
　　　　　　　　　　　　.Range("E1").Value = r.Value
　　　　　　　　　　　　.PrintOut
　　　　　　　　　　End If
　　　　　　　　Next
　　　　　　End With
　　　　End If
　　　　Set Target = Nothing
　　End With
End Sub

・・・なんてので、ええんとちゃいまっか？

試してみてな。
ほな。

0 hits

▼

【19029】非表示部分の連番の付け方 YN61 04/10/19(火) 19:55