|
▼Blue さん:
>▼VBA初心者 さん:
>>はい!固定の範囲なら良いのですが、大きいシートの中で色々な範囲で間違えが有るとしたら、その都度アドレスが違いますので
>>ボタンにその都度アドレスが変わる範囲に対して、値だけを消して、数式は残す
>>とマクロ登録したいのですけど、無理でしょうか?
>Selectionにたいしてやるだけなのでは?
>
>' セルを選択中か
>If TypeOf Selection Is Range Then
> On Error Resume Next ' 対象が何もないときのエラー回避
> Selection.SpecialCells(xlCellTypeConstants).ClearContents
> On Error GoTo 0
>End If
早速有難うございます
数値は消えました、式は残っています
Sub test()
'セルを選択中か
If TypeOf Selection Is Range Then
On Error Resume Next ' 対象が何もないときのエラー回避
Selection.SpecialCells(xlCellTypeConstants).ClearContents
On Error GoTo 0
End If
End Sub
ただ、数式が入っているセルが全部消えてしまいます!
範囲を指定しましたが消えました?
|
|