Извлечь формат ячейки Excel

Question

Я ищу автоматизацию процесса форматирования отчета.

Я застрял в том, как извлечь формат ячейки в excel. Например, макет таблицы, шрифт, цвет и т. Д.

Я думаю об извлечении формата ячейки в excel. Затем скопируйте код и примените его к другим специальностям, которым требуется форматирование. Если есть лучшее решение, пожалуйста, дайте мне знать.

Answer 1

Простое копирование всех форматов одной ячейки в другую можно сделать так:

Range("A1").Select 
Selection.Copy 

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

---

Пример получения размера шрифта:

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

---

Пример получения название шрифта:

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

---

Аналогичным образом вы можете получить и цвет шрифта.

Чтобы получить цвет заливки ячейки:

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

---

Просто Google что-то вроде этого, «Excel VBA получить имя ячейки шрифта», и вы увидите много в примерах.

Answer 2

Если у вас есть определенные комбинации форматов, которые вы часто используете, советую рассмотреть использование стилей. После определения стили действительно упрощают создание и поддержание единообразных форматов для ваших ячеек.