[[20071106102350]]　『文字色の初期設定値を赤にしたい』（north-shore）　ページの最後に飛ぶ

『文字色の初期設定値を赤にしたい』（north-shore）

Sheet1（元データ）に列数A～V、行数200程度に既値のデータが入力されています。
（空白セルあり）

新たに入力されるデータ及び変更されたデータの文字色を赤色にしたいのですが、
オプション設定、または入力規制の設定で可能でしょうか？
それともVBAを記述しないと駄目でしょうか？
その場合、VBAをお知らせ下さい。

 VBAをお知らせ致します。
 ＼Sheet1／のシートタブ（そのシートのですよ）を右クリックしてコードを表示
 そこへ下のコードを貼り付けます。
 戻ってデータを変更してみてくらはい。
 せやけどそのうちデータが全て赤字で埋まってしまいそうでんなぁ。
 ブックを開いた時（過去のデータ）元の黒字に変換したいばやいは標準モジュールに
 も一つ下のコードをコピペするといけます。
 　　　（弥太郎）
 'シートモジュールへ
 '--------------------
 Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Count > 1 Then Exit Sub
        If .Row > 200 Or .Column > 22 Then Exit Sub
        .Font.ColorIndex = 3
    End With
 End Sub

 '標準モジュールへ
 '--------------------------
 Sub auto_open()
    Sheets("sheet1").Cells.Font.ColorIndex = xlAutomatic
    '↑そのシート名を記入
 End Sub

できました！ありがとうございます。
やはりVBA組まないの駄目ですか？

 >やはりVBA組まないの駄目ですか？
 いやいやそんなことは無いでせう。
 ただそれがし、ひと様の愉しみを奪ってしまうっちゅう所業は性に合いまへんもんで
 VBAだけにしときますワ。（実は入力規制「規則？」なんぞ使うた事おまへんねん＾＾）
 今少しお待ち頂いたらVBA以外のグッドアイディアが登場しまっせ、きっと。
    　　　（弥太郎）

 追加・変更データが以前のデータに対して、何か違いが判別できるような規則性があれば
 VBA を使用しなくても出来そうな気がしますが、そうでなければ無理でしょうね。
 一度、ダミーでかまわないのでデータを提示なさってみれば？
 ひょっとすると、いい案があるかもしれませんよ！
 (1or8)

コメント返信：

[ 一覧(最新更新順) ]

[[20071106102350]] 『文字色の初期設定値を赤にしたい』（north-shore） ページの最後に飛ぶ

[[20071106102350]]　『文字色の初期設定値を赤にしたい』（north-shore）　ページの最後に飛ぶ