[[20060907121545]]　『入力文字に色を付けたい』（スイミー）　ページの最後に飛ぶ

『入力文字に色を付けたい』（スイミー）
現在作成済みの表に対して、これから上書きする文字（セル）にだけ
色を付けたいのですが、ひとつひとつのセルに指定をせずに行う方法はありますか？

 VBAじゃ無いと無理でしょう...おそらく...(seiya)

 衝突しましたがそのままアップします。

 1.VBAのシートのChangeイベントでTargetの色を変える

 2.別シートにセルをそっくりコピペし、
 条件付き書式で別シートの同アドレスのセルと値が
 違ったら色を無しにする

 とここまで書いておきながら、条件付き書式で別シート
 は参照できなかったことに気付きました・・・。

 (MARBIN)

 条件付書式はINDIRECTを使って回避できることをLOOKUPさんが掲載されていたように思います。
 1.の方法ですｗ
 (ROUGE)
'----シートモジュールへ
Public olddata As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    olddata = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not IsEmpty(olddata) Then
        Target.Interior.ColorIndex = 6
    End If
End Sub

 衝突しました。

 INDIRECT関数で参照すれば別シートでもOKの方法
=INDIRECT("Sheet2!A1")=$A$1　など。

 （川野鮎太郎）

 衝突した鮎さんに衝突しました～☆
　
 >条件付書式はINDIRECTを使って回避できることをLOOKUPさんが掲載されていたように思います。
 こちらが参考になりますか？
[[20051207053038]]『入力規則:別シートの裏技発見!』（kazu）
　
 （キリキ）（〃⌒o⌒)b

 ROUGEさんの　Change event　だけ...

 If olddata <> Target.Value Then Target.Interior.Color = vbYellow

 (seiya)

 そぉかぁ、データが変わってなくても色がついてしまいますね...orz
 (ROUGE)

 条件付書式だと、いったん上書きしてまた元に戻したら.... (seiya)

皆様コメントありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20060907121545]] 『入力文字に色を付けたい』（スイミー） ページの最後に飛ぶ

[[20060907121545]]　『入力文字に色を付けたい』（スイミー）　ページの最後に飛ぶ