|
再現しません。
ただ、単一セルのみ選択の場合、
>Selection.SpecialCells(xlCellTypeConstants)
の挙動が変わっているようです。(そのシートのすべてのセルが対象になる。)
>A3:A5の範囲をマウスで指定してしたのに
ということでそれが原因ではないでしょうけど。
一応回避バージョン
'セルを選択中か
If TypeOf Selection Is Range Then
' 単一選択
If Selection.Count = 1 Then
' 数式を持っているか
If Not Selection.HasFormula Then
Selection.ClearContents
End If
' 複数選択
Else
On Error Resume Next ' 対象が何もないときのエラー回避
Selection.SpecialCells(xlCellTypeConstants).ClearContents
On Error GoTo 0
End If
End If
ところで、最初の質問者とハンドルが違いますが同じ人ですか?
質問ごとにハンドルをころころ変えないほうが良いです。
|
|