追加入力の文字だけ色を変えたい（エクセル）

解決済

質問者：meikosan
質問日時：2003/12/20 10:43
回答数：5件

エクセル2000、OS：WinXPpro

既存シートにセル（行）を挿入してデータを追加します。元のデータ（例えば黒）と区別するために文字色を変えて（例えば青）入力したいのです。

挿入する行の「セル書式で文字色を設定する」以外で、
新規に「入力する文字の色を指定する」方法はないでしょうか？
検索しましたが探しきれません。
「自信あり：エクセルでは出来ない」という回答でも結構です。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者： imogasi
回答日時：2003/12/20 12:27

使わないセルならどのセルでも良いが、例えばＣ１に

１を入れて入力すると、青色の文字に、Ｃ１が１以外に変えて入力すると、黒色文字になります。
Ｓｈｅｅｔ１等のSelectionChangeイベントに貼りつけて
下さい。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 3) = 1 Then
ActiveCell.Font.ColorIndex = 5
Else
ActiveCell.Font.ColorIndex = 1
End If
End Sub
Ｃ１をＨ１にするなら、If Cells(1, 10) = 1 Then
(Ｊ列はＡ列から１０番目）としてください。
Ｃｈａｎｇｅイベントよりこちらをお勧めします。

- 3
- 件

通報する

この回答へのお礼

ありがとうございます。
試してみました。文字色は青になりました。
でも、VBAの知識が無いので仕組みが理解できず、変更がうまくできません。もっと勉強しないとダメですね^^;

通報する

お礼日時：2003/12/22 12:24

No.5

回答者： tds2a
回答日時：2003/12/20 12:29

またの補足です。

残念ながらエクセルはセル単位のようです。
一つのセル内に複数色の文字の入力は困難なようです。
複数のセルを選択して、各個に違う文字色の指定はできないようです。

- 2
- 件

通報する

この回答へのお礼

どうもありがとうございます。

通報する

お礼日時：2003/12/22 12:10

No.3

回答者： ki-aaa
回答日時：2003/12/20 12:01

マクロになりますが、できます。

次のコードをSheet1のモジュールにコピーしてください。
A1に日付けを入れてください。
セットされた日付け以降だと、文字とセルの色が変わります。

*****マクロの記述の仕方

使用しているシート名タブ(Sheet1とかSheet2)を右クリックし、「コードの表示」を選択します。

Sheet1(Sheet1)をダブルクリックします。
Option Explicit がでるので、その下に'1***から'2***までをコピーし貼り付けします。

'1****

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") < Date Then 'セルA1の日付け以降だったら
Target.Font.Color = RGB(255, 0, 50) '文字の色を変える
Target.Interior.ColorIndex = 6 'セルの色を変える
End If
End Sub
'2****

シート戻り、文字を入力してみてください。文字の色が変わっていると思います。