Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7213 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【40487】マクロの記録のとおりにやったのに･･･ (・〜・) 06/7/14(金) 21:56 質問[未読]
【40492】Re:マクロの記録のとおりにやったのに･･･ Kein 06/7/14(金) 22:35 回答[未読]
【40521】Re:マクロの記録のとおりにやったのに･･･ (・〜・) 06/7/15(土) 18:06 お礼[未読]
【40487】マクロの記録のとおりにやったのに･･･
質問  (・〜・)  - 06/7/14(金) 21:56 -
引用なし
パスワード
   マクロの記録で書かれたコードを参考に

Workbooks("MC NEW.xls").Worksheets("Fund").Rows(16 * (p - 1) + 3 & ":" & 16 * (p - 1) + 18).Delete Shift:=xlUp

(pには1から順番に数字が入ります。)としたのですが、なぜだか行が削除されません。どうしてでしょう。
【40492】Re:マクロの記録のとおりにやったのに･･･
回答  Kein  - 06/7/14(金) 22:35 -
引用なし
パスワード
   >1から順番に数字が
ではなく、最大値から 1 までを逆順にループしてみて下さい。
例)

For p = 50 To 1 Step -1
　 Rows(p).Delete xlShiftUp
Next p
【40521】Re:マクロの記録のとおりにやったのに･･･
お礼  (・〜・)  - 06/7/15(土) 18:06 -
引用なし
パスワード
   Keinさん、お答えありがとうございました。
実はKeinさんのお返事を見る前に、自分で試しに最後のxlShiftUpを消したらうまくいきました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7213 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free