Excelのセル内の文字色について

質問

Ａ列には名前を入力して名前の後に　名前（ニックネーム）
の様に（）を入れています。
一度に、この（）の文字色のみを変えるにはどうしたらよいでしょうか。

回答No.6

bonaron

（○○）版です。以外に簡単。
Sub testBLUE()
　　Dim rng As Range
　　Dim flg As Boolean
　　Dim i As Integer
　　For Each rng In Selection.Cells
　　　　flg = False
　　　　For i = 1 To rng.Characters.Count
　　　　　　With rng.Characters(i, 1)
　　　　　　　　If .Caption Like "[()]" Then
　　　　　　　　　　flg = True
　　　　　　　　End If
　　　　　　　　If flg Then
　　　　　　　　　　.Font.Color = vbBlue '青
　　　　　　　　End If
　　　　　　　　If .Caption = ")" Then
　　　　　　　　　　flg = False
　　　　　　　　End If
　　　　　　End With
　　　　Next
　　Next
End Sub

回答No.5

hige_082

基本的には、＃３さんのアレンジ

'----------------------------------------------------------
Sub 括弧を赤に()
Dim セル As Range
Dim 文字 As Integer
For Each セル In Selection.Cells
For 文字 = 1 To Len(セル.Value)
If セル.Characters(文字, 1).Caption = "(" Then
セル.Characters(文字, Len(セル.Value)).Font.ColorIndex = 3
Exit For
End If
Next 文字
Next
End Sub
'----------------------------------------------------------

＃３さん分かりやすいコード有難う御座います
私も勉強させていただきました

回答No.4

bonaron

> （○○）の（）は色が変わりましたが○○が変わらないのです。
最初に「（）の文字色のみを変える」と言ってるじゃないですか。

（○○）を変えるのは、３分では無理。
これから出かけるので
心ある方からのレスをお待ちください。

深夜、まだ解決していなければレスします。

回答No.3

bonaron

セルを選択しておいて実行してください。

Sub test()
　　Dim rng As Range
　　Dim i As Integer
　　For Each rng In Selection.Cells
　　　　For i = 1 To rng.Characters.Count
　　　　　　With rng.Characters(i, 1)
　　　　　　　　If .Caption Like "[()]" Then
　　　　　　　　　　.Font.Color = vbRed '赤
　　　　　　　　End If
　　　　　　End With
　　　　Next
　　Next
End Sub

他の色にしたい場合は、こちらを参考に。
http://oshiete1.goo.ne.jp/qa4539881.html

お礼

今、実行してみました。
（○○）の（）は色が変わりましたが○○が変わらないのです。
マクロ自体、初めての事なのでもう少しご教授くださいますでしょうか。

回答No.2

namemari

A列とB列の間にもう１列挿入して、
その列に（ニックネーム）の列として色を変えるのではダメでしょうか。
（既にA列に入ってしまっている場合でも、「区切り位置」という方法を使えば名前とニックネームのセルを簡単に分けることができます。）

わたしが知らないだけかもしれませんが、
経験上、同じセルの中ではできなかったと思います。

参考URL：

http://www.becoolusers.com/excel/text-to-columns.html

お礼

すみません。
説明が足りなかったです。
列の挿入はしないものと前提しての質問でした。

回答No.1

gyouda1114

方法1
セルを選択 → F2キーを押す又はセル内でダブルクリックして（）を選択 → Ctrlキー＋１でセルの書式設定ダイアログで 色を設定又は書式設定ツールバーのフォントの色で設定

方法２
セルを選択 → 数式バーで（）を選択 → Ctrlキー＋１でセルの書式設定ダイアログで色を設定又は書式設定ツールバーのフォントの色で設定

お礼

ご回答有難うございます。
上記のやり方でもできるのですが
一度に変換を行いたいのですが他に方法はありますでしょうか？