エクセルVBAの質問です。

質問

エクセルVBAの質問です。

セルに特定の値が入力された場合にエラーとし、「再試行」を選択するとセルが修正出来る状態にしたいのですが、下記のコードだと実行時エラーが発生してしまいます。

if cells(10,10).value > 1 then
if msgbox("err", vbCritical + vbRetryCancel,"") = vbRetry then
Cells(10,10).Select
Cells(10,10).Active　⇒　エラー箇所
else
Cells(10,10).ClearContents
Endif
Endif

実行時エラー '438'
オブジェクトは、このプロパティまたはメソッドをサポートしてません。

いろいろネットを検索してみましたが、よくわかりませんでした・・・。
VBAは初心者です。

かなり困ってます。
どなたか助言をお願い致します。

回答No.1

hana-hana3 · ベストアンサー

＞Cells(10,10).Select
＞Cells(10,10).Active　

"Active"と言うのは無しですね。（記述ミス）
本来は、"Activate"とします。

で、select も activate も同じ意味ですから、２行書く必要はありません。
”Cells(10,10).Active”を削除で解決だと思います。

お礼

ありがとうございます、解決しました。
完全に記述ミスです・・・。
お騒がせしました。

回答No.2

temtecomai2

値の条件が単純なら VBA でコードを書かずに入力規則でよくないですか？

お礼

ありがとうございます。
セルに複数の条件を追加していく予定でしたので。
コードは単純化してます。
一晩寝て見直してみると解決しました。