Excel VBA質問箱 IV

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

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


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

75635 / 76738

←次へ　｜　前へ→


	【5538】Re:３時間ですか(驚)

りん

- 03/5/18(日) 9:46 -


	引用なし

	パスワード

ゆとさん、こうさん、Ｋｅｎｔさん，こんにちは。

>このようなエラーが発生した場合は、大きなプロシージャを
>複数のプロシージャに分割したり、モジュールレベルの宣言を別のモジュールに
>移動することで、エラーを回避することができます。

たとえば
１行目を101行目にコピーする場合、
Sub Macro1()
　　Application.Left = 44.5'EXCELウィンドウをうごかした
　　Application.Top = 49.75'EXCELウィンドウをうごかした
　　Rows("1:1").Select '１行目選択
　　Selection.Copy 'Ctrl + C
　　ActiveWindow.SmallScroll Down:=84 'ウィンドウをスクロール
　　Rows("101:101").Select '101行目選択
　　ActiveSheet.Paste 'Ctrl + V
End Sub

記録するとこんな感じですが、

↓実際必要なのはこれだけ
Sub Macro1()
　　Rows("1:1").Copy Destination:=Rows("101:101")
End Sub

なので、いらない部分を削ってスリムにして、それでも大きい場合は分割すればいいかもしれません。

9 hits

▼

【5434】プロシージャーが大きすぎ？とは Ｋｅｎｔ 03/5/13(火) 17:14