v_h********

2022/5/20 13:30

11回答

VBAで文字を検索して あればその文字の入っているセルから下に2つめ、右に3つめを空白にしたいです。 (例えば、E10のセルに文字があれば H12を空白にしたい) 【作ったコード】

VBAで文字を検索して あればその文字の入っているセルから下に2つめ、右に3つめを空白にしたいです。 (例えば、E10のセルに文字があれば H12を空白にしたい) 【作ったコード】 Dim rng As Range For Each rng In Range("E:E") If rng.Value = "赤色" Then Range(rng.address).Offset(2,3).Value="" End If Next rng 家で似たような表を作って実験したら出来たのですが、職場でやってみるとエラーにもならなくて、空白にもなりません。 どこを直せばできるか、教えていただけると助かります。

Visual Basic・55閲覧

ベストアンサー

0
ggrks

カテゴリマスター

2022/5/20 13:53

不具合とは無関係ですが、書き方が冗長なので直しました。 ＞Range(rng.address).Offset(2,3).Value="" rng.Offset(2,3).Value="" コードは問題なさそうです。 それより以下の点を確認した方がいいです。 - シートの今の状態が間違っていないか - コードが書かれている場所はどこか(どのブックのどのモジュールか） - Range("E:E")などは実際はどのシートを参照しようとしているのか Range("E:E") このようにシート名を省略して書くと、マクロを実行した瞬間にActiveになっているSheetを参照します。狙っているシートと異なる可能性があります。