Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39070 / 76732 ←次へ | 前へ→

【42783】Re:比較と表示について
発言  ichinose  - 06/9/21(木) 19:06 -

引用なし
パスワード
   こんばんは。

>
>ワークシート間のデータを比較して、変更があればその箇所のデータ表示を
>赤色のフォント色で表示させる、なんて事は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セル
>           ↓
>       データに変更あり
>           ↓
>          赤色文字
>
>宜しくお願い致します。
0 hits

【42775】比較と表示について シンゴ 06/9/21(木) 14:53 質問
【42777】Re:比較と表示について パン 06/9/21(木) 16:21 発言
【42782】Re:比較と表示について シンゴ 06/9/21(木) 18:23 発言
【42779】Re:比較と表示について Kein 06/9/21(木) 17:04 回答
【42783】Re:比較と表示について ichinose 06/9/21(木) 19:06 発言
【42790】Re:比較と表示について シンゴ 06/9/21(木) 22:35 お礼
【42799】Re:比較と表示について ichinose 06/9/22(金) 7:59 発言
【42794】Re:比較と表示について りん 06/9/21(木) 23:21 回答
【42853】Re:比較と表示について(訂正) りん 06/9/23(土) 12:33 回答
【43018】Re:比較と表示について(訂正) シンゴ 06/9/29(金) 10:11 お礼
【42816】Re:比較と表示について シンゴ 06/9/22(金) 19:13 お礼

39070 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free