Excel VBA教程:ReplaceFormat属性

设置替换条件以用于替换单元格格式。

expression.ReplaceFormat

expression   必需。该表达式返回“应用于”列表中的对象之一。

Excel VBA教程:ReplaceFormat属性·示例

在下例中,设置了搜索条件以查找文字为 Arial、常规和 10 号字体的单元格,然后将其格式替换为 Arial、加粗和 8 号字体,并通知给用户。


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
End Sub

上页:Excel VBA教程:RepeatItemsOnEachPrintedPage属性 下页:Excel VBA教程:ReplacementList属性

Excel VBA教程:ReplaceFormat属性

Excel VBA教程:ReplacementList属性 Excel VBA教程:ReplaceText属性
Excel VBA教程:Resize属性 Excel VBA教程:ResultRange属性
Excel VBA教程:ReturnWhenDone属性 Excel VBA教程:Reverse属性
Excel VBA教程:ReversePlotOrder属性 Excel VBA教程:RevisionNumber属性
Excel VBA教程:RGB属性 Excel VBA教程:RightAngleAxes属性
Excel VBA教程:RightFooter属性 Excel VBA教程:RightFooterPicture属性
Excel VBA教程:RightHeader属性 Excel VBA教程:RightHeaderPicture属性
Excel VBA教程:RightMargin属性 Excel VBA教程:RobustConnect属性
Excel VBA教程:RollZoom属性 Excel VBA教程:Root属性
Excel VBA教程:RotatedChars属性 Excel VBA教程:Rotation属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号