代碼運行結果：

代碼截圖：

代碼文本：

Public Sub 技巧()

    Dim myRange As Range

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

    MsgBox "單元格" & myRange.Address & "的字體對象如下：" _

        & vbCrLf & "名稱：" & myRange.Font.Name _

        & vbCrLf & "字形：" & myRange.Font.FontStyle _

        & vbCrLf & "字號：" & myRange.Font.Size _

        & vbCrLf & "顏色：" & myRange.Font.ColorIndex _

        & vbCrLf & "下劃線：" & myRange.Font.Underline

    Set myRange = Nothing

End Sub

注釋：

【你們百度三天  不過我隨口一句】
鄭廣學老師獨家逐行手寫沉浸式案例教學法 知其然更知其所以然
全套教程包含 VBA175例+函數(shù)操作408例+代碼助手VIP
+100期直播回放
【268元進1000人高手VBA永久答疑群+880網站VIP】
買課咨詢請加微信EXCEL880B

點擊進入 鄭廣學老師Excel教程免費學7天 !

掃描二維碼