Beskrivelse

Håndtering af formler i tabeller

 Formler kan igen indsættes med udgangspunkt i at vi har fat i et range objekt:

Sub FormelDemo()     [Oprettet_Tabel[C]].Formula = "=[A]*[B]" End Sub

Her er det forudsat at vi har en tabel, der har fået navnet "Oprettet_Tabel" med kolonnerne A, B, C. Koden vil sætte en formel ind, der ganger kolonne A og B med hinanden og leverer i C.

Det kan være nyttigt at få tømt en tabel uden at få smadret de formler man har i tabellen. Det kan man gøre sådan her (beklager brugen af "On Error Resume Next" - kunne ikke rigtig komme unden om det):

Sub SletAltUndtagenFormler()     If [Tabellen[#Data]].Rows.Count > 1 Then         If [Tabellen].ListObject.ShowAutoFilter Then             [Tabellen].AutoFilter         End If         On Error Resume Next         [Tabellen[#Data]].Rows(1).SpecialCells(xlCellTypeConstants).ClearContents         On Error GoTo 0         [Tabellen[#Data]].Rows("2:" & [Tabellen[#Data]].Rows.Count).Delete         [Tabellen].AutoFilter     End If End Sub