Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3858 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【59900】メモリーの使用が増加する toto 09/1/16(金) 15:57

【59902】Re:メモリーの使用が増加する toto 09/1/17(土) 7:22


	【59900】メモリーの使用が増加する

toto - 09/1/16(金) 15:57 -


	引用なし

	パスワード

よろしくお願いします。
エクセルシートに
　Private sub Worksheet_Change(Byval Target AS Range)
　 ..
　 ..
　End sub
　
　Private sub Worksheet_SelectionChange(Byval Target AS Range)
　 ..
　 ..
　End sub

　シートには上記のものを入れてあります。

　Sub MM()
　　..
　　Application.EnableEvents=False
　　Rows(R_Row).Select
　　Selection.Insert Shift:=xlDown
　　Application.EnableEvents=True
　 ..
　End sub

　上記のSelection.Insert Shift:=xlDownを実行した瞬間に
　メモリーが急激に３０％も増加してしまいます。
　メモリーは２GMですが増えた状態で７０％程度の消化となってしまいます。
　どうして、行を挿入しただけで増加するのか、
　また対処方法を教えて頂きたいと思います。


	【59902】Re:メモリーの使用が増加する

toto - 09/1/17(土) 7:22 -


	引用なし

	パスワード

▼toto さん：
>よろしくお願いします。
>エクセルシートに
>　Private sub Worksheet_Change(Byval Target AS Range)
>　 ..
>　 ..
>　End sub
>　
>　Private sub Worksheet_SelectionChange(Byval Target AS Range)
>　 ..
>　 ..
>　End sub
>
>　シートには上記のものを入れてあります。
>
>　Sub MM()
>　　..
>　　Application.EnableEvents=False
>　　Rows(R_Row).Select
>　　Selection.Insert Shift:=xlDown
>　　Application.EnableEvents=True
>　 ..
>　End sub
>
>　上記のSelection.Insert Shift:=xlDownを実行した瞬間に
>　メモリーが急激に３０％も増加してしまいます。
>　メモリーは２GMですが増えた状態で７０％程度の消化となってしまいます。
>　どうして、行を挿入しただけで増加するのか、
>　また対処方法を教えて頂きたいと思います。
再チェックをしていたら、原因が上記のプログラムでないことが
　判明しました。お騒がせしました。今後もよろしくお願いします。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3858 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free