
エラーチェックマークの削除のサンプルコードですが、この場合は全てのセル範囲が対象になりますが、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ベストアンサー
- 回答日時:
こんばんは。
どちらも実際には試していませんが、最初から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
No.1
- 回答日時:
以下のようにしてください。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
VBAでのリスト不一致抽出について
-
Cellsのかっこの中はどっちが行...
-
VBAで、離れた複数の列に対して...
-
IIF関数の使い方
-
マクロについて。S列の途中から...
-
rowsとcolsの意味
-
複数の列の値を結合して別の列...
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
Excel VBA でテキストボックス...
-
【Excel VBA】ReadCSVのOutputC...
-
vba 2つの条件が一致したら...
-
セルに値が入っていた時の処理
-
vba 数値がゼロになるまで引く
-
URLのリンク切れをマクロを使っ...
-
VBA 何かしら文字が入っていたら
-
エラーコード1004
-
C# 列の挿入
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
IIF関数の使い方
-
VBAのFind関数で結合セルを検索...
-
Changeイベントでの複数セルの...
-
VBA 何かしら文字が入っていたら
-
【VBA】2つのシートの値を比較...
-
DataGridViewに空白がある場合...
-
VBAで、特定の文字より後を削除...
-
URLのリンク切れをマクロを使っ...
-
エクセル 2つの表の並べ替え
-
VBAコンボボックスで選択した値...
-
VBAを使って検索したセルをコピ...
-
VBAでのリスト不一致抽出について
-
複数csvを横に追加していくマク...
-
C# dataGridViewの値だけクリア
-
データグリッドビューの一番最...
おすすめ情報