| Jak szybko i ładnie sformatować tabelkę w Excelu 2007? |
|
Problem: Korzystam z Excela 2007 - w jaki sposób za pomocą makra szybko sformatować tabelkę wg jednego z szablonów? Nie chcę tworzyć tabeli/listy - nie chcę zakładać autofiltra. ![]() Rozwiązanie: Rozwiązaniem może być poniższe makro. Sub FormatTabeli() Dim objLista As ListObject Dim rngTabela As Range 'Zaznacza pojedyncza tabele z danymi On Error Resume Next Set rngTabela = Application.InputBox _ (Prompt:="Zaznacz tabelę", Type:=8) On Error GoTo 0 'Jezeli zaznaczono tabele wtedy 'sformatuj ja wg konkretnego szablonu 'przekonwertuj z listy na zwykla tabele If Not rngTabela Is Nothing Then Set objLista = Arkusz1.ListObjects.Add(xlSrcRange, rngTabela, , xlYes) With objLista .TableStyle = "TableStyleMedium17" .HeaderRowRange.Font.ColorIndex = 2 .Unlist End With End If End Sub |
|
| Zmieniony ( Wtorek, 29. Czerwiec 2010 10:39 ) |
