Chèn dòng text cố định dưới PivotTable (1 người xem)

[excel2012]

Các bác giúp em ca này với:
Em cần chèn 1 dòng text cố định (ghi chú chẳng hạn) ngay dưới PivotTable. Có cách nào để cái row này tự động di chuyển theo số dòng của PivotTable không ạ?
Đa tạ các bác trước!

 

[ndu96081631]

Các bác giúp em ca này với:
Em cần chèn 1 dòng text cố định (ghi chú chẳng hạn) ngay dưới PivotTable. Có cách nào để cái row này tự động di chuyển theo số dòng của PivotTable không ạ?
Đa tạ các bác trước!

Muốn gì thì bạn cũng phải xác định đựoc khu vực chứa PivotTable
Xem thí nghiệm dưới đây nhé:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
  With Target.TableRange2
    With .Offset(.Rows.Count)
      Range(.Cells, .End(xlDown)).Clear
      With .Offset(1).Resize(1, 1)
        .Value = "Ghi chú nhé!"
        .Font.Bold = True
        .Font.ColorIndex = 3
      End With
    End With
  End With
End Sub

 

[Hai Lúa Miền Tây]

Muốn gì thì bạn cũng phải xác định đựoc khu vực chứa PivotTable
Xem thí nghiệm dưới đây nhé:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
  With Target.TableRange2
    With .Offset(.Rows.Count)
      Range(.Cells, .End(xlDown)).Clear
      With .Offset(1).Resize(1, 1)
        .Value = "Ghi chú nhé!"
        .Font.Bold = True
        .Font.ColorIndex = 3
      End With
    End With
  End With
End Sub

Dựa vào code của Thầy em tạo 1 dòng cuối trang xong copy dòng đó đưa vào bên dưới Pivot

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
 With Target.TableRange2
    With .Offset(.Rows.Count)
      Range(.Cells, .End(xlDown)).Clear
      Sheets("ChanTrang").Range("a2:c8").Copy .Offset(2).Resize(1, 1)
    End With
 End With
End Sub

 

[eokakoe]

Trong topic
Áp dụng VBA vào Pivot table để lập báo cáo theo mẫu
Bác Ptm có thể tạo dòng đó ngay sau Pivot. Cụ thể cách dòng cuối cùng của pivot một số dòng nhất định. Nhờ bạn Dom và thầy Ndu nghiên cứu luôn nha