| |
▼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
ただ、数式が入っているセルが全部消えてしまいます！
範囲を指定しましたが消えました？
|
|
VBA初心者
- 08/2/26(火) 19:09 -
