Excel VBA質問箱 IV

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

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


61995 / 76732 ←次へ | 前へ→

【19347】Re:非表示部分の連番の付け方
回答  bykin  - 04/10/28(木) 20:04 -

引用なし
パスワード
   こんばんわ。

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

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

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

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

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

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

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

試してみてな。
ほな。
1 hits

【19029】非表示部分の連番の付け方 YN61 04/10/19(火) 19:55 質問
【19033】Re:非表示部分の連番の付け方 ichinose 04/10/19(火) 23:14 回答
【19072】Re:非表示部分の連番の付け方 YN61 04/10/20(水) 20:33 お礼
【19039】Re:非表示部分の連番の付け方 Asaki 04/10/19(火) 23:59 回答
【19071】Re:非表示部分の連番の付け方 YN61 04/10/20(水) 20:30 質問
【19122】Re:非表示部分の連番の付け方 Asaki 04/10/22(金) 10:10 回答
【19133】Re:非表示部分の連番の付け方 bykin 04/10/22(金) 22:35 発言
【19148】Re:非表示部分の連番の付け方 Asaki 04/10/23(土) 11:40 発言
【19153】Re:非表示部分の連番の付け方 bykin 04/10/23(土) 19:53 発言
【19195】Re:非表示部分の連番の付け方 YN61 04/10/24(日) 23:11 お礼
【19313】Re:非表示部分の連番の付け方 YN61 04/10/28(木) 6:38 質問
【19347】Re:非表示部分の連番の付け方 bykin 04/10/28(木) 20:04 回答
【19505】Re:非表示部分の連番の付け方 YN61 04/11/5(金) 21:11 お礼
【19056】Re:非表示部分の連番の付け方 bykin 04/10/20(水) 12:24 回答
【19073】Re:非表示部分の連番の付け方 YN61 04/10/20(水) 20:37 お礼

61995 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free