ReplaceFormat 属性 - Microsoft Excel Visual Basic 2002 参考

返回介绍

ReplaceFormat 属性

发布于 2019-08-07 字数 1043 浏览 1030 评论 0

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

expression.ReplaceFormat

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

示例

在下例中,设置了搜索条件以查找文字为 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

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!