Sub SoTT(Rng As Range)
With Rng
.Resize(200, 1).Clear
.Value = Evaluate("=row(R:R)")
.NumberFormat = "00"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End SubSub SoTT(Rng As Range)
With Rng
.Resize(200, 1).Clear
For Each Clls In Rng
With Clls
If .Offset(0, 1) <> "" Then
SoCap1 = SoCap1 + 1
SoCap2 = 0
.Value = Application.Roman(SoCap1)
.HorizontalAlignment = xlCenter
.Resize(1, 8).Font.Bold = True
.Resize(1, 8).Font.ColorIndex = 10
Else
SoCap2 = SoCap2 + 1
.Value = SoCap2
.Resize(1, 8).Font.Bold = False
.Resize(1, 8).Font.ColorIndex = 1
End If
End With
Next
.VerticalAlignment = xlCenter
End With
End SubBeginR = 10
EndR = [B10000].End(xlUp).Row
' Đánhsố TT cột A'
STT Range("A" & BeginR & ":A" & EndR - 1)Vậy, bắt đầu đánh số từ dòng bao nhiêu, BeginR bằng bấy nhiêu.
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
BeginR = 9 'Sửa dòng bắt đầu ở dòng lệnh này'
EndR = [b200].End(xlUp).Row
SoTT Range("A" & BeginR & ":A" & EndR - 1)
DrawBorder Range("A" & BeginR & ":D" & EndR - 1) 'Nếu cột cuối không phải D thì sửa ở đây'
DrawBorder Range("A" & EndR & ":D" & EndR) 'Và đây'
End SubPrivate Sub Worksheet_Activate()
Me.PivotTables(2).PivotCache.Refresh
End Sub
Private Sub Worksheet_Activate()
Dim Pv As PivotTable
For Each Pv In Sheet2.PivotTables
Pv.PivotCache.Refresh
Next
End SubPrivate Sub Worksheet_Activate()
With Me
For i = 1 to .PivotTables.Count
.PivotTables(i).PivotCache.Refresh
Next
End With
End Sub
