選択範囲のセルの値のみ削除する方法。

エクセル２０１３でアドインを作成しようとしています。

右クリックに選択範囲のセルの値のみ（数式は除いて）削除するメニューを追加しようとしています。

おおむねうまくいっているのですが、選択範囲のセルが一つだけだった場合、選択していないセルに入っている値も削除されてしまします。

どうすれば選択したセルが一つのみの場合も選択しているセルの値のみ削除されるようにすることができるでしょうか？

該当部分のコードを上げます。

Selection.SpecialCells(xlCellTypeConstants).ClearContents

Selectionの数を出力してみると、一つのセルしか選択していない場合はきちんとひとつになっていますが、Selection.SpecialCells(xlCellTypeConstants)の数をカウントすると選択していないセルもカウントしています。

よろしくお願いします。

No.3 回答者： jmuiny 回答日時： 2016/03/28 11:40

No.1です。

質問文の最初の部分（数式を除いて）を見落としていました。申し訳ありません。
複数の場合と単独セルの場合で分けないと出来ないようです。

If Selection.Count > 1 Then
Selection.Cells.SpecialCells(xlCellTypeConstants).ClearContents
Else
If Not ActiveCell.HasFormula Then
Selection.ClearContents
End If
End If

No.2 回答者： fujillin 回答日時： 2016/03/22 10:00

こんにちは。

Excel2010で試してみました。（2013は手元に無いので）

ご質問と同じ現象が発生しますね。
もとのselectionとのintersectをとれば良さそうに思って試してみたところ、ご質問の事象に対しては対処できるようです。
しかしながら、さすがにＭＳさん、一筋縄ではいきません。

定数ではないセル（式などのセル）だけを選択した場合に、
　Selection.SpecialCells(xlCellTypeConstants)
は、セル一つだけの選択だと問題ありませんが、複数セルを選択するとエラーになるようです。
（2013でもエラーが発生するかどうかは不明ですが・・・）


というわけで、両方対処してみました。
（後者は、面倒なのでエラー処理にしています。）

Dim rng As Range

On Error Resume Next
　Set rng = Selection.SpecialCells(xlCellTypeConstants)
　If Err.Number = 1004 Then Exit Sub
　　'処理対象がないので、とりあえず中断にしてあります
On Error GoTo 0

Set rng = Application.Intersect(Selection, rng)
If Not (rng Is Nothing) Then
　'rng.ClearContentsなど、ここで必要な処理を行う
End If

この回答へのお礼

回答ありがとうございます。
返事が遅くなり申し訳ございません。

とりあえず、選択中のセルをカウントして処理を振り分けることで乗り越えてみました。

教えていただい例も試してみたいと思います。

ありがとうございました。

お礼日時：2016/03/27 20:16

No.1 回答者： jmuiny 回答日時： 2016/03/22 09:44

Selection.ClearContents

だけでいいのではないでしょうか。

この回答へのお礼

回答有難うございます。
回答いただいた方法では、数式も消えてしまうのではないでしょうか？

お礼日時：2016/03/27 20:16