EXCEL, Stylesheet auf verschiedene Excel-Dateien anwenden

Momentan habe ich einen Job (welcher der Aufgabe) einfach nur denselben Stil anwenden, dasselbe Format für verschiedene Excel-Dateien.EXCEL, Stylesheet auf verschiedene Excel-Dateien anwenden

Ich möchte den Weg der Vereinfachung herausfinden.

Dieses Stylesheet (oder Art von denken) müssen.

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

Ich muss jeden Tag denselben Stil auf große Anzahl von Dateien anwenden. Ich freue mich auf die einfache Lösung.

Quelle

2016-09-19 Bob Moshon

eine Excel-Datei ist eine Arbeitsmappe. eine Arbeitsmappe viele Arbeitsblätter enthalten. Welche Arbeitsblatt tun Sie haben aktualisiert Formatierung wollen? Wenn Sie eine leere Zeile oben hinzufügen, Zeile 1 wird leer sein. Warum stellen Sie es fett dar? Woher wissen Sie, welche Arbeitsmappen jeden Tag aktualisiert werden? Ich denke, dass Sie sich überlegen müssen, bevor Sie versuchen, Code zu erstellen, um diese Anforderung zu erfüllen. –

@Bob Moshon Code unten versuchen, wird es ein einzelnes Blatt formatieren. –

Sie können den MACRO-Recoder zum Starten verwenden.

Wie auch immer, versuchen Sie den Code unten (es wird formatiert für „Sheet1“ (ändern, um Ihr Wunsch-Blattnamen).

Wenn Sie es für alle Sheets anwenden möchten, dann müssen Sie alle Blätter in einer Schleife durch in der Arbeitsmappe.

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

Quelle

2016-09-19 10:47:17

EXCEL, Stylesheet auf verschiedene Excel-Dateien anwenden

Antwort

Verwandte Themen