VBAでエラーインジケーターについて教えて頂きたいのですが

エラーチェックマークの削除のサンプルコードですが、この場合は全てのセル範囲が対象になりますが、I列のみを削除する事は出来ないのでしょうか？色々試しましたがうまくいきません、教えて頂きたいのですが、よろしくお願い致します。

Sub Sample()
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange
If Rng.Errors.Item(xlNumberAsText).Value = True Then
Rng.Errors(xlNumberAsText).Ignore = True
End If
Next
End Sub

No.2 ベストアンサー 回答者： mygoonickname 回答日時： 2022/02/24 20:41

こんばんは。

どちらも実際には試していませんが、最初からI列の範囲を対象にすれば良いかと思います。

Sub Sample()
Dim Rng As Range
For Each Rng In Range("I1:I" & Cells(Rows.Count, 9).End(xlUp).Row)
If Rng.Errors.Item(xlNumberAsText).Value = True Then
Rng.Errors(xlNumberAsText).Ignore = True
End If
Next
End Sub

若しくは、Rngが9(I列)かを確認すれば良いかと。

Sub Sample()
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange
If Rng.Column = 9 Then
If Rng.Errors.Item(xlNumberAsText).Value = True Then
Rng.Errors(xlNumberAsText).Ignore = True
End If
End If
Next
End Sub

この回答へのお礼

ありがとうございます。
どちらでも思い通り出来ました。
ありがとうございました。

お礼日時：2022/02/24 20:53

No.1 回答者： tatsumaru77 回答日時： 2022/02/24 20:40

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

Sub sample()
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange
If Rng.Column = 9 Then
If Rng.Errors.Item(xlNumberAsText).Value = True Then
Rng.Errors(xlNumberAsText).Ignore = True
End If
End If
Next
End Sub

この回答へのお礼

ありがとうございます。
出来ました。

お礼日時：2022/02/24 20:52