[[20150128170645]]　『範囲指定したうえで保護のかかっていない個所をＤ』（消しゴム）　ページの最後に飛ぶ

『範囲指定したうえで保護のかかっていない個所をＤｅｌete』（消しゴム）

 範囲を指定して、その中の保護がかかっていないセルだけをDeleteする
 マクロボタンを作ろうと思っています。
 　
 こんな事が出来るのでしょうか？

 どうか教えてください。

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

 Delete とは、本当にセルの削除ですか？　それとも、値のクリアですか？

（β） 2015/01/28(水) 17:28

 とりあえず、該当セルをクリアするコードです。

 Sub Test()
    Dim c As Range

    With Range("A1:D10")    'もし、操作者がマウスで領域を選択するなら With Selection
        For Each c In .Cells
            If Not c.Locked Then c.ClearContents
        Next
    End With

 End Sub

（β） 2015/01/28(水) 17:34

　β様

 回答ありがとうございます。

 値のクリアをしたいです。
 説明が悪かったですね＾＾；

 ご提示いただいたのは値ではなくセルの削除ですよね？

（消しゴム） 2015/01/28(水) 17:57

 いえいえ、値のクリアですよ。

（β） 2015/01/28(水) 18:35

　β様

 そうなんですね！！！！

 これでやってみたらエラーになったもので・・・
 よく調べたら、結合してるセルだとエラーになるみたいなのですが、結合してたら出来ないのでしょうか？
（消しゴム） 2015/01/29(木) 09:11

 そのくらい調べれば結構出てきますよ。
http://okwave.jp/qa/q1411049.html

（稲葉） 2015/01/29(木) 09:14

 If Not c.Locked Then c.ClearContents

 これを、

 If Not c.Locked Then c.Value = Empty

 で試してください。

（β） 2015/01/29(木) 10:10

 β様

 ありがとうございました。
 思ってたようにできました。

 稲葉様

 調べ先を教えていただきありがとうございました。
 今後、もっと調べるようにさせていただきます。
（消しゴム） 2015/01/29(木) 11:55

コメント返信：

[ 一覧(最新更新順) ]

[[20150128170645]] 『範囲指定したうえで保護のかかっていない個所をＤ』（消しゴム） ページの最後に飛ぶ

[[20150128170645]]　『範囲指定したうえで保護のかかっていない個所をＤ』（消しゴム）　ページの最後に飛ぶ