
こんにちは。
エクセル2002を使用しています。
VBAで、開始行を入力させ開始行+38行を削除するような
マクロを作りました。
Sub 削除()
Dim Sline As Integer, Eline As Integer
Dim S As String
'開始行の入力
Sline = Application.InputBox(prompt:="削除開始 行を入力して下さい。",Type:=1)
'開始行が入力された場合
If Sline <> False Then
'開始行のチェック
'終了削除行のセット
Eline = Sline + 37
'削除確認メッセージ
S = MsgBox(Sline & "~" & Eline & _
"行を削除します。", _
vbOKCancel + vbExclamation, _
"行削除確認")
If S = vbOK Then
Rows(Sline & ":" & Eline).Select
Selection.Delete Shift:=xlUp
End If
End If
End Sub
これを実行すると
Selection.Delete Shift:=xlUp のところで、
実行時エラー 1004
RangeクラスのDeleteメソッドが失敗しました。
でとまってしまいます。
どなたか対応策を教えてください。
よろしくおねがいいたします。
No.4
- 回答日時:
なんか、他の方に使ってもらうことを考慮したか、複雑にしてありますが、骨子の
(1)
Sub test02()
s = InputBox("削除開始行=")
Rows(s & ":" & s + 3).Delete
End Sub
は私もテストしたが、動きました。
(2)
Sub test02()
s = Application.InputBox(prompt:="削除開始行を入力して下さい。", Type:=1)
Rows(s & ":" & s + 3).Delete
End Sub
も動きました。
(3)
Sub test02()
s = Application.InputBox(prompt:="削除開始行を入力して下さい。", Type:=1)
Rows(s & ":" & s + 3).Select
Selection.Delete Shift:=xlUp
End Sub
も動きました。
ロジックの問題ではないですね。
imogasiさん、こんにちは。
そうなんです、他の人間に頼まれてこのようなこと
をしております。(初心者の私に頼むほど超初心者からの
依頼です)
いろいろ試していただいてありがとうございました。
No.3
- 回答日時:
こんにちは。
Excel97で試しましたが、少なくともExcel97ではシート保護の場合に出るメッセージとは異なるようです。
expression を省略した場合に、起こる事が多い現象だと思っています。
おまじないで削除処理の前に ActiveCell.Activate を入れてみてはどうでしょうか?
例は下記の点も手を加えてます。
1.Integerの範囲を超えるケースを想定し、変数 Sline と Eline を Long に。
2.MsgBoxの戻り値はInteger型なので、変数 S を Integer に。
3.65536行を超えないように処理を追加。
Sub 削除()
Dim Sline As Long, Eline As Long, S As Integer
Sline = Application.InputBox("削除開始行を入力して下さい。", Type:=1)
'Falseなら抜ける
If Sline = False Then Exit Sub
'最大行を超えたら最大行まで
if Sline > 65536 Then
MsgBox "最大行を超えています",vbOKOnly,"終了" : Exit Sub
End If
Eline = Sline + 37
If Eline > 65536 Then Eline = 65536
S = MsgBox(Sline & "~" & Eline & "行を削除します。", _
vbOKCancel + vbExclamation, "行削除確認")
'OK以外なら抜ける
If S <> vbOK Then Exit Sub
'おまじない
ActiveCell.Activate
Rows(Sline & ":" & Eline).Delete Shift:=xlUp
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください! Sub 不要
Visual Basic(VBA)
-
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
6
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
7
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
8
ExcelでVBAを使用した際に、『パス名が無効です』とエラーになります。
Excel(エクセル)
-
9
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
10
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
11
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
12
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
13
アクセスでレコードの内容が変更されたかどうかを調べるには
Access(アクセス)
-
14
Excelで半角の文字を含むセルを探したい
Excel(エクセル)
-
15
【Excel】【VBA】空白のセルに上のデータを入力する方法
その他(Microsoft Office)
-
16
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
17
Windowsフォルダ内のファイルアクセス拒否について
Windows 7
-
18
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
19
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
20
UserForm1.Showでエラーになります。
工学
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Yahooフリマってどれくらい時間...
-
もう関わりたくない人がいたらL...
-
今日の日付が過ぎたらその行を...
-
エクセルで住所の混在する「丁...
-
outlook迷惑メールフォルダーに...
-
スマホのアプリを削除すると、...
-
エクセル ユーザー設定リスト...
-
メーリングリストから特定の人...
-
アクセスにおいて間違って削除...
-
VBA:Openステートメントで開い...
-
告白してフラれた相手の連絡先...
-
卒業論文を書いた人は、文章を...
-
言論統制を受けたことはありま...
-
バッチファイルを使用したsql@p...
-
エクセルで下の空白行を削除したい
-
CD-Rに焼いた音楽を消すには☆
-
広告deals を削除する方法を教...
-
iphone movファイル削除
-
2度と連絡とらないとお互い納得...
-
動的に作成したコントロールの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Yahooフリマってどれくらい時間...
-
outlook迷惑メールフォルダーに...
-
VBA:Openステートメントで開い...
-
指定した文字があった場合、そ...
-
告白してフラれた相手の連絡先...
-
もう関わりたくない人がいたらL...
-
何故ニクァイ(媚中で無いアル...
-
Windows11に残されたWindows10...
-
VBA 編集可能な範囲の指定につ...
-
アクセスにおいて間違って削除...
-
投稿した書き込みの削除の方法...
-
nProtectの削除について(PSO2削除)
-
gooIDを 誤って削除してしまい...
-
バッチファイルを使用したsql@p...
-
ウェブページへのアクセス不可 ...
-
(Access)複数条件の重複デー...
-
エクセルで住所の混在する「丁...
-
メーリングリストから特定の人...
-
Adobe AcrobatのPDFのページ削除
-
今日の日付が過ぎたらその行を...
おすすめ情報