Excel VBA質問箱 IV

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

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


6080 / 13645 ツリー ←次へ | 前へ→

【47281】行挿入のマクロについて てんてん 07/3/7(水) 9:04 質問[未読]
【47282】Re:行挿入のマクロについて Jaka 07/3/7(水) 10:25 発言[未読]
【47283】Re:行挿入のマクロについて てんてん 07/3/7(水) 10:46 質問[未読]
【47284】Re:行挿入のマクロについて りん 07/3/7(水) 11:33 発言[未読]
【47285】Re:行挿入のマクロについて てんてん 07/3/7(水) 12:06 お礼[未読]
【47339】Re:行挿入のマクロについて てんてん 07/3/8(木) 13:04 質問[未読]

【47281】行挿入のマクロについて
質問  てんてん  - 07/3/7(水) 9:04 -

引用なし
パスワード
   はじめて投稿します。表の途中で行を挿入したい時のためのマクロを組みました。
指定した行の下の行をコピーして貼り付けた後、
数値だけ消す(数式は残す)というやり方です。
でも、数値が入っていない行を指定すると
消すものがないせいか、エラーが起きてしまいます。
「該当するセルが見つかりません」とメッセージが出ます。
このエラーを解消する方法はないでしょうか?
※全体の行数を変えたくないので
1行挿入すると一番下の行を一行削除するようにしているのですが
エラーが出るとそこで処理が止まるため
行が増えたままになってしまい、困っています。

どうぞよろしくお願いします。


Sub 一行挿入()
 Application.ScreenUpdating = False
 ActiveSheet.Unprotect
 Rows(ActiveCell.Row).Insert Shift:=xlDown
 Rows(ActiveCell.Row - 1).Copy
 Rows(ActiveCell.Row).PasteSpecial xlPasteAll
 Rows(ActiveCell.Row).SpecialCells(2, 23).ClearContents
 Rows("237:237").Select
 Selection.Delete Shift:=xlUp
 ActiveCell.Select
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 ActiveSheet.EnableSelection = xlUnlockedCells
 
End Sub

【47282】Re:行挿入のマクロについて
発言  Jaka  - 07/3/7(水) 10:25 -

引用なし
パスワード
   SpecialCells は、該当するものがないとエラーになるので、
エラートラップで、回避してください。

【47283】Re:行挿入のマクロについて
質問  てんてん  - 07/3/7(水) 10:46 -

引用なし
パスワード
   ▼Jaka さん:
>SpecialCells は、該当するものがないとエラーになるので、
>エラートラップで、回避してください。

早速のお返事ありがとうございます。
マクロに関しては初心者なので
エラートラップがどのようなものかわかりません。
もしよろしかったら教えていただけないでしょうか?
どうぞよろしくお願いします。

【47284】Re:行挿入のマクロについて
発言  りん E-MAIL  - 07/3/7(水) 11:33 -

引用なし
パスワード
   てんてん さん、こんにちわ。
>>SpecialCells は、該当するものがないとエラーになるので、
>>エラートラップで、回避してください。
>エラートラップがどのようなものかわかりません。

↓SpecialCellsの部分だけエラーをスキップしています
htt p://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=46284;id=excel

下の方の記事番号に 46284 と打ち込んで、GOをクリックしてもいいです。

【47285】Re:行挿入のマクロについて
お礼  てんてん  - 07/3/7(水) 12:06 -

引用なし
パスワード
   りん さん
早速ありがとうございます。
今から仕事で外に出なくてはいけないので
もどったら早速やってみます。
ありがとうございました。

【47339】Re:行挿入のマクロについて
質問  てんてん  - 07/3/8(木) 13:04 -

引用なし
パスワード
   りんさん。ありがとうございます。
真似をして
Rows(ActiveCell.Row).SpecialCells(2, 23).ClearContents
の行の前に
On Error Resume Next
を入れてみました。
これでエラーが回避されているし、
行も増えませんが、これで大丈夫でしょうか?

後の行のOn Error GoTo 0
も入れる必要がありますか?

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