EXCEL, appliquer une feuille de style à différents fichiers Excel

Question

Actuellement, j'ai un travail (dont l'une des tâches) impliquer simplement en appliquant simplement le même style, le même format pour les différents fichiers Excel.

Je voudrais trouver le moyen de le simplifier.

Cette feuille de style (ou sorte de penser) devra le faire.

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 

Je devrai appliquer le même style à une grande quantité de fichiers chaque jour. Dans l'attente d'une solution simple.

Answer 1

Vous pouvez utiliser le recodeur MACRO pour commencer.

Quoi qu'il en soit, essayez le code ci-dessous (il forme pour « Sheet1 » (modifier à votre nom de la feuille demandée).

Si vous voulez appliquer à toutes les feuilles, vous devez faire une boucle à travers toutes les feuilles dans le classeur.

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