人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excel 2003 です。
B列の特定の文字5種類 「a」、「b」、「c」、「d」、「e」 の色を赤に変えたいときのコードを教えてください。

●質問者: sakanainu
●カテゴリ:コンピュータ
✍キーワード:Excel 「A」 コード
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● SALINGER
●60ポイント ベストアンサー

他にも良い方法がありそうですが。

Sub changeColor()
 Dim lastRow As Long
 Dim i As Long
 Dim str As String
 Dim j As Long
 lastRow = Cells(Rows.Count, 2).End(xlUp).Row
 For j = 1 To lastRow
 If Cells(j, 2).Value <> "" Then
 For i = 1 To Len(Cells(j, 2).Value)
 str = Mid(Cells(j, 2).Value, i, 1)
 If str = "a" Or str = "b" Or str = "c" Or str = "d" Or str = "e" Then
 Cells(j, 2).Characters(i, 1).Font.ColorIndex = 3
 End If
 Next i
 End If
 Next
End Sub
◎質問者からの返答

SALINGERさん、先日もお世話になりました。今回も早速ありがとうございます。一文字「a」だけの色を変えるのは調べることができたのですが、まだまだVBAがさっぱりわからず、複数の文字を変えるようアレンジすることができず困っていました。SALINGERさんの内容をしっかり解読したいと思います。ありがとうございました。


2 ● らいず
●35ポイント

設定したいセルを選択しておいて

条件付書式

「書式」?「条件付書式」で

「セルの値が」?「次の値の間」?「a」?「e」にして、書式ボタンで、文字の色を「赤」に設定すればできますよ。

◎質問者からの返答

ありがとうございます。VBAの中で使いたく、一文字「a」だけの色を変えるのは調べることができたのですが、まだまだVBAがさっぱりわからず、複数の文字を変えるようスマートにアレンジすることができず困っていました。しかし条件付書式でa-eとするのは知らなかったので今後の参考にさせていただきます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ