Excel VBA – 讀取 欄,列 格式設定

測試環境 Windows 10 + Excel 2016

如何透過 Excel VBA 讀取 欄,列 的格式(字體 , 顏色 , 外框 , 欄寬 , 列高 與 公式) , 參考文章 – https://weilihmen.medium.com/excel-vba%E5%BE%9E%E9%A0%AD%E4%BE%86%E9%81%8E-%E5%9F%BA%E6%9C%AC%E8%AA%9E%E6%B3%95-%E4%B8%8A%E7%AF%87-c2bc76065ecd

Sub ReadFormat1()
 Worksheets("工作表1").Activate
 Range("B1") = Range("A1").Font.Name
 Range("C1") = Worksheets(1).Name
 Range("D1") = Range("E1","E5").Count
End Sub

說明:

• Worksheets(“工作表1”).Activate
  指定工作表 worksheet 為 工作表1.
• Range(“A1″).Font.Name”
  這邊沒有明確指定 worksheets 是因為前面一行已經指定了 Worksheet 物件的 Activate 方法來啟用工作表.這邊使用 Font 物件可以設定 / 讀取 Background , Bold , Color , ColorIndex , Creator , FontStyle , Italic , Name , Parent , Size , Strikethrough , Subscript , Superscript , ThemeColor , ThemeFont , TintAndShade 與 Underline ,詳細請參考 – https://learn.microsoft.com/zh-tw/office/vba/api/excel.font(object)
• Worksheets(1).Name
  第一個工作表的名字.
• Range(“E1″,”E5”).Count
  計算 E1~E5 的格數 (5格).

執行結果: