EXCEL, применить таблицу стилей к различным файлам excel

В настоящее время у меня есть работа (в задачу которой входит одна задача), просто применяя тот же стиль, тот же формат для разных файлов excel.EXCEL, применить таблицу стилей к различным файлам excel

Я хотел бы узнать, как его упростить.

Эта таблица стилей (или вроде бы думаю) потребуется.

1) Add empty line to very top of the excel file 
2) A1-F2 make bold 
3) A1-F3 Make full borders 
4) A1-F3 Auto Fit Column Width 
5) A2-F2 Make colour GREY

Мне нужно будет применить такой же стиль к большому количеству файлов каждый день. Ждем простого решения.

источник

2016-09-19 Bob Moshon

Excel файл рабочая тетрадь. Рабочая книга может содержать множество рабочих листов. Какой лист вы хотите обновили форматирование? Если добавить пустую строку в верхней части, строка 1 будет пустой. Почему вы устанавливаете его полужирным шрифтом? Как вы знаете, какие книги обновлять каждый день? Я думаю, вам нужно подумать о том, что нужно, прежде чем пытаться создать код для удовлетворения этого требования. –

@Bob Moshon попробуйте код ниже, он будет форматировать один лист. –

Вы можете использовать MACRO recoder для начала.

Во всяком случае, попробуйте этот код (он будет форматировать его «Лист1» (изменить к вашему запрошенному имени листа).

Если вы хотите, чтобы применить его ко всему Sheets, то вам необходимо перебрать все листы в книге.

Option Explicit 

Sub ApplyExcelShtFormat() 

Dim Sht    As Worksheet 

' change Sheet name to your needs 
Set Sht = ThisWorkbook.Sheets("Sheet1") 

With Sht 
    ' add 1 Row above the first row 
    .Rows("1:1").Insert Shift:=xlDown 

    ' modify font to bold 
    .Range("A1:F2").Font.Bold = True 

    ' add borders all around 
    .Range("A1:F3").BorderAround xlContinuous, xlThin 

    ' add internal borders 
    With .Range("A1:F3").Borders(xlInsideVertical) 
     .LineStyle = xlContinuous 
     .Weight = xlThin 
    End With 
    With .Range("A1:F3").Borders(xlInsideHorizontal) 
     .LineStyle = xlContinuous 
     .Weight = xlThin 
    End With 

    ' columns auto fit 
    .Range("A1:F3").EntireColumn.AutoFit 

    ' cell interior color grey (change number according to your kind of gray) 
    .Range("A2:F2").Interior.Color = 9868950 
End With 

End Sub

источник

2016-09-19 10:47:17

EXCEL, применить таблицу стилей к различным файлам excel

ответ

Смежные вопросы