|
こんばんは。
>
>ワークシート間のデータを比較して、変更があればその箇所のデータ表示を
>赤色のフォント色で表示させる、なんて事はVBAで可能でしょうか?
>条件付書式設定では対応出来ないようです。
条件付書式設定でも可能だと思いますが・・・。
例
シート名「ワークシート1」のセル範囲A1〜AD340
と
シート名「ワークシート2」のセル範囲A1〜AD340
のそれぞれ対応するセル
(例えば、ワークシート1のセルA1とワークシート2のセルA1を比較)の値を比較し
等しくなければ、ワークシート1の対応するセル範囲の文字の色を赤くする
を条件付書式で行うとすると・・・。
新規ブックに「ワークシート1」と「ワークシート2」というシート名を持つ
ワークシートを作成してください。
標準モジュールに
'===============================
Sub test()
Const s1 = "ワークシート1"
Const s2 = "ワークシート2"
Worksheets(s1).Activate
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
このtestを一度だけ実行してください
(このコードで条件付書式を設定しています)
ワークシート1のセル範囲A1〜AD340に値を入力してみてください
ワークシート2の対応するセル範囲の値と等しくなければ文字が赤くなるはずです。
ためしてみてください。
>
>ワークシート1,A1セル→ワークシート2,A1セル
> ↓
> データに変更あり
> ↓
> 赤色文字
>
>宜しくお願い致します。
|
|