excelvba セルの下1桁の文字のフォントの色を変更する

ExcelVBAについてご教授願います。
特定セルの下1桁の1文字のフォントの色を「白」に変更するVBAを作成したいのですが。
使用環境
　・ＯＳ：Windows7
　・Excelバージョン：2010
よろしくお願い致します。

No.3 ベストアンサー 回答者： 十六茶太郎 回答日時： 2016/05/26 10:59

特定セルをA1とします。

Range("A1").Characters(Start:=Len(Range("A1")), Length:=1).Font.ColorIndex = 2

A1の文字列の長さをはかり、最後から数えて1文字目の色を2（白）に変えています。

この回答へのお礼

ご教授ありがとうざいました。
この方法にて組み込んで確認しましたら、うまくいきました。
本当にありがとうございました。

お礼日時：2016/05/26 13:29

No.2 回答者： tom04 回答日時： 2016/05/26 10:58

こんにちは！

「特定セル」がどこか判らないので
とりあえずA列限定としてみました。

Sub Sample1()
Dim i As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(i, "A").Characters(Start:=Len(Cells(i, "A")), Length:=1).Font.ColorIndex = 2
Next i
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ご教授ありがとうございました。

お礼日時：2016/05/26 13:29

No.1 回答者： GooUserラック 回答日時： 2016/05/26 10:55

「特定のセル」とは、どのように指定するのですか？

以下から選んで説明していただけますか？
・選択したセル
・ダブルクリックしたセル
・右クリックしたセル
・特定の値が入力されているセル
・その他

この回答へのお礼

ご教授ありがとうございました。
説明が不足で申し訳ございませんでした。
申し訳ございませんが、他の方法を採用し解決できましので
ご連絡申し上げます。

お礼日時：2016/05/26 13:31