[[20180611142037]]　『セル内の文字一括消去の仕方ご指導ください』（ko）　ページの最後に飛ぶ

『セル内の文字一括消去の仕方ご指導ください』（ko）

A3,B3,D3,E3のセル内文字を3から170まで一括消去ができません。
ご指導をお願いいたします。

Sub 消去する()

    Dim myMsg As String, myTitle As String
    myMsg = "全データを削除しますか？" & vbCrLf & _
            "削除されたデータは元には戻りません。"
    myTitle = "RESET?"
    If MsgBox(myMsg, vbYesNo + vbExclamation, myTitle) = vbYes Then

        Application.ScreenUpdating = False

　　　 Range("A3,B3,D3,E3").Select

        ActiveWindow.SmallScroll Down:=-170
        Selection.ClearContents

        Application.ScreenUpdating = True
    End If
 End Sub

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

3行目から170行目のセル内を消したいのですね？ 1行しか範囲指定しないと、1行しか消えないので、消したい行全て範囲指定しましょう。あとは、隣りあった行ならまとめて指定できます。

    Range("A3:B170,D3:E170").ClearContents
（???） 2018/06/11(月) 14:46

回答は、???さんがされてるので、蛇足を。

個人的にはその程度であれば、いちいちメッセージ出して聞いてこられる方がめんどくさいですし、マクロでクリアしちゃったら、「元に戻す」ができないから

    Sub クリア範囲選択()
         Application.Goto Range("A3")
         Range("A3:B170,D3:E170").Select
    End Sub

こんな風にして、ユーザーにDeleteキー押してもらうようにするかもです。

（もこな２） 2018/06/11(月) 15:04

???さん
もなこ2さん
ありがとうございました。

（ko） 2018/06/11(月) 15:39

コメント返信：

[ 一覧(最新更新順) ]

[[20180611142037]] 『セル内の文字一括消去の仕方ご指導ください』（ko） ページの最後に飛ぶ

[[20180611142037]]　『セル内の文字一括消去の仕方ご指導ください』（ko）　ページの最後に飛ぶ