Excel セルの文字の後ろから2文字のみフォント
Excel 2007
セルに入力した文字の後ろから2文字のみ
フォントサイズと色を指定したいのですが、可能でしょうか。
セルの書式設定/表示形式/ユーザー定義 で「@"御中"」と設定しております。
自動で御中の文字が入力された後、御中のみフォントサイズと色の指定をする事は可能でしょうか。
-------------------------------
(1)Sheet1に住所録リストがあります。
<例>
A列 B列 C列
1 A社 神奈川
2 B社 東京
3 C社 千葉
(2)Sheet2に個人情報を表記するマスターを作成しました。
(2)行毎に、マスターのシートの指定したセルに個人情報が入力され、
新しいSheetが作成できるようVBAを設定しました。
<例>
Sheet3
セルA列3行； A社 セルA列4行； 神奈川
Sheet4
セルA列3行； B社 セルA列4行； 東京
(3)新しいSheetに表記した企業名にセルの書式設定（ユーザー定義）で
"御中"が表記できるように設定していますが、
その文字のみフォントサイズと色を指定する事は可能でしょうか。
※初心者です、下記のコードもネット検索や色々なところに相談して作成しました。
-----------------------------------
Sub macro1()
Dim h As Range
Application.ScreenUpdating = False
On Error Resume Next
For Each h In Application.Intersect(Selection.EntireRow, Range("A:A"))
If h <> "" Then
'既存シートを削除する
Application.DisplayAlerts = False
Worksheets(h.Offset(0, 1).Value).Delete
Application.DisplayAlerts = True
'シートを作成する
Worksheets("マスタ-").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = h.Offset(0, 1).Value
'住所を挿入する
ActiveSheet.Cells(3, 2).Value = h.Offset(0, 2).Value
'企業名を挿入する1
ActiveSheet.Cells(4, 2).Value = h.Offset(0, 1).Value
Range("A1").Formula = "=全リスト!" & h.Address
h.Offset(0, 1).Hyperlinks.Delete
Worksheets("全リスト").Hyperlinks.Add anchor:=h.Offset(0, 1), Address:="", SubAddress:=h.Offset(0, 1) & "!A4"
End If
Next
'シートを並べ替える
Worksheets("全リスト").Select
For Each h In Range("B2:B" & Range("B65536").End(xlUp).Row)
Worksheets(h.Value).Move after:=Worksheets(Worksheets.Count)
Next
Worksheets("全リスト").Select
Application.ScreenUpdating = True
End Sub
お礼
投稿するのが、遅れて申し訳ありません。 ご回答、ありがとうございます。 Worksheets("○○").Unprotect を行ってみたのですが、やはり、 Worksheets("○○").Range("B1").Font.Size = 14 のところで 同じエラー表示がされてしまいます。 Norton Internet Security 2006(NIS2006)を入れていまして、 このソフトがマクロの動きを抑えてしまっているかもしれないと 思ったのですが、 NIS2006を無効にしてみて、マクロを起動してもやはり同じでした。 ・・・
補足
ActiveCell.Activate を、前に入れることにより解決しました。 ありがとうございました。