| 投稿日 | ： 2005/01/29(Sat) 00:12 |
| 投稿者 | ： yuki |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： VB6でエクセルのセルのフォントを指定したいです。 |
エクセルのマクロで取ってみたのですが、（以下にコードを載せてみました。）
これでは指定されたものにしか変換されないので、自分で指定したように変えたいのですが、
どのようにしたらよいのでしょう？？
どなたかお教えください。お願いします。
Range("B2:AH34").Select
With Application.ReplaceFormat.Font
.Name = "AR P明朝体U" ←ここを可変にしたいです。
.FontStyle = "太字 斜体" ←ここを可変にしたいです。
.Size = 10 ←ここを可変にしたいです。
.Subscript = False
End With
Selection.Replace What:="日", Replacement:="日", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True