式を残して値のみ削除

質問

Sub clear()

Dim wskyu As Worksheet
Dim wsData As Worksheet
Dim Y As Range

Const SH_KYUYO As String = "給与明細"
Const SH_DATA As String = "データ入力"

Set wskyu = Worksheets(SH_KYUYO)
Set wsData = Worksheets(SH_DATA)

With wsData

For Each Y In .Range("C3:G55")
If Y.Interior.ColorIndex <> xlNone Then
Y.ClearContents
End If
Next

End With

With wskyu

Range ("P7:AQ7"), .Range("D10:AQ10"), .Range("D13:AQ13"), _
.Range("D17:AQ17"), .Range("D20:AQ20"), .Range("D24:AQ24"), _
.Range("D29:AI29").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents

End With

MsgBox "個人番号を入力後、性別を選択しボタン(1)を押してください"

End Sub

値のみ削除しようと上のコードを書いたのですが
With wskyu
のあとの
Range～
でプロパティの使い方が不正です
と言われてしまいました(-_-;)

ヘルプボタンがあったので押しても空のページに飛んでしまい
どうすればよいのかわかりません、、、
どうかよろしくおねがいします！！

回答No.3

Picosoft · ベストアンサー

> 今度はRangeクラスのselectメソッドが失敗しました
> と言われてしまいました、、、
「Range Select 失敗」といったキーワードで検索してみるとすぐ出てくる情報ですが、
セルを選択状態にするには、そのセルを含むシートがアクティブになっている必要があります。

With wskyu
　.Activate 'シートをアクティブにする
　.Range("P7:AQ7, ……").Select
　(略)
End With

お礼

なるほど、、
withでくくるだけではだめなのですね(・・;)
ありがとうございました！！

回答No.2

Picosoft

> Range ("P7:AQ7"), .Range("D10:AQ10"), .Range("D13:AQ13"), _
> .Range("D17:AQ17"), .Range("D20:AQ20"), .Range("D24:AQ24"), _
> .Range("D29:AI29").Select
複数の範囲を選択する場合は
　.Range("P7:AQ7, D10:AQ10, D13:AQ13, D17:AQ17, D20:AQ20,D24:AQ24, D29:AI29").Select
です。

お礼

ありがとうございます！！
解決しました!(^^)!

が、もう一つ問題が^^;

補足

今度はRangeクラスのselectメソッドが失敗しました
と言われてしまいました、、、

コードはRangeの部分を上の回答通りに変えた以外は触っていません(・・;)
何度もすいませんがよろしくお願いします。

回答No.1

ShowMeHow

最初に
.
を入れ忘れているとかかな？

補足

最初は入れていて同じエラーだったので消してみました(-_-;)