excelで特定のフォントの色を固定したい

質問

excelで日記を書いています。
晴れマーク＝赤や雨マーク＝青など、フォントの色を固定したいです。
ユーザー辞書登録で「はれ」と入れて晴れマークにはできますが、色までは登録できません。

今あるものの色を変えるのではなく、以後ずっと色が自動的に変わるように登録できないでしょうか。

回答No.1

tom04 · ベストアンサー

こんばんは！
あくまで一つの案です。VBAでの方法になってしまいます。

Excelで日記を！ということですが、どのような配置の日記にされているのか判らないので
勝手に↓のような感じにしてみました。

Sheet1のB列に天気を入力し、天気マークによってフォントの色を変えるようにしてみました。
Sheet2に天気マークの色見本として表を作っておきます。
B列に色付けしたい色で塗りつぶします。

画面の左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてみてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'この行から
If Target.Column <> 2 Then Exit Sub
Cells.Font.ColorIndex = 0
Dim i, j As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet2")
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 2) = ws.Cells(j, 1) Then
Cells(i, 2).Font.Color = ws.Cells(j, 2).Interior.Color
End If
Next j
Next i
End Sub 'この行まで

これでSheet1のB列に天気マークを入力するたびにフォントの色がつくと思います。

ご希望の方法とは違うかもしれませんが、あくまで一案ですので
他に良い方法があればごめんなさいね。m(__)m