VBAでエラーチェックを無効にできない。

Question

VBAで、テキスト形式の値のエラーチェックを無効にするために、以下のようなコードを実行しましたが、うまくいきません。セルの左上に緑色の三角がついたままです。全く同じコードが先月までは上手く機能していたのですが、12月25日には上手くいかなくなっていました。どなたか、改善策をご存知でしょうか。どうぞよろしくお願い致します。

Sub エラーチェック無効()
Dim セル As Range
For Each セル In ActiveSheet.UsedRange
If セル.Errors.Item(xlNumberAsText).Ignore = False Then
セル.Errors.Item(xlNumberAsText).Ignore = True
End If
Next
End Sub

Answer 1

アプリの修復・再インストールをして見たら如何でしょうか？

推奨出来ませんが、旧バージョンへダウングレードしてみる手もあるかも？

＊＊モデレーター注＊＊

こちらの返信で解決したということですね。

他のユーザーの皆様にも参考になるように、こちらの返信を回答としてマークいたしました。

もし、まだ問題が解決しないようでしたら、この回答マークを解除してください。

Answer 2

> セルの左上に緑色の三角がついたままです。> If セル.Errors.Item(xlNumberAsText).Ignore = False Then

「文字列形式の数値、またはアポストロフィで始まる数値」
以外のエラーが検出されているからではないでしょうか。

Answer 3

返信が遅くなってしまい、申し訳ございません。

返信していただき、ありがとうございます。

確かに、「文字列形式の数値、またはアポストロフィで始まる数値」のエラーです。

上記の返信にも書かせていただきましたが、やはりバージョンの問題があるようです。

Answer 4

返信が遅くなってしまい、申し訳ございません。

返信していただき、ありがとうございます。

当方、office365の最新バージョンで症状が出たのですが、旧バージョン（Office2016）で実行してみたら問題無くできました。

ありがとうございます。

最新バージョンでできるようになってほしいです。。。

Answer 5

VBAの公式サポート場所は海外となっています。

VBA(マクロ)に関しては、海外コミュニティで聞いて下さい。

・Stack Overflow(VBA)

　　[VBA プログラミングに関する質問]

　　Stack Overflow には、説明的なタイトル、完全で簡潔な問題ステートメント、問題を再現する
　　ための十分な詳細の要求などのガイドラインがあることに注意してください。
　　機能要求または過度に広範な質問は、トピック外と見なされます。
　　新しいユーザーの場合は、Stack Overflow ヘルプ センター にアクセスして詳細を確認して下さい。

※ 閲覧者・回答者が多い公式サポートサイトをお勧めします。

　 英語で質問を送信してください。