チョットしたメモ
エラー回避
On Error Resume Next

全ての行を表示
Rows.Hidden = False
全ての列を表示
Columns.Hidden = False

ブックをアクティブ
Workbooks(1).Activate

印刷プレビューを表示
WorkSheets(1).PrintPreview

VBA高速化
Application.ScreenUpdating = False’画面更新しない
Application.EnableEvents = False'イベントを通知しない
Application.Calculation = xlCalculationManual’計算しない

そして、終わりに
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

を入れて戻します。
スポンサーサイト

コメントの投稿

非公開コメント

プロフィール

とも

Author:とも
FC2ブログへようこそ!

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
FC2カウンター
検索フォーム
RSSリンクの表示
リンク
QRコード
QR