Granskning

Excel erbjuder ett flertal verktyg för att granska och säkerhetsställa kalkylkvalitén, däribland de s k granskningsverktygen.

Här demonstreras ett flertal tips för att underlätta granskningsproceduren.

Spåra överordnade

Att manuellt spåra överordnade celler kan endast ske en cell åt gången. Har vi ett större område så underlättas det avsevärt att använda sig av en VBA-lösning. Proceduren nedan visas på en sådan möjlig lösning.

Option Explicit  Sub Visa_Overordnade()    '© 2002 Alla rättigheter XL-Dennis    Dim rnOmrade As Range, rnCell As Range, rnArea As Range      'Inhämta cellområde från användaren.    On Error GoTo Felhantering    Set rnOmrade = Application.InputBox("Ange cellområdet som ska granskas:", _          "Granska", Default:=Selection.Address, Type:=8)      'Ifall användaren klickar på OK-knappen men det saknas cellområde.    If rnOmrade Is Nothing Then Exit Sub      'Ifall det inte finns några formler/funktioner angivna i det valda cellområdet.    On Error Resume Next    With rnOmrade       If .Cells.Count = 1 Then          If .HasFormula Then .ShowPrecedents       Else          Set rnArea = .SpecialCells(xlCellTypeFormulas)          If rnArea Is Nothing Then Exit Sub          For Each rnCell In rnArea.Cells             rnCell.ShowPrecedents          Next       End If    End With    Exit Sub   Felhantering:    Exit Sub End Sub