- 2008-06-16 (Mon) 00:02
- web
前回までのエントリーを書きながら調べ直してみると、今まで繋がらなかったパーツをうまくまとめられそうなヒントを発見！
それは、最初のマクロで抽出した会員番号をそのまま選択範囲として、その値の会員シート番号を印刷するシート名として取り込むかたちにすることです。
これで2つのマクロを1つにまとめることができました。
実際に検証してみても OKです！
あと、合計表に順次登録した取引全てを選択範囲にできるように、始まりのCells(4, 2)から最終行の12列目Cells(e, 12)を選択する
最後に、ツールバーにボタンを挿入してマクロ登録。
さあこれで取引入力を終えたら、ボタン一つで OK! です。
これで今までの煩わしいシートの移動、印刷の繰り返し作業から開放されます。
ようやく希望通りのマクロを作ることができました。
満足♪
(注：Excel2003で作成)
それは、最初のマクロで抽出した会員番号をそのまま選択範囲として、その値の会員シート番号を印刷するシート名として取り込むかたちにすることです。
Range("F2:F38").SpecialCells(xlCellTypeVisible).SelectEXCEL マクロ.3で作ったマクロの前半に自動記録のマクロを入れ込み、オートフィルターの抽出範囲のうち印刷に必要な会員番号の部分Range("F2:F38")の可視セルを Select して後半のマクロに渡すようにしました。
For Each r In Selection
Sheets(CStr(r)).Select
ActiveWindow.SelectedSheets.PrintOut
Next
これで2つのマクロを1つにまとめることができました。
実際に検証してみても OKです！
あと、合計表に順次登録した取引全てを選択範囲にできるように、始まりのCells(4, 2)から最終行の12列目Cells(e, 12)を選択する
e = Cells(4, 2).End(xlDown).Rowを追加。
Range(Cells(4, 2), Cells(e, 12)).Select
最後に、ツールバーにボタンを挿入してマクロ登録。
さあこれで取引入力を終えたら、ボタン一つで OK! です。
これで今までの煩わしいシートの移動、印刷の繰り返し作業から開放されます。
ようやく希望通りのマクロを作ることができました。
満足♪
(注：Excel2003で作成)
- Newer: EXCEL マクロ.5
- Older: EXCEL マクロ.3
Trackback : No Trackbacks
- TrackBack URL for this entry
- トラックバックの際は上記 URL をクリック、コピーしてご利用ください。
- EXCEL マクロ.4 from ChaBlog