Excel VBA質問箱 IV

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

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


66413 / 76734 ←次へ | 前へ→

【14885】Re:オートフィルター後のナンバーの読み取り(宛名印刷について)
回答  しん  - 04/6/9(水) 11:33 -

引用なし
パスワード
   ▼YN61 さん:

>UsedRangeという表現がありますが、これは
ワークシートの中の使用済みセル範囲(書式とか値が入力されているセル範囲)を取得するという意味です。

>貴殿のコードを走らせましたが、表示されていないNo.もピックアップしますが、何か問題があるのでしょうか。連番が順次全て表示しますが、小生、何かおかしいことをしているのでしょうか。留意点がありましたら、ご指導ください。
すみません。印刷の部分までチェックしていなかったものですから、もしフィルタされた顧客リストのみを選択番号順に1枚ずつ印刷したいのであれば、以下のVBAコードで印刷できると思いますが・・・。

Sub 葉書宛名差込印刷()
  Dim 番号 As Long
  Dim 最初行 As Long
  Dim 最終行 As Long

  Dim myLastRow As Long  '最終行を格納する変数
  Dim myLastCol As Integer '最終列を格納する変数
  
  Dim i As Long      '行を格納する変数
  Dim j As Integer     '列を格納する変数

  Worksheets("顧客リスト").Activate
  
  Call RowColumn(myLastRow, myLastCol)
 
  最終行 = myLastRow
  最初行 = 2
  
  Worksheets("宛名印刷").Activate
  
  For i = 最初行 To 最終行
    For j = 1 To myLastCol
      Worksheets("宛名印刷").Cells(1, 4 + j).Value = Worksheets("顧客リスト").Cells(i, j).Value
    Next j
    Worksheets("宛名印刷").PrintOut
  Next i
End Sub

Sub RowColumn(myLastRow, myLastCol)
  With ActiveSheet.UsedRange
   myLastRow = .Rows(.Rows.Count).Row
   myLastCol = .Columns(.Columns.Count).Column
  End With
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 お礼

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