IncidentPersonnelReportsTemplateVer111.xls | ||||||
---|---|---|---|---|---|---|
S | T | U | V | |||
1 | Month | DayofWeek | IncidentTypeClass | IncidentType | ||
2 | November | Wednesday | Fire | Brush,orbrushandgrassmixturefire | ||
3 | November | Wednesday | Fire | Brush,orbrushandgrassmixturefire | ||
4 | November | Wednesday | Fire | Brush,orbrushandgrassmixturefire | ||
5 | November | Sunday | Fire | Brush,orbrushandgrassmixturefire | ||
6 | November | Sunday | Fire | Brush,orbrushandgrassmixturefire | ||
7 | November | Sunday | Fire | Brush,orbrushandgrassmixturefire | ||
8 | November | Thursday | Fire | Brush,orbrushandgrassmixturefire | ||
9 | November | Thursday | Fire | Brush,orbrushandgrassmixturefire | ||
10 | November | Thursday | Fire | Brush,orbrushandgrassmixturefire | ||
11 | November | Saturday | Rescue&EmergencyMedicalServiceIncidents | Motorvehicle/pedestrianaccident(MVPed) | ||
12 | November | Saturday | Rescue&EmergencyMedicalServiceIncidents | Motorvehicle/pedestrianaccident(MVPed) | ||
13 | November | Saturday | Rescue&EmergencyMedicalServiceIncidents | Motorvehicle/pedestrianaccident(MVPed) | ||
14 | November | Monday | Rescue&EmergencyMedicalServiceIncidents | Highanglerescue | ||
15 | November | Monday | Rescue&EmergencyMedicalServiceIncidents | Highanglerescue | ||
PersonnelResponseData |
IncidentPersonnelReportsTemplateVer111.xls | ||||||
---|---|---|---|---|---|---|
A | B | C | D | |||
1 | ||||||
2 | UnitResponseSummary | |||||
3 | ||||||
4 | Month | (All) | ||||
5 | Year | (All) | ||||
6 | Station | (All) | ||||
7 | Shift | (All) | ||||
8 | District | (All) | ||||
9 | ActivityPeriod | (All) | ||||
10 | IncidentType | (All) | ||||
11 | ||||||
12 | UnitID | IncidentClass | NumberofPersonnel | TotalTime | ||
13 | 101 | |||||
14 | Rescue&EmergencyMedicalServiceIncidents | 9 | 135 | |||
15 | 101Total | 9 | 135 | |||
16 | ||||||
17 | 201 | |||||
18 | FalseAlarm&FalseCall | 40 | 336 | |||
19 | Fire | 30 | 435 | |||
20 | HazardousConditions(Nofire) | 4 | 112 | |||
21 | Rescue&EmergencyMedicalServiceIncidents | 49 | 1,829 | |||
22 | 201Total | 123 | 2,712 | |||
23 | ||||||
Unit Response Summary |
Book2 | |||||||
---|---|---|---|---|---|---|---|
A | B | C | D | E | |||
1 | Month | DayofWeek | IncidentTypeClass | IncidentType | UniqueCount | ||
2 | November | Wednesday | Fire | Brush,orbrushandgrassmixturefire | 3 | ||
3 | November | Wednesday | Fire | Brush,orbrushandgrassmixturefire | 3 | ||
4 | November | Wednesday | Fire | Brush,orbrushandgrassmixturefire | |||
5 | November | Sunday | Fire | Brush,orbrushandgrassmixturefire | |||
6 | November | Sunday | Fire | Brush,orbrushandgrassmixturefire | |||
7 | November | Sunday | Fire | Brush,orbrushandgrassmixturefire | |||
8 | November | Thursday | Fire | Brush,orbrushandgrassmixturefire | |||
9 | November | Thursday | Fire | Brush,orbrushandgrassmixturefire | |||
10 | November | Thursday | Fire | Brush,orbrushandgrassmixturefire | |||
11 | November | Saturday | Rescue&EmergencyMedicalServiceIncidents | Motorvehicle/pedestrianaccident(MVPed) | |||
12 | November | Saturday | Rescue&EmergencyMedicalServiceIncidents | Motorvehicle/pedestrianaccident(MVPed) | |||
13 | November | Saturday | Rescue&EmergencyMedicalServiceIncidents | Motorvehicle/pedestrianaccident(MVPed) | |||
14 | November | Monday | Rescue&EmergencyMedicalServiceIncidents | Highanglerescue | |||
15 | November | Monday | Rescue&EmergencyMedicalServiceIncidents | Highanglerescue | |||
Sheet5 |
With ActiveSheet.PivotTables("Unit Response Summary").PivotFields( _
"Incident Type Class")
.Orientation = xlDataField
.Position = 1
.Caption = "Count"
.Function = CntUnique(Incident Type Class)
.NumberFormat = "#,##0"
End With
Sub test1()
Range("A1:A65536").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Cells(1, 2), Unique:=True
Range("D2").FormulaR1C1 = "=COUNTA(RC[-2]:R[64998]C[-2])"
End Sub
Sub test2()
Dim myRng As Range
Set myRng = Sheets(2).[A:A]
myRng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(1, 2), Unique:=True
With Range("D2")
.FormulaR1C1 = "=COUNTA(RC[-2]:R[64998]C[-2])"
.Value = .Value
End With
End Sub