[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『範囲指定したうえで保護のかかっていない個所をDelete』(消しゴム)
範囲を指定して、その中の保護がかかっていないセルだけを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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.