Поделиться через

Свойство Application.ReplaceFormat (Excel)

  • Статья

Задает критерии замены для использования при замене форматов ячеек. Затем критерии замены используются при последующем вызове метода Replace объекта Range .

Синтаксис

expression. ReplaceFormat

выражение: переменная, представляющая объект Application.

Пример

В следующем примере задаются условия поиска для поиска ячеек, содержащих шрифт Arial, Regular, Size 10, заменяются их форматы шрифтом Arial, Bold, Size 8, а затем вызывается метод Replace с необязательными аргументами SearchFormat и ReplaceFormat , для которых задано значение True , чтобы фактически внести изменения.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.