エクセル2013です 特殊な条件の文字色変え方

質問

A1：AH14　が入力エリアです。
A1から下にA14 次　B1から　下に入力と順次していきます。

※　一応の入力エリアですが　例えば　A14の後に　１、１　など　同数字を入力する際には
　　下のセル　A15に入力となります。

詳細説明に入りますと

セルに二つの数字を入力する時に

0～9の数字を2個　入力します。スタートはA1　その時、

1,0 2,1 のように　最初の　数字が大きいときは　文字色を赤に

0,1 1,2 のように　後の　数字のほうが　大きいときは　文字色を青にして　
さらに数字を１、0　2、0の　ように　数字を逆にしたいのですが、

　条件書式　または　関数などを　使用して　このような事は　可能でしょうか？

また　1,1　2,2など　同数字の　入力では　文字色を　前回の入力色に合わせて 1/ 文字色赤　2/ 文字色青と

したいのですが、こちらは、可能でしょうか？自分でも　引き続き　試行錯誤してみます。

よろしくお願いしたします。

回答No.2

mt2008 · ベストアンサー

手抜き版ですがマクロで作ってみました。
こういう事で良いのでしょうか？
「11」「22」などぞろ目の時の色のルールが良く解らないので黒にしています。

エラー処理やフォント色を戻したりする箇所は実装していませんので必要に応じて組み込んでください。

Sub Sample()
　　For nCol = 1 To 34 'A～AH
　　　　nRow = 1
　　　　Do While Not IsEmpty(Cells(nRow, nCol).Value)
　　　　　　With Cells(nRow, nCol)
　　　　　　　　.NumberFormatLocal = "00" '念のため、書式を「00」に
　　　　　　　　n1st = Int(.Value / 10)
　　　　　　　　n2nd = .Value Mod 10
　　　　　　　　.Font.Color = vbBlack
　　　　　　　　If (n1st > n2nd) Then
　　　　　　　　　　'前の数字が大きい時は色だけ赤に変える
　　　　　　　　　　.Font.Color = vbRed
　　　　　　　　ElseIf (n1st < n2nd) Then
　　　　　　　　　　'後の数字が大きい時は色を青に変えて順番も入れ替える
　　　　　　　　　　.Font.Color = vbBlue
　　　　　　　　　　.Value = n2nd * 10 + n1st
　　　　　　　　End If
　　　　　　End With
　　　　　　nRow = nRow + 1
　　　　Loop
　　　　If nRow < 14 Then End
　　Next nCol
End Sub

補足

mt2008さん　回答がつかない中　回答していただきありがとうございます。

入力後に　マクロ実行で　表示がかわるようですね。

実は　前の数字が大きい時は色だけ赤に変えるで

エクセル画像の参照画像で　いうと

12
77

21　青
7/　青

で　32 は　列がB列に　移動して

32 赤と　表示したい

次に　49　も　列移動で　C列　94　青としたい

参照画像を　エクセルで　入力　色を変えた画像を　後で　アップします。

少々お待ちください。

回答No.1

mt2008

1つのセルに「1,0」の様に入力するのでしょうか。
A1セルに「1」、A2セルに「0」と1つづつ？

このルール↓も良く解りません。15列目までが入力エリアなのでしょうか。
> ※　一応の入力エリアですが　例えば　A14の後に　１、１　など　同数字を入力する際には
> 　　下のセル　A15に入力となります。

補足

mt2008さん　回答がつかない中、回答していただき　大変ありがとうございます。

＞1つのセルに「1,0」の様に入力するのでしょうか。
　そうしたいです。1,0　ではなく　１０と　入力したい

＞このルール↓も良く解りません。15列目までが入力エリアなのでしょうか。

A1：AH14　が　入力エリア　です。ただし　14列に　同数字が　きたら　↓に移動する
ルールではなく　入力エリアのどこでも　同数字が　ならんだ場合、↓に移動するルールです。どうぞ　アドバイスあれば　お願いします。