Excel VBA質問箱 IV

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

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


75629 / 76732 ←次へ | 前へ→

【5538】Re:3時間ですか(驚)
発言  りん E-MAIL  - 03/5/18(日) 9:46 -

引用なし
パスワード
   ゆと さん、こうさん、Kentさん,こんにちは。

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

たとえば
1行目を101行目にコピーする場合、
Sub Macro1()
  Application.Left = 44.5'EXCELウィンドウをうごかした
  Application.Top = 49.75'EXCELウィンドウをうごかした
  Rows("1:1").Select '1行目選択
  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

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

【5434】プロシージャーが大きすぎ?とは Kent 03/5/13(火) 17:14 質問
【5521】3時間ですか(驚) こう 03/5/17(土) 14:03 回答
【5525】Re:3時間ですか(驚) ゆと 03/5/17(土) 15:50 回答
【5538】Re:3時間ですか(驚) りん 03/5/18(日) 9:46 発言

75629 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free