代碼運(yùn)行結(jié)果：

代碼截圖：

代碼文本：

Public Sub 技巧()

    Dim myRange As Range

    Set myRange = Range("A1")    '指定任意的單元格

    MsgBox "單元格" & myRange.Address & "的內(nèi)部對(duì)象如下：" _

        & vbCrLf & "框線顏色：" & myRange.Borders.ColorIndex _

        & vbCrLf & "框線類型：" & myRange.Borders.LineStyle _

        & vbCrLf & "框線粗細(xì)：" & myRange.Borders.Weight

    Set myRange = Nothing

End Sub

注釋：