| |
こんばんは。
>
>ワークシート間のデータを比較して、変更があればその箇所のデータ表示を
>赤色のフォント色で表示させる、なんて事はＶＢＡで可能でしょうか？
>条件付書式設定では対応出来ないようです。
条件付書式設定でも可能だと思いますが・・・。
例
シート名「ワークシート1」のセル範囲Ａ１〜ＡＤ340
と
シート名「ワークシート2」のセル範囲Ａ１〜ＡＤ340
のそれぞれ対応するセル
（例えば、ワークシート1のセルＡ１とワークシート2のセルＡ１を比較）の値を比較し
等しくなければ、ワークシート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のセル範囲Ａ１〜ＡＤ３４０に値を入力してみてください
ワークシート2の対応するセル範囲の値と等しくなければ文字が赤くなるはずです。
ためしてみてください。
>
>ワークシート１,Ａ１セル→ワークシート２,Ａ１セル
> ↓
> データに変更あり
> ↓
> 赤色文字
>
>宜しくお願い致します。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/9/21(木) 16:21 -
