人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

質問です
添付のマクロを複数のsheetにあるデータで実行できるように
修正したいのですが
よろしくお願いします

1349755251
●拡大する

●質問者: inosisi
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

質問者から

一度質問させていただきできたマクロですが
データが1sheetの限界行以上のデータに対応したいための変更です


1 ● Silvanus
●200ポイント ベストアンサー

変数の定義に
Dim j As Long
を追加し、処理部分に下記※印行を追加してはいかがでしょうか。
?????
【ここまでそのまま】
With Workbooks.【そのまま】
※ For j = 1 To Sheets.Count
※ Sheets(j).Activate
last =【そのまま】
【そのまま】
End If
Next (iに対する)
※ Next (jに対する)
.Close SaveChanges:=True
【以降そのまま】


inosisiさんのコメント
ありがとうございました。 うまくいきました。 処理時間が思ったよりかかりますが 何か処理時間を少なくする方法がありましたら 質問を再度上げたいと思います。 よろしくお願いいたします

Silvanusさんのコメント
BA賞有り難うございます。 VBAによる処理中に画面表示の更新が必要無い場合は 処理前に"Application.ScreenUpdating = False"を、 処理後に"Application.ScreenUpdating = True"を置くと 処理を大幅に高速化することが可能です。 また、処理中に再計算を必要としない場合は更に、 処理前に"Application.Calculation = xlCalculationManual"を、 処理後に"Application.Calculation = xlCalculationAutomatic"を 置くと速度がアップします。 詳しくは、例えば以下のページをご参照下さい。 http://tsukinihinikeni.blogspot.jp/2011/02/excel-vba.html
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ