Excel VBA質問箱 IV

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

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


66530 / 76738 ←次へ | 前へ→

【14771】オートフィルター後のナンバーの読み取り(宛名印刷について)
質問  YN61  - 04/6/7(月) 19:37 -

引用なし
パスワード
   今晩は、質問をさせていただきます。

名簿の葉書宛名印刷について

『顧客リスト』の最左列に連番(No.)に基づき宛名印刷をしています。(別シートに『宛名印刷』のフォームを作成しています)
しかしながら、顧客リストにオートフィルターをかけて必要な顧客(必要なNo.対象顧客)のみを印刷したいのですが、現在のコードでは、オートフィルターが反映されません。
オートフィルターをかけた状態の画面に出ているヴィジュアルセル(No.)のみを順次選択して印刷に反映させるには、このコードをどのように変更を加えればよいのか、ご指導ください。

Sub 葉書宛名差込印刷()

Dim 番号 As Long
Dim 最初行 As Long
Dim 最終行 As Long

  Worksheets("顧客リスト").Activate

   最終行 = Range("B65536").End(xlUp).Row - 10
   最初行 = Range("B65536").End(xlUp).Offset.End(xlUp).Row - 9

  Worksheets("宛名印刷").Activate
   For 番号 = 最初行 To 最終行
     Sheets("宛名印刷").Range("E1").Value = 番号
     Sheets("宛名印刷").PrintOut
 Next 番号
  
End Sub

0 hits

【14771】オートフィルター後のナンバーの読み取り(宛名印刷について) YN61 04/6/7(月) 19:37 質問
【14790】Re:オートフィルター後のナンバーの読み取... kein 04/6/8(火) 0:38 回答
【14881】Re:オートフィルター後のナンバーの読み取... YN61 04/6/9(水) 6:20 お礼
【14791】Re:オートフィルター後のナンバーの読み取... しん 04/6/8(火) 0:40 回答
【14882】Re:オートフィルター後のナンバーの読み取... YN61 04/6/9(水) 6:46 お礼
【14885】Re:オートフィルター後のナンバーの読み取... しん 04/6/9(水) 11:33 回答
【14903】Re:オートフィルター後のナンバーの読み取... しん 04/6/9(水) 19:55 回答
【14906】Re:オートフィルター後のナンバーの読み取... IROC 04/6/9(水) 22:29 回答
【14909】Re:オートフィルター後のナンバーの読み取... しん 04/6/9(水) 23:08 発言
【14941】Re:オートフィルター後のナンバーの読み取... YN61 04/6/10(木) 22:53 お礼

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