ReplaceFormat プロパティ (Excel)Application.ReplaceFormat property (Excel)

セルの書式を置換する際の、置換の基準を設定します。Sets the replacement criteria to use in replacing cell formats. 置換の条件は、 Rangeオブジェクトの**Replace** メソッドを呼び出すときに使用されます。The replacement criteria is then used in a subsequent call to the Replace method of the Range object.

構文Syntax

Replaceformatexpression.ReplaceFormat

expression**Application** オブジェクトを 表す変数。expression A variable that represents an Application object.

Example

次の使用例は、Arial、レギュラー、Size 10 のフォントを含むセルを検索するように検索条件を設定し、Arial、太字、サイズ8のフォントで書式を置き換え、 Replaceメソッドを呼び出します。省略可能な引数_searchformat_ _ReplaceFormat_をTrueに設定すると、実際に変更が加えられます。The following example sets the search criteria to find cells containing Arial, Regular, Size 10 font, replaces their formats with Arial, Bold, Size 8 font, and then calls the Replace method, with the optional arguments of SearchFormat and ReplaceFormat set to True to actually make the changes.

Sub MakeBold() 
 
 ' Establish search criteria. 
 With Application.FindFormat.Font 
 .Name = "Arial" 
 .FontStyle = "Regular" 
 .Size = 10 
 End With 
 
 ' Establish replacement criteria. 
 With Application.ReplaceFormat.Font 
 .Name = "Arial" 
 .FontStyle = "Bold" 
 .Size = 8 
 End With 
 
 ' Notify user. 
 With Application.ReplaceFormat.Font 
 MsgBox .Name & "-" & .FontStyle & "-" & .Size & _ 
 " font is what the search criteria will replace cell formats with." 
 End With 
 
 ' Make the replacements on the worksheet. 
 Cells.Replace What:="", Replacement:="", _ 
 SearchFormat:=True, ReplaceFormat:=True 
 
End Sub

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.