Excel VBA教程:Interior属性

应用于 CellFormat对象的 Interior属性。

返回一个Interior对象,该对象允许用户设置或返回基于单元格内部格式的搜索条件。

expression.Interior

expression   必需。该表达式返回上面的对象之一。

应用于“应用于”列表中的其他所有对象的 Interior属性。

返回Interior对象,该对象代表指定对象的内部。

expression.Interior

expression   必需。该表达式返回上面的对象之一。

Excel VBA教程:Interior属性·示例

应用于 CellFormat对象的 Interior属性。

本示例设置搜索条件以识别内部为纯黄色的单元格,创建满足该条件的单元格,找到该单元格,并通知给用户。


Sub SearchCellFormat()
    ' Set the search criteria for the interior of the cell format.
    With Application.FindFormat.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    ' Create a yellow interior for cell A5.
    Range("A5").Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("A1").Select
    MsgBox "Cell A5 has a yellow interior."
    ' Find the cells based on the search criteria.
    Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=True).Activate
    MsgBox "Microsoft Excel has found this cell matching the search criteria."
End Sub

应用于“应用于”列表中的其他所有对象的 Interior属性。

本示例将 Sheet1 中 A1 单元格的内部颜色设为青色。


Sub SetColor()
    Worksheets("Sheet1").Range("A1").Interior.ColorIndex = 8  ' Cyan
End Sub

上页:Excel VBA教程:InterceptIsAuto属性 下页:Excel VBA教程:International属性

Excel VBA教程:Interior属性

Excel VBA教程:International属性 Excel VBA教程:InvertIfNegative属性
Excel VBA教程:IsAddin属性 Excel VBA教程:IsCalculated属性
Excel VBA教程:IsConnected属性 Excel VBA教程:IsInPlace属性
Excel VBA教程:IsMemberProperty属性 Excel VBA教程:IsValid属性
Excel VBA教程:Italic属性 Excel VBA教程:Item属性
Excel VBA教程:Item属性(Worksheets集合) Excel VBA教程:Iteration属性
Excel VBA教程:KeepChangeHistory属性 Excel VBA教程:KernedPairs属性
Excel VBA教程:KoreanCombineAux属性 Excel VBA教程:KoreanProcessCompound属性
Excel VBA教程:KoreanUseAutoChangeList属性 Excel VBA教程:LabelRange属性
Excel VBA教程:LanguageSettings属性 Excel VBA教程:LargeChange属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号