エクセルVBAでUsedRange内の可視セルを指定する方法

質問

UsedRange内の可視セル限定で、ロックされていない場合、データをクリアしたいのです。
以下のようなコードを書いてみましたがSpecialCellsのところでコンパイルエラーになってしまいます。
どのように直せばよいのでしょうか？

Sub シートクリア()

Application.Calculation = xlCalculationManual
Application.EnableEvents = False

For Each c In Intersect(SpecialCells(xlCellTypeVisible), ActiveSheet.UsedRange)
If c.Locked = False Then
c.MergeArea.ClearContents
End If
Next

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

回答No.1

pkh4989 · ベストアンサー

以下のように直してみてください。

For Each c In Intersect(SpecialCells(xlCellTypeVisible), ActiveSheet.UsedRange)
|
V
For Each c In Intersect(ActiveSheet.Cells.SpecialCells(xlCellTypeVisible), ActiveSheet.UsedRange)

お礼

有難うございました。

例にあげた質問には入れていませんでしたが、さらに「定数」も条件に加え、以下のようにしてうまく行きました。
Sub シートクリア()

With Application
.Calculation = xlCalculationManual
.EnableEvents = False

With ActiveSheet

' For Each c In .UsedRange.SpecialCells(xlCellTypeVisible)

For Each c In Intersect( _
.Cells.SpecialCells(xlCellTypeConstants, 23), _
.Cells.SpecialCells(xlCellTypeVisible), .UsedRange)

If c.Locked = False Then
c.MergeArea.ClearContents
End If
Next

End With

.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With

End Sub

補足

出来た！　　と喜んだのもつかの間。
シートに保護をかけていざ本番！となったら実行時エラーです。

エクセル２０００では保護したシートにSpecialCellsは使えないようです。
まあ、これは何とか対応できましたが。

一応、ご報告いたします。