お世話になります。
VBAで元になるワークシートにデータを代入して、新しく加えた別のブックに
データを入れたもとになるワークシートをコピーするVBAで
ワークシートを15回コピーして一つのBOOKを作るのを
5回ぐらい繰り返させるのですが、処理が終わるまでに
1分かかります。
シートをコピーさせるところで時間がかかってます。
早くする方法教えてください。
高速化についても、このサイトを参考に
してあります。
http://officetanaka.net/excel/vba/speed/
コードの一部ですが、宜しくお願いします
dim atmbook as Workbook
atmworksheet コピー元 ワークシートです。
For mi = 0 To 20
If mname(mi, 0) = "" Then
Exit For
Else
atmworksheet.Range("D2").Value = mname(mi, 0)
atmworksheet.Range("O2").Value = Format(hiduke, "yyyy年m月d日(aaa)")
atmworksheet.Range("D4").Value = mname(mi, 3) & " " & mname(mi, 5) & vb NewLine & mname(mi, 1) & vbNewLine & mname(mi, 2)
atmworksheet.Copy after:=atmbook.Worksheets(atmbook.Worksheets.Count)
End If
atmworksheet.Range("D2").Value = ""
atmworksheet.Range("O2").Value = ""
atmworksheet.Range("D4").Value = ""
Next mi
For mi = 0 To 20
For mj = 0 To 6
mname(mi, mj) = ""
Next mj
Next mi
mi = 0 'mi 初期化
atmbookname = atmbookname & Format(hiduke, "yyyy年m月d日")
Application.DisplayAlerts = False
atmbook.SaveAs Filename:=atmbookname, FileFormat:=xlOpenXMLWorkbookM acroEnabled
atmbook.Close
Application.DisplayAlerts = True
Set atmbook = Nothing
Set atmbook = Workbooks.Add
No.1ベストアンサー
- 回答日時:
sea_clearさんが書いたコードの中には、特筆すべき無駄は無いように思われます。
考えらる(私の知識の範囲で)原因ですが、・・・
①元シートが、そもそも巨大である。
②元シートのセルへ値を代入することにより、再計算が実行されている。
③元シートのセルへ値を代入することにより、実行されるイベントプロシジャがある。
もし①であれば、Worksheet.Copyメソッドを使っている以上、改善は難しいと思います。
②③なら、下記の設定が有効かもしれません。
Application.ScreenUpdating = False '画面表示の更新を抑止する
Application.Calculation = xlManual '計算方法を手動にする
Application.EnableEvents = False 'イベントの発生を抑止する
No.3
- 回答日時:
5ファイル1分、1ファイル12秒、1シート0.6秒、そんなに遅いとも思えませんが、強いて挙げるなら。
。。シートコピー後はコピー先シートがアクティブになるため、表示シートが次々と変わります。表示に時間が掛かりそうですね。他回答にもありますが、Application.ScreenUpdating = False
を試してください。
貴方のコメントを拝見すると「試してみます」が多いです。社交辞令ならいいですが、本当にそう思ってるなら悪い兆候です。回答を見る限り「○○が原因として考えられるので、もし事実であるなら××を試して」という表現です。まず○○に該当してるか否か確認した上で、試すべきです。○○を無視して闇雲に××を試してませんか?
No.2
- 回答日時:
最後の部分
> Set atmbook = Nothing
> Set atmbook = Workbooks.Add
一度オブジェクトを開放した後、再度新ブックを作成しています。
この後に新ブックに対して何等かの作業が行われるのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。
Visual Basic(VBA)
-
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
-
-
4
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
5
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
6
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
7
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
8
EXCEL VBA シートをコピーする時にエラーが発生してしまう件
Excel(エクセル)
-
9
配列の値を置換するにはどうすればいいでしょう?
Excel(エクセル)
-
10
VBA 複数の行を高速で削除する方法
その他(プログラミング・Web制作)
-
11
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
12
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
13
エクセルでコピーができなくなる
Visual Basic(VBA)
-
14
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
15
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
16
ExcelVBA Range クラスの PageBreak プロパティを設定できません。
Visual Basic(VBA)
-
17
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
18
複数の文字列のいずれかが含まれていたらTRUEを返す関数について
Excel(エクセル)
-
19
VBAでコピーと貼り付けに時間がかかる
Excel(エクセル)
-
20
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのマクロで該当処理できな...
-
ユーザーフォームに入力したデ...
-
実行時エラー'1004': WorkSheet...
-
VBAで同じシート名のコピー時は...
-
エクセルのシート名変更で重複...
-
VBAで指定シート以外の選択
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロでアクティブ...
-
【ExcelVBA】全シートのセルの...
-
IFステートの中にWithステート...
-
ブック名、シート名を他のモジ...
-
シートが保護されている状態で...
-
XL:BeforeDoubleClickが動かない
-
【VBA】指定した検索条件に一致...
-
エクセルVBA 変数への代入がう...
-
VBA 検索して一致したセル...
-
エクセルVBA ListBoxの並び...
-
範囲を指定して別シートにコピペ
-
EXCEL VBAで複数シートから該当...
-
vba 環境依存文字がListViewボ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
別のシートから値を取得するとき
-
ブック名、シート名を他のモジ...
-
実行時エラー'1004': WorkSheet...
-
Excelマクロのエラーを解決した...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
エクセルのシート名変更で重複...
-
実行時エラー1004「Select メソ...
-
VBAで同じシート名のコピー時は...
-
エクセルで通し番号を入れてチ...
-
同じ作業を複数のシートに実行...
-
Excel VBA リンク先をシート...
-
ExcelのVBAのマクロで他のシー...
-
Vba UserformからExcelシートの...
-
【Excel VBA】Worksheets().Act...
-
VBA 存在しないシートを選...
おすすめ情報
回答ありがとうございます。
何も処理はないです。
atmbookを名前をつけて保存して
次の配列を違うブックに移して
名前をつけた保存するを繰り返すだけです。
atmbook.addしなくて
そのまま使い回ししたほうがいいですかね?
試してみます。
回答ありがとうございます。
3つの設定、もう一度試してみます。
シートのコピーは
copyメソッド以外で
あるのでしょうか?
宜しくお願いします。