No.1ベストアンサー
- 回答日時:
行全体の選択ですよね
InputBoxの変数が
GYOUST、GYOUENDとして
Rows(GYOUST & ":" & GYOUEND).EntireRow.Delete
と入れてみてください。
hallo-2007さんのアドバイスをもとに
Dim 行st As String
Dim 行ed As String
行st = InputBox("削除開始行を入力", "確認", "")
行ed = InputBox("削除終了行を入力", "確認", "")
Rows(行st & ":" & 行ed).EntireRow.Delete
と組んで見たところ見事にできました。
ありがとうごさいました。
No.3
- 回答日時:
NO.2のものです。
既に解決されたようですが、サンプルに間違いがあり、そのままというのも気持ち悪いので
変数宣言部の
Dim St_Row As Long
Dim Ed_Row As Long
は
Dim St_Row As Variant
Dim Ed_Row As Variant
の間違いでした。
No.2
- 回答日時:
Sub Sample()
Dim St_Row As Long '削除先頭行格納用
Dim Ed_Row As Long '削除終端行格納用
St_Row = InputBox("削除する最初の行番号を入力")
Do Until IsNumeric(St_Row) '数字が入力されるまで繰り返す
St_Row = InputBox("ST")
If St_Row = "" Then Exit Sub '何も入力されなければ終了
If CLng(St_Row) < 1 Or CLng(St_Row) > 65536 Then
St_Row = vbNullString '1以下または65536より大きい数字ならもう一度入力
End If
Loop
Ed_Row = vbNullString
Do Until IsNumeric(Ed_Row)
Ed_Row = InputBox("削除する最初の行番号を入力")
If Ed_Row = "" Then Exit Sub
If CLng(Ed_Row) < 1 Or CLng(Ed_Row) > 65536 Then
Ed_Row = vbNullString
End If
Loop
Sheets("Sheet1").Range(St_Row & ":" & Ed_Row).EntireRow.Delete
End Sub
さまざまな入力パターンに対応するため、Do-Loopステートメント等との
組み合わせまでご提示いただき恐縮です。
いまの私の知識では、これらを完全に理解習得するまでは至りませんが、
研鑽に励みたいと思います。
ところでここでの「65536」とは、エクセルでのいわゆる限界行数を
意味しているという解釈でよろしいのでよね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Yahooフリマってどれくらい時間...
-
もう関わりたくない人がいたらL...
-
インスタグラムのギャラリーの...
-
Googleフォトから削除するとiCl...
-
ウェブページへのアクセス不可 ...
-
ハメ撮りが流出したら
-
告白してフラれた相手の連絡先...
-
YouTubeの初期音量が最大になり...
-
Cookieを削除してもサブアカウ...
-
ビジネスパートナーから送られ...
-
グーグルアースもグーグルマッ...
-
教えてgooでは、自分の質問や回...
-
エクセルVBAで行削除時にエラー...
-
Facebookに私が2つのってます...
-
google chromeのブックマークが...
-
指定した文字があった場合、そ...
-
教えてgooでは、自分の質問が削...
-
OKwave初心者です。回答は削除...
-
職場の人と仕事中に喧嘩して LI...
-
ネジ山の正体
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Yahooフリマってどれくらい時間...
-
指定した文字があった場合、そ...
-
もう関わりたくない人がいたらL...
-
VBA:Openステートメントで開い...
-
喧嘩をしてLINE削除され、 また...
-
アクセスにおいて間違って削除...
-
【エクセル】セル内の右側のみ...
-
今日の日付が過ぎたらその行を...
-
これのどこが削除対象になるの...
-
DELETE文とTRUNCATE文の違いに...
-
すべてやりきった、大満足を意...
-
ダブルクォーテーションの削除...
-
VBA IF文でORを使ったとき後ろ...
-
告白してフラれた相手の連絡先...
-
バッチファイルを使用したsql@p...
-
エクセルVBAで行削除時にエラー...
-
(Access)複数条件の重複デー...
-
エクセルで住所の混在する「丁...
-
ウェブページへのアクセス不可 ...
-
女友達にLINEしたら、既読スル...
おすすめ情報