Viser avgrensninger på en utskrift

November 21  by Eliza

Microsoft Excel inneholder noen gode verktøy som hjelper deg med å filtrere store datatabeller å omfatte kun den informasjonen du vil vise. I effekt, filtre tillate deg å "slice og terninger" dine data før du får akkurat det du ønsker.

Ved utskrift av filtrerte data, kan det være lurt å vite hva slicing og dicing ble gjort til de opprinnelige dataene. Det er flere måter du kan gå om å vise dine filtrering kriterier. En enkel måte er å bruke de avanserte filtreringsmuligheter av Excel, som krever at du setter opp en liten kriterier bord for dine data. Dersom kriteriene bordet er laget en del av hva du skriver ut, så du kan se dine filtreringskriterier ganske enkelt.

Hvis du bruker Autofilter, så må du bruke en annen tilnærming. En slik tilnærming er detaljert på John Walkenbach nettsted:

http://j-walk.com/ss/excel/usertips/tip044.htm

Denne løsningen bruker en brukerdefinert funksjon for å returnere alle filtreringskriterier i bruk i den aktuelle kolonnen. Funksjonen kan brukes i en celle, ved at kolonnen, for å vise de kriterier. Hvis du bruker avansert filtrering, deretter makro tilnærming er litt mer komplisert. Følgende makroer (det er to av dem i oppføringen) undersøke hva avanserte kriterier er i spill, og deretter plasserer kriteriene i den venstre delen av spissen.

Sub AddFilterCriteria ()
Dim strCriteria As String

strCriteria = FilterCriteria ()
Hvis strCriteria = "" Then
strCriteria = "No filtreringskriterier"
Else
strCriteria = "Filterkriterier:" & Chr (10) og strCriteria
End If

'Legge Kriterier strengen til topp- / bunntekst
Med ActiveSheet.PageSetup
.LeftHeader = StrCriteria
Avslutt med
End Sub

Fungere FilterCriteria () As String
Dim rngCriteria Som Range, col Som Range, cel Som Range
Dim strCriteria As String, r As Integer, c As Integer
Const strCriteriaRange Som String = "Kriterier"

FilterCriteria = ""

On Error Resume Next
'Sett Kriterier treet henvisning
Satt rngCriteria = Range (strCriteriaRange)
Hvis Err <> 0 Then Exit Function
On Error GoTo 0

'Opprett Kriterier String
c = 0
For Hver col I rngCriteria.Columns
C = + 1 'CriteriaRange kolonner
r = 1 'CriteriaRange Rader
For Hver cel I col.Cells
Hvis r = 1 Deretter
strCriteria = strCriteria & "Kriterier" _
& C & "(" & cel.Value & ") ="
Else
strCriteria = strCriteria & "'" & cel.Value & "'"
Hvis gjelder tom bil (cel.Offset (1, 0)) Deretter
"Legg til ny rad Char hvis ikke Siste Kriterier Column
Hvis c <rngCriteria.Columns.Count Deretter
strCriteria = strCriteria & Chr (10)
End If
Exit For
End If
strCriteria = strCriteria & ""
End If
r = r + 1
Neste cel 'neste kriteriene rad
Neste col 'neste kriterier kolonne

FilterCriteria = strCriteria
End Function

Å bruke makroen, bare kjør AddFilterCriteria makro, etter at du har din avansert filtrering satt opp. Den makro leser kriteriene tabellen og setter sammen de kriteriene til en streng som er plassert i den venstre spissen.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (3248) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Viser avgrensninger på en utskrift.