(
Gởi MAN:
Pivot table, chứ không phải pavot nha.
Sheets("500kV Parameter").Active
Sheets("500kV Parameter").PivotTables("PivotTable2").PivotCache.Refresh
Sheets("220kV Parameter").PivotTables("PivotTable1").PivotCache.RefreshSheets("220kV Parameter").Active
Sheets("220kV Parameter").PivotTables("PivotTable1").PivotCache.Refresh
xài wizzard của pivot đi bạn. trong office 2007 không có ribbon nhưng bạn có thể xài phím tắt ALT D + P được.
Excel 2007 mình không biết set Subtotal None ở chỗ nào.Bạn tùy chỉnh thuộc tính Subtotal của từng field tương ứng là None là xong. Bạn xem thêm file đính kèm nhé.
Trường hợp này hiếm xảy ra, trừ khi dữ liệu nguồn nằm ở file khác và file đó bị đổi tên hoặc bị dời đi chỗ khác.
Bạn dùng PivotTable theo file đính kèm nhé.
Trong Excel 2007 chức năng này vẫn còn nhưng bị ẩn, nên lúc cần thì:
chưa nhập dữ liệu mới thì chỉ có dữ liệu cũ thì là đúng rồi chứ?
Bạn đang ở trong mục PivotTable mà. Đã có nhiều ví dụ về tổng hợp số liệu từ các bảng số liệu rất hữu ích, chắc bạn chưa xem qua ? Về yêu cầu của bạn thì PivotTable chỉ "chớp mắt" là có bảng tổng hợp theo yêu cầu. Bạn nên gửi file lên diễn đàn, mọi người sẽ giúp đỡ bạn.
Em mới nghiên cứu được mấy hôm chưa được thạo cái này lắm, em xin được hỏi em mở file ra không thấy công cụ PivotTable Field List ở đâu cả? Em phải làm thế nào để nó xuất hiện? (Em dùng Office2007).
Thưa thầy, kiểm soát và quan sát trong Pivot Table theo em có nghĩa là mình thể hiện ra những danh mục mình chọn ra bên ngoài để người xem biết được mình đang chọn những danh mục gì ở bên trong (Machine nào) mà ra biểu đồ của PT ra được kết quả như vậy? Là 1 chú thích để minh họa ah.
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
j = 1
Range("F2:F100").ClearContents
With Target.PivotFields("Machine")
For i = 1 To .PivotItems.Count
With .PivotItems(i)
If .Visible = True Then
j = j + 1
Cells(j, 6) = .Name
End If
End With
Next
End With
End SubPrivate Sub PivotFilter()
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Machine")
For i = 1 To 8
.PivotItems(Cells(i, 6).Value).Visible = Cells(i, 9).Value
Next
End With
End Sub
Private Sub Display()
j = 1
Range("e2:e100").ClearContents
For i = 2 To 9
If Cells(i, 9) = True Then
j = j + 1
Cells(j, 5) = Cells(i, 8)
End If
Next
End Sub
. Đơn giản là Microsoft không tạo chức năng đó cho bạn.
Anh ơi cái này viết như thế nào ah? Em cũng bị 1 thông báo như vậy mà không muốn tắt nó đi ah.tại vì em phải đổ màu cho những ô này nên vì thế cảnh báo mới hiện nên
Tất cả các trường text nếu muốn hiện ra đều phải thả vào row hoặc column. Thả vào Data thì sẽ bị count.Cho em hỏi xíu ạ. Em đang làm báo cáo bằng Pivort Table. Các phần khác đều ổn nhưng đến phần hiển thị Text thì nó hổng có chịu hiện ra. Trong sheet "Summary" như file đính kèm. Mong được giải đáp ạ. Chân thành cảm ơn trước
vejo đã viết:
nhìn vào cái bảng hoa cả mắt sao ko đưa cái file lên
Bạn đặt chuột vào pivot
