[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『データを変更したら、フォントの色が変わる設定』（まきさち）
それぞれのセルに顧客データがあります。
そのデータを修正した後、他の人が変更したと解るように、フォントの色が変わる設定をしたいのですが、それは可能でしょうか。
よろしくお願い致します。
変更前のデータを別のシートなどに保持しておき、 比較する必要があります。
(INA)
ＩＮＡ様
申し訳ありません。上記の内容が私の知識では解りかねるのですが・・
シートをコピーして別ファイルにし、見比べるということで宜しいのでしょうか？
書式設定のように、条件をいれたら色が変わるみたいなことをイメージしていたのですが。そのような方法はあるのでしょうか。
（まきさち）
その際に、セル値を変更したかどうか判断するには、 他のデータと比較しなければなりません。
VBAでセル値変更時のイベントマクロがありますが、 それだと、セルを変更した後に、さらに元の値に戻したとしても それが元に値かどうか判断できないので、 フォントの色が変わったままになってしまいます。
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = 5
End Sub
(INA)
入力するのが「顧客データ」というシートとして、「顧客データコピー」という
シートを作り、元データ修正後に全セルをコピーします。この時、「顧客データシート」に
条件付き書式を設定。A1セルだったら、条件付き書式＞数式が＞
=A1<>INDIRECT("顧客データコピー!"&CELL("ADDRESS",A1)) として、
適当な書式を設定します。
（純丸）(o^-')b
文面から推察するに、あんさん以外にデータを変更するんはOKで、ただ変更したデータを知りたいっちゅう事でっしゃろ？ ほんならこんなんどうでっか？ そのブックを開いたらそのブックのデータを触るんはまきさちさんでっか？と問い合わせのメッセージがでます。 あんさんが書き込むデータは全て黒字で、それ以外の人が触ると赤字で表示されるようになっとります。
他人にデータを触られてもええ時はAlt+F8でauto_openを実行して席を離れる必要があります。
まぁいっぺん遊んでみておくんなはれ。（笑
（弥太郎）
標準モジュールに
'----------------------------
Public msg As Integer
'----------------------------
Sub auto_open()
msg = MsgBox("あんさんは「まきさちさん」でっか？", vbYesNo)
End Sub
'ThisWorkbookに
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Range(Target.Address)
.Font.ColorIndex = IIf(msg = 6, xlAutomatic, 3)
End With
End Sub
ご回答ありがとうございます！！感謝いたします！！
弥太郎様
申し訳ありません。。。
マクロが勉強不足で途中まで出来たのですが、「'ThisWorkbookに」とありますが、これはどこなのでしょうか？？？
ファイルを開いた時に、メッセージがでたとこまではできたんですが・・
色々いじったのですが、やはりよく解らなく・・・
申し訳ありませんが、ご教示願います。
まきさち。
遅うなってごめんなはれや。
Alt+F11でVBEを開きます。
プロジェクト欄にThisWorkbookっちゅうんがおまっしゃろ？
ダブルクリックしてそのモジュールに貼り付けまんねん。
お分かりでっか？（笑
マクロって皆さん難しいと尻込みしとんとちゃいまっか？
ほんなことおまへんねんでぇ、えぇ。
むしろ関数を駆使して式作る方が難しい様に思いまっせぇ。
またお分かりにならんかったらカキコしといてくらはい。
（弥太郎）
遅くなりまして申し訳ございません。
上記の方法で試したところ、万々歳でした！！！
感謝いたします！！
まきさち。
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.