| |
いま、たとえば「顧客リスト」シートのA,B,C列のデータが
A B C
No. 顧客 住所
1 a 東京
2 b 神奈川
3 c 東京
4 d 大阪
5 e 島根
6 f 奈良
7 g 東京
8 h 北海道
9 i 沖縄
10 j 山口
であったとき
>顧客リストにオートフィルターをかけて必要な顧客（必要なNo．対象顧客)のみを
>印刷したいのですが、現在のコードでは、オートフィルターが反映されません。
>オートフィルターをかけた状態の画面に出ているヴィジュアルセル（No.)
が
A B C
No. 顧客 住所
1 a 東京
3 c 東京
7 g 東京
のように表示されているとすれば、下記のようなVBAコードで処理ができると思いますが・・・、オートフィルターとビジュアルの意味がよくわからないので、ご質問の回答とはなっていないかも知れませんね。
Sub 葉書宛名差込印刷()
Dim 番号 As Long
Dim 最初行 As Long
Dim 最終行 As Long
Dim myLastRow As Long '最終行を格納する変数
Dim myLastCol As Integer '最終列を格納する変数
Worksheets("顧客リスト").Activate
Call RowColumn(myLastRow, myLastCol)
最終行 = myLastRow
最初行 = 2
Worksheets("宛名印刷").Activate
For 番号 = 最初行 To 最終行
Sheets("宛名印刷").Range("E1").Value = 番号
Sheets("宛名印刷").PrintOut
Next 番号
End Sub
Sub RowColumn(myLastRow, myLastCol)
With ActiveSheet.UsedRange
myLastRow = .Rows(.Rows.Count).Row
myLastCol = .Columns(.Columns.Count).Column
End With
End Sub
|
|
しん
- 04/6/8(火) 0:40 -
