エクセル内で一つの文章だけ書式設定したい。

Ａ１のセルに
名前・電話番号・誕生日が入っています。（・のところは次の行に送っています。）
名前だけ太字とポイントを変えたいのですが、１つのセルだけを直すのは簡単ですが、この情報が１０００以上あります。一気に直す方法はありますか？

No.3 ベストアンサー 回答者： quiteafew 回答日時： 2005/06/07 07:27

マクロを使ってよければ、こんな感じでいけると思います。

Sub ChangeFontStyle()

p = 14

With Selection
Set c = .Find(Chr(10))
If Not c Is Nothing Then
firstAddress = c.Address
Do
s = InStr(1, c.Value, Chr(10), vbTextCompare)
With c.Characters(Start:=0, Length:=s).Font
.FontStyle = "太字"
.Size = p
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub

１行目のp = 14の部分がフォントサイズを表しています。お好みの数字に変えてください。
書き換えたいセルの範囲を選択してからこのマクロを実行すると、選択範囲セル内の一番初めの改行の手前までの文字が太字になり、指定したポイントの大きさになります。

マクロ以外の方法があれば私も知りたいですね。

この回答へのお礼

マクロは今まで使ったことがないので少々不安です。でも仕方がないですね。勉強だと思いやってみたいと思います。ありがとうございました。

お礼日時：2005/06/07 20:41

No.2 回答者： Zero_0 回答日時： 2005/06/07 06:48

セル内の１部だけを変えることはできないのではないかな？

もし方法があれば知りたいです。どなたかご存じの方おられますか。
私も知りたい。

この回答へのお礼

回答ありがとうございます。
やっぱりそうですか・・・

お礼日時：2005/06/07 20:39

No.1 回答者： Fire-B 回答日時： 2005/06/07 06:13

Ａをクリックすれば、Ａ列すべてアクティブになりますから、そこでポイントや太字に変えられます。

この回答へのお礼

早い回答ありがとうございます。
質問がわかりにくくてすいません。
セル内の一部分だけを直したいのです。

お礼日時：2005/06/07 11:57