|
▼ichinose さん:
こんばんは。ご教示ありがとうございました。
1度実行すると、その後はいつでも変更箇所が表示されるのですねぇ。
ですが,本番環境で実行するとうまくいきません。
自分なりにコードを読み取るのですが一部判りません。
>Sub test()
>Const s1 = "ワークシート1" →シート名を定義
>Const s2 = "ワークシート2" →シート名を定義
>Worksheets(s1).Activate →シートs1が表示される時
>Names.Add Name:="sht2", RefersTo:="=" & s2 & "!rc"→ここが良く...
>With Worksheets(s1)
>With .Range("a1:ad340")
>With .FormatConditions
>.Delete
>.Add xlCellValue, Operator:=xlNotEqual, _ →ここもいまいち...
>Formula1:="=sht2"
>End With
>.FormatConditions(1).Font.ColorIndex = 3
>End With
>End With
>End Sub
|
|