提取Excel單元格格式

Question

我正在爲報表自動化格式化過程。

我被困在如何在Excel中提取單元格的格式。例如表格佈局，字體，顏色等

我想在Excel中提取單元格的格式。然後複製代碼並將其應用於需要格式化的其他Excel。如果有更好的解決方案，請讓我知道。

Answer 1

簡單地複製一個小區的所有格式到另一個可以做這樣的：

Dim fontsize As Integer 
fontsize = Worksheets("Sheet1").Cells(1, 1).Font.Size 

---

獲得的實施例：獲得的字體大小的

Range("A1").Select 
Selection.Copy 

Range("B1").Select 
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone 

---

實施例字體名稱：

Dim fontname As String 
fontname = Worksheets("Sheet1").Cells(1, 1).Font.Name 

---

同樣，你也可以用這種方式獲得字體顏色。

爲了讓單元格的填充色：

Range("A1").FormatConditions(1).interior.color 

---

只是谷歌這樣的事情，「Excel VBA中獲取細胞字體名稱」，你會看到的例子很多的。

Answer 2

如果您有某些經常使用的格式組合，我建議您考慮使用樣式。一旦定義，樣式真的可以簡化您的單元格的創建和維護統一格式。